Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
edit1 change işlem yapma
#11
(22-08-2019, Saat: 19:07)adelphiforumz Adlı Kullanıcıdan Alıntı: Bence biraz akış algoritmaları üzerinde dursanız iyi olur düşüncesindeyim.
Her zaman hazır kod bulamazsınız. Idea

...
...
...

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;

...
...
...

çok teşekkürler
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Web Browser Resize yapma. enigma 2 92 27-05-2020, Saat: 08:48
Son Yorum: mrmarman
  Style değişiklik yapma ekank 4 282 21-05-2020, Saat: 14:34
Son Yorum: ekank
  İşlem Yapılırken "Lütfen Bekleyiniz" Yazısı OZCANK 14 2.130 21-04-2020, Saat: 07:45
Son Yorum: cinarbil
  İşlem esnasında bekleme süresi koyma wiseman 10 770 08-04-2020, Saat: 00:13
Son Yorum: wiseman
  İşlem yaparken kullanıcıyı bilgilendirme Hk. pro_imaj 6 679 09-03-2020, Saat: 21:46
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi