Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
TDictionary kullanımım hakkında
#1
Sanırım beynim durdu. Çaycı lazım Smile 

Kod içerisine yazdım.


  TCagri = class
    Guid: String;
    Time: Cardinal;
  end;

  TMyCagriList = class
  private
    List: TDictionary<String, TCagri>;
    function Get(Guid: String): Cardinal;
    function Add(Value: String): Integer;
  public
    destructor Destroy;
    constructor Create;
  end;


var
 a: TCagri;
begin
 a := TCagri.Create;
 if List.TryGetValue(Guid, a) then // Eğer listede item var ise a'ya ataması gerekmiyor mu  ?
 begin
   // Listede item olduğundan buraya giriyor ama a nil ?
   if Assigned(a) then
     Result := (GetTickCount - a.Time) // div 1000
   else
     Result := 1
 end
 else
 begin
   Result := 0;
 end;
end;


Ek Dosyalar Resimler
   
WWW
Cevapla
#2
Yakubum, TCagri sınıfını create etmeden; onun yerine a := nil atamasını yaparak dener misin. Verdiğin Key'in koleksiyon içinde bulunması durumunda fonksiyondan true dönmeli ve a değişkenine de koleksiyon içindeki nesne aktarılmış olmalı. Tabii, daha önce TCagri türündeki nesneyi create edip içeri ekledi isen (Belki nil olarak eklemişsindir Wink )
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#3
(02-02-2024, Saat: 15:28)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Yakubum, TCagri sınıfını create etmeden; onun yerine a := nil atamasını yaparak dener misin. Verdiğin Key'in koleksiyon içinde bulunması durumunda fonksiyondan true dönmeli ve a değişkenine de koleksiyon içindeki nesne aktarılmış olmalı. Tabii, daha önce TCagri türündeki nesneyi create edip içeri ekledi isen (Belki nil olarak eklemişsindir Wink )


Hay Allah : ) hakikaten beynim durmuş sen "nil eklemişsindir" deyince Add 'e bakayım dedim yaptığım hataya bak.  Smile

Kırmızıyı, yeşile taşıdım oldu.


Ek Dosyalar Resimler
   
WWW
Cevapla
#4
Tam amacını bilmiyorum ama hiç kontrol etmene gerek olmadan List.AddOrSetValue işini görür gibi @yhackup
There's no place like 127.0.0.1
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  AES Şifreleme Hakkında tmrksmt 18 774 14-02-2024, Saat: 10:42
Son Yorum: tmrksmt
  TfrxReport Rapor dizaynı hakkında yhackup 2 173 24-01-2024, Saat: 11:35
Son Yorum: yhackup
  EdgeBrowser Hakkında bydelphi 2 453 19-11-2023, Saat: 10:21
Son Yorum: bydelphi
  Webp formatı gösterimi hakkında adelphiforumz 1 440 16-03-2023, Saat: 20:52
Son Yorum: uparlayan
  Delphi 7 Veri Tabanı İşlemi Hakkında mahone 6 940 28-02-2023, Saat: 15:36
Son Yorum: mahone



Konuyu Okuyanlar: 1 Ziyaretçi