Ich habe gedacht, das schreib ich schnell, aber Pustekuchen, kann mir einer sagen, wieso das nicht geht?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
LineCount: integer;
begin
LineCount := Memo1.Lines.Count;
for i := 0
to LineCount - 1
do
begin
if (Memo1.Lines[i] = '
')
or
(Pos('
', Memo1.Lines[i]) = 1)
then
begin
Memo1.Lines.Delete(i);
dec(LineCount);
end;
end;
end;
dec(LineCount);
Wird nicht ausgeführt (es befindet sich kein blauer Punkt beim Kompilieren vor der Zeile).
Gehört zwar nicht direkt zum Thema, würde mich aber schon interessieren.