Memo: riadky – Delphi – Fórum – Programujte.com

Dobry vecer, na forum som natrafil nahodou, potrebujem pomoct.

Pouzivam delphi 7 (momentane trial verziu enterprise:ucim sa):da sa do komponenty memo vpisovat text hned za poslednym textom (to jest:nie do noveho riadku)?

Tento kod mi prida do memo 20 novych riadkov a do kazdeho z nich vlozi premennu a:
for i:=1 to 20 do memo1.Lines.add(inttostr(a));
Ako to napisat tak aby mi tu premennu a vypisalo 20x vedla seba hned vedla posledneho textu v memo?

Diky za odpoved!
aliann

procedure TForm1.Button1Click(Sender: TObject);

var

  Index: Integer;

begin

  // 0. pridame nejake srandy

  Memo1.Lines.Add('riadok 1');

  Memo1.Lines.Add('riadok 2');

  Memo1.Lines.Add('riadok POSLEDNY');



  // 1. Pridanie na posledny riadok

  if Memo1.Lines.Count > 0 then

  begin

    for Index := 1 to 20 do

      Memo1.Lines[Pred(Memo1.Lines.Count)] := Memo1.Lines[Pred(Memo1.Lines.Count)] + IntToStr(Index);

  end; // IF



  // 2. Pridanie do riadku

  for Index := 1 to 20 do

    Memo1.Lines.Text := Memo1.Lines.Text + IntToStr(Index);

end;

diks funguje