Fehler bei Trimleft

[Klaus01]

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  // hier prüfst Du ob die Zeile leer ist
      Memo1.Text := Trimleft(' ');  // hier entfernst Du die Leerzeichen links vom GesamtText.
      end;
    end;
end;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer ;
begin
    for i := Memo1.Lines.Count - 1 downto 0 do begin
      Memo1.lines[i] := Trimleft(Memo1.lines[i]);
    end;
end;

Grüße
Klaus