Hier ein getestetes Beispiel, ersetzt alle Leerzeichen die am Anfang einer Zeile stehen, also Einrückungen und läßt den Rest der Zeile stehen:
Delphi-Quellcode:
procedure TSampleFrm.StartBtnClick(Sender: TObject);
var
Line: Integer;
S: String; //temporäre variable da EditRtf.Lines eine Konstante ist
begin
for Line:= 0 to EditRtf.Lines.Count-1 do //Zeile für Zeile auslesen
begin
S:= EditRtf.Lines[Line];
while (Length(S) >= 1) and (S[1]=' ') do //immer erstes Zeichen in der Line behandeln
begin
Delete(S, 1, 1); //löschen
end;
EditRtf.Lines[Line]:= S; //leerzeichen freie Line Schreiben
end;
end;
imho (tolle abk. die hier kusieren, für neue sogar mit erklärung) ist dein Source etwas unübersichtlich.
Und: hast du schon mal daran gadcht deinen Komponenten aussagekräftigere Namen als:
Button1, Button2, RichEdit1, Menu1 ... zugeben? Das wär echt einfacher zu verstehen!
ciao,
mr. boj