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ı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Label Change olayı harezmi 1 137 10-08-2019, Saat: 21:15
Son Yorum: mcuyan
  Dosya Adı ve İçeriğinde Arama Yapma dkadir 3 388 23-06-2019, Saat: 06:53
Son Yorum: dkadir
  İşlem Yapılırken "Lütfen Bekleyiniz" Yazısı OZCANK 4 503 21-04-2019, Saat: 17:42
Son Yorum: OZCANK
  Çözüldü-istenen işlem yükseltme gerekiyor hatası delphi7 sadikacar60 7 1.056 19-02-2019, Saat: 10:34
Son Yorum: sadikacar60
  Butonlarla Kategori ve AltKategori Yapma akissoftware 33 4.345 28-11-2018, Saat: 14:02
Son Yorum: Hayati



Konuyu Okuyanlar: 1 Ziyaretçi