Hallo,
ich habe einen Text, wo in jeder leeren Zeile am Zeilenanfang ein Leerzeichen steht.
Das möchte ich gerne löschen.
Die Leerzeile soll aber bleiben.
Der Code löscht mir aber den kompletten Text:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i: integer ;
begin
for i := Memo1.Lines.Count - 1 downto 0 do begin
if (Memo1.Lines[i] = ' ') then begin
Memo1.Text := Trimleft(' ');
end;
end;
end;
Vielleicht könnt ihr mir ja helfen.
VG, Julia