para sesepuh delphi yang terhormat, mohon bantuannya...ada yang tau caranya nampilin data dengan menggunakan timer. kasusnya begini.. saya punya data A B 1 xx 2 xx 3 xx yang saya mau tampilin adalah realtime, jadi saya menggunakan timer cuman pas sy pake data yang di tampilin ke load terus contoh scripnya seperti ini log.Open; task.refresh; x:=log.fieldbyname('log').AsInteger; if x<>log.FieldByName('oldlog').AsInteger then begin log.Edit; log.FieldByName('oldlog').AsInteger:=x; task.Open; task.Refresh; task.First; while not task.Eof do begin if label1.Caption='' then begin label1.Caption:=.task.fieldbyname('A').AsString+' : '+task.fieldbyname('B').AsString; end else begin task.Next; label1.Caption:=label1.Caption+' '+task.fieldbyname('A').AsString+' : '+task.fieldbyname('B').AsString; end; task.Next; end; log.refresh; end else begin end;

masih belum jelas nih maksud pertanyaamu....:D

@madi menurutku pertanyaanya dah jelas yaitu ....

mohon bantuannya...ada yang tau caranya nampilin data dengan menggunakan timer.

xixixixiiiiii.................... Jadi jawabannya cuman dua : ada ato tidak......xixixiiixiii silahkan dijawab....

@alvonz, klo menurut saya, ini kamu mau menampilkan data yg update kan?, coba kamu atur interval timernya, jangan terlalu pendek, sebab bisa membebani aplikasi, trus taroh deh script kamu tadi di dalam event timer.ontimer. atau kamu buat counter di dalam timer itu, jika nilai counter mencapai nilai tertentu baru menjalankan script kamu itu

@mas_kofa :shock: @alvonz klo cuman mo ditimerkan kan ya ga susah bro

Procedure TForm1.Timer1Timer(sender:TObject);
begin
  if kondisi tertentu then
   begin
     log.Open;
     task.refresh;
     x:=log.fieldbyname('log').AsInteger;
   if x<>log.FieldByName('oldlog').AsInteger then
     begin
       log.Edit;
       log.FieldByName('oldlog').AsInteger:=x;
       task.Open;
       task.Refresh;
       task.First;
    while not task.Eof do
   begin
    if label1.Caption='' then
     begin
       label1.Caption:=.task.fieldbyname('A').AsString+' :   '+task.fieldbyname('B').AsString;
     end
   else
 begin
   task.Next;
   label1.Caption:=label1.Caption+' '+task.fieldbyname('A').AsString+' : '+task.fieldbyname('B').AsString;
  end;
   task.Next;
  end;
   log.refresh;
 end
  else
 begin
  end;
end;

nah, jawabanku di perjelas @madi tuh, teknisnya gt