22-08-2019, Saat: 19:07
(Son Düzenleme: 22-08-2019, Saat: 19:09, Düzenleyen: adelphiforumz.)
Bence biraz akış algoritmaları üzerinde dursanız iyi olur düşüncesindeyim.
Her zaman hazır kod bulamazsınız.
Her zaman hazır kod bulamazsınız.
... ... ... var SonGelisZamani : Cardinal; SonGelenKartNo : WideString; implementation {$R *.dfm} procedure TForm1.OnReceiveText(ASender: TObject; const Reader: IReader; ReaderId: Byte; const Data: WideString); begin if (Data = SonGelenKartNo) then begin if (GetTickCount - SonGelisZamani) > 3000 then begin EditKART_NO.Text := Data; SonGelenKartNo := Data; SonGelisZamani := GetTickCount; end; end else begin EditKART_NO.Text := Data; SonGelenKartNo := Data; SonGelisZamani := GetTickCount; end; end; ... ... ...
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.