[merdashka]

Как удалить все пробелы из строки?

[Winny]

Сначала найди все пробелы строки функцией поиска (мне писать лень, сам подумай), а потом сделай значение пробелов равным:=''

[Winny]

Чё то типа: ' ':=''

[merdashka]

Чё то типа: ' ':='' не пойдёт, несовпадения типов char и String

[Redstason]

var
c, i: integer;
stt, st, st1: string;
begin
c := 0;
st := edit1.Text;

for i := 1 to Length(st) do
begin

stt := copy(st, i, 1);
if (stt = ' ') and (c >= 1) then
begin
st1 := st1;
c := c + 1;
end
else if (stt = ' ') and (c = 0) then
begin
c := c + 1;
st1 := st1 + stt;
end
else if (stt <> ' ') then
begin
c := 0;
st1 := st1 + stt;
end
end;

edit2.text := st1;
end;

[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   s := 'Строка с пробелами';
   ShowMessage( StringReplace( s, ' ', '', [rfReplaceAll] ) );
end;

[Decoding]

или так

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   s := '   Тестовая строка   ';
   while Pos( ' ', s ) > 0 do
      Delete( s, Pos( ' ', s ), 1 );
   ShowMessage( s );
end;

[merdashka]

Ребята спасибо