Delphi-Quellcode:
procedure DeleteEmptyLines(const lines: TStrings);
begin
while lines.IndexOf('') <> -1 do
lines.Delete(lines.IndexOf(''))
end;
//Aufruf:
DeleteEmptyLines(Listbox1.Items);
EDIT: streichen könnte man das var, const ist aber schöner
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1