Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
edit1 change işlem yapma
#10
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;

...
...
...
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla


Bu Konudaki Yorumlar
edit1 change işlem yapma - Yazar: erdogan - 22-08-2019, Saat: 16:40
edit1 change işlem yapma - Yazar: adelphiforumz - 22-08-2019, Saat: 17:01
edit1 change işlem yapma - Yazar: erdogan - 22-08-2019, Saat: 17:04
edit1 change işlem yapma - Yazar: meko - 22-08-2019, Saat: 17:56
edit1 change işlem yapma - Yazar: erdogan - 22-08-2019, Saat: 18:04
edit1 change işlem yapma - Yazar: adelphiforumz - 22-08-2019, Saat: 18:14
Cvp: edit1 change işlem yapma - Yazar: erdogan - 22-08-2019, Saat: 18:24
edit1 change işlem yapma - Yazar: serdar - 22-08-2019, Saat: 18:15
Cvp: edit1 change işlem yapma - Yazar: meko - 22-08-2019, Saat: 18:39
Cvp: edit1 change işlem yapma - Yazar: adelphiforumz - 22-08-2019, Saat: 19:07
Cvp: edit1 change işlem yapma - Yazar: erdogan - 23-08-2019, Saat: 10:25

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  4 İşlem - PDF Çalışma Sayfası Hazırlama Frrst 0 223 25-08-2023, Saat: 09:58
Son Yorum: Frrst
  text bölüp edit1, edit2, edit3 .... atma erdogan 6 939 16-02-2023, Saat: 11:52
Son Yorum: erdogan
  İşlem Yapılırken "Lütfen Bekleyiniz" Yazısı OZCANK 21 10.846 25-11-2022, Saat: 19:09
Son Yorum: Hayati
  Inno Setup Ugrade Yapma Frrst 1 418 22-10-2022, Saat: 17:35
Son Yorum: berk06
  Matematiksel İşlem apachi2006 8 2.173 20-03-2022, Saat: 16:31
Son Yorum: apachi2006



Konuyu Okuyanlar: 1 Ziyaretçi