[Nekromant Set'а]

Вот возникла задача:
Надо удалить все пробелы из тикста находящигося в Memo. Кто знает как это сделать? 0_o

[mav_c]

Сообщение от Nekromant Set'а

Вот возникла задача:
Надо удалить все пробелы из тикста находящигося в Memo. Кто знает как это сделать? 0_o

Код:

uses StrUtils;

Memo.Lines.Text := AnsiReplaceStr(Memo.Lines.Text, ' ', '');

[Nekromant Set'а]

Гуд =) Спсб =) А есть способ это сделать вручную??? Там через циклы и т.д.

[mav_c]

Сообщение от Nekromant Set'а

Гуд =) Спсб =) А есть способ это сделать вручную??? Там через циклы и т.д.

Код:

var
 i, line  : integer;
 str : string;
begin
 for line := 0 to memo.Lines.Count - 1 do
 begin
  str := '';
  for i := 1 to length(memo.Lines.Strings[line]) do
  begin
   if (memo.Lines.Strings[line][i] <> ' ') then
    str := str + memo.Lines.Strings[line][i];
  end;
  memo.Lines[line] := str;
 end;
end;

[Winny]

Можно без циклов ещё вот так:

Код:

Memo1.Text:=StringReplace(Memo1.Text,' ','',[rfReplaceAll])

[Nekromant Set'а]

Спсб терь всё гуд...