[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;