TXT

Jak napisac procke ktora dodaje pod koniec kazdej linijki znmajdujacej sie w memo jakis znak lub słowo...?--Ozyrys Pozdrawiam {hello}
Delphi 6

Jeśli weżmiemy pod uwagę Memo.Text to jest to długi string
po odzielany sekwencjami zmaków końca lini czyli #13#10.
Wystarczy że je odnajdziesz i przed nie wstawisz co chcesz.--__________________________________
Pozdrawiam...
piechnat

Witam

Nie wiem czy to o to chodzi ale może tak:
procedure WstawNaKoncuKazdejLiniiMemoDowolnyTekst(DowolnyTekst: String);
var i: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
Memo1.Lines[i] := Memo1.Lines[i] + DowolnyTekst;
end;

Pozdrawiam
BigJas