1.Jak dodać do każdej linijki w memo znak np. '!' ?
2. I jeszcze przy okazji: jak wyeliminować puste linie z memo.
Mam w memo np takie coś:
blablabla
fffff
kkk
ll
Chcę, by blabla i fff stykało się (nie było pomiędzy nimi pustej linii).
Z góry dzięki za all odp. :-)
Memo1.Lines[0]:='fff'; - wstawia podany string w pierwsza linijke
Memo1.Lines[99]:='linia 100';
<font color="green">1.Jak dodać do każdej linijki w memo znak np. '!' ? </span>
var
i:integer;
begin
For i:=0 to Memo1.Lines.Count-1 do
begin
Memo1.Lines[i] := Memo1.Lines[i] + '!';
end;
<font color="green">2. I jeszcze przy okazji: jak wyeliminować puste linie z memo.
Mam w memo np takie coś:
blablabla
fffff
kkk
ll </span>
var
i: integer;
begin
for i := Memo1.Lines.Count - 1 downto 0 do
if Memo1.Lines[i] = '' then Memo1.Lines.Delete(i);
end;