Ljudi imam jedno pitanje.
Napravio sam jedan mali programcic koji radi na sledeci nacin.
Ucitavanje txt fajla u ListBox , zatim na button click iz ListBox-a ucitava prvih 5 redova u memo.
Moje pitanje je kako bih mogao da na sledeci klik u memo ucitavam sledecih 5 redova iz ListBox-a i kad stize na kraj , ide iz pocetka neka loop fora?
Evo programa:
procedure TForm1.Otvori_fajlClick(Sender: TObject);
begin
Open.Filter:='TXT Fajl|*.txt';
if Open.Execute then
begin
ListBox1.Items.LoadFromFile(Open.FileName);
end;
end;
procedure TForm1.Citaj_u_MemoClick(Sender: TObject);
Var
i:integer;
begin
for i := 0 to ListBox1.Items.Count - 5 do
begin
Memo1.Lines.Add(ListBox1.Items);
end;
end;