Wstawiłem taki kod i myślałem że wykasuje mi wszystkie puste linie w komponencie Memo
for linie2 := 0 to PoleTxt.Lines.Count do
begin
if PoleTxt.Lines[linie2] = ' ' then PoleTxt.Lines.Delete(linie2);
end;
ale nie działa... gdzie tu błąd ???--Delphi 6
Pozdrawiam All