Código Delphi [-] whith memo1 do begin for i := 0 to lines.count - 1 do while pos(' ', lines[i]) do delete(lines[i], 1, 1); end;
whith memo1 do begin for i := 0 to lines.count - 1 do while pos(' ', lines[i]) do delete(lines[i], 1, 1); end;