Mam pytanie: Jak usunąć w memo PUSTE linie???
0
0
No wiec od razu pisze ze pisze :-) z pamieci:
var
i : integer;
begin
for i := Memo1.Lines.Count - 1 downto 0 do
if Memo1.Lines[i] = '' then
Memo1.Lines.Delete(i);
end;
Tu by jeszcze text ale okazal sie niewazny wiec go zniszczylem :-)
--
pozdrawiam PEDROS {hello}
Nie uzywajcie irca i tak nie ma tam nic ciekawego.
Delphi6 Personal
0
begin
H := 0;
for I := 0 to Memo1.Lines.Count do begin
if Length(Memo1.Lines.Strings[I - H]) = 0 then begin
Memo1.Lines.Delete(I - H);
Inc(H);
end;
end;
end;
To usunie wszystkie puste (Length = 0) niestety nie usowa tych ktore skladaja sie z samych spacji :| --Pozdrawiam {hello}
Tomasz K.