[es] - Memo Ucitavanje po 5 linija

AlexK

Član broj: 132197
Poruke: 19
195.252.70.*

Profil

^{07.02.2010. u 21:50 - pre 173 meseci}

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;

Odgovor na temu

krle_zr

Član broj: 96307
Poruke: 258
*.static.zrlocal.net.

+7 Profil

Re: Memo Ucitavanje po 5 linija

^{08.02.2010. u 06:32 - pre 173 meseci}

Citat:

AlexK:
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;

Ubaci neku promenljivu koja bi ti cuvala trenutnu poziciju u listi i proveravaj stalno da li je stigla do kraja liste. E sad, kazes prvih pet, medjutim tvoj kod ucitava sve sem poslednjih pet.

Pokusaj pa ako zapne javi.

Odgovor na temu

AlexK

Član broj: 132197
Poruke: 19
195.252.70.*

Profil

Re: Memo Ucitavanje po 5 linija

^{08.02.2010. u 22:43 - pre 172 meseci}

Hvala ti ali izgleda sam ja vec zapno - spetljao cim sam uradio da cita sve sem poslednjih pet redova.
Molim te otvori mi oci :-)

Odgovor na temu

krle_zr

Član broj: 96307
Poruke: 258
*.static.zrlocal.net.

+7 Profil

Re: Memo Ucitavanje po 5 linija

^{09.02.2010. u 06:38 - pre 172 meseci}

Meni ovako nesto pada na pamet

Imamo dve promenljive, Trenutno, koja je globalna i Dodato, koja je lokalna za nasu proceduru. Koristi se kako bi utvrdili koliko je trenutno stavki dodato, a u slucaju da dodje do kraja liste da krene od pocetka.

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Trenutno := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Dodato: Integer;
begin
  Dodato := 0;
  while Dodato < 5 do
  begin
    while Trenutno < ListBox1.Items.Count do
    begin
      Memo1.Lines.Add(ListBox1.Items[Trenutno]);
      Inc (Trenutno);
      Inc (Dodato);
      if Dodato = 5 then
      Break;
    end;
  if Dodato < 5 then
    Trenutno := 0;
  end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Clear;
end;

Pozdrav

Odgovor na temu

AlexK

Član broj: 132197
Poruke: 19
195.252.70.*

Profil

Re: Memo Ucitavanje po 5 linija

^{10.02.2010. u 16:34 - pre 172 meseci}

Car si druze. Extra radi.
Hvala ti puno

Odgovor na temu