moin sakura,
hab das jetzt so:
Delphi-Quellcode:
procedure TForm1.Memo1Click(Sender: TObject);
var bla: integer;
begin
for bla := memo1.Lines.Count-1 downto 0 do
begin
if memo1.Lines[bla] = '' then
begin
memo1.Lines.Delete(bla);
end;
end;
end;
aber es ist immernoch eine Zeile mehr da, also bei z.B 3 Strings sind 4 Zeilen da