Pitanje ?
trebam da sa petljom prodjem kroz sve slogove i da u tom prolazu na label kom dobijem podatak sloga npr.broj telefona
a da je za korisnika vidljivo cijelo vrijeme broj telefona tj. da se vrte svi tel brojevi na label komp...
hvala
moj primjer ali ne ra radi ,gdje gresim
ovo sam stavio u timer okidacu i tblTelBroj (afterscroll) event
var
i : integer;
begin
i := 1;
tblTel.DisableControls;
while i <= 100 do
begin
tblTel.First;
while not tblTel.Eof do
begin
lTelBroj.Caption := tblTel.FieldByName('BROJTEL').AsString;
tblTel.Next;
end;
i := i+1;
lKolicina.Caption := inttostr(i-1);
tblTel.EnableControls;
timer1.Enabled := false;
trebam da sa petljom prodjem kroz sve slogove i da u tom prolazu na label kom dobijem podatak sloga npr.broj telefona
a da je za korisnika vidljivo cijelo vrijeme broj telefona tj. da se vrte svi tel brojevi na label komp...
hvala
moj primjer ali ne ra radi ,gdje gresim
ovo sam stavio u timer okidacu i tblTelBroj (afterscroll) event
var
i : integer;
begin
i := 1;
tblTel.DisableControls;
while i <= 100 do
begin
tblTel.First;
while not tblTel.Eof do
begin
lTelBroj.Caption := tblTel.FieldByName('BROJTEL').AsString;
tblTel.Next;
end;
i := i+1;
lKolicina.Caption := inttostr(i-1);
tblTel.EnableControls;
timer1.Enabled := false;