Çok Yakında Yeni Bir Arayüzle karşınızdayız! http://yeni.delphican.com/

Konuyu Oyla:
  • Derecelendirme: 3/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Record type içerisindeki değişkenlerime for döngüsü ile erişme
#1
Merhabalar,
Bir Hizmetimde fonksiyonum var, Bu fonksiyonum, bir record tipi dönüyor, tipimin içerisinde her türden değişken var Currency, Int. Str. + Benim yaptığım record tiplerim.

İçerisinde 90'dan fazla değişken var, Fonksiyonumun sonunda, bu tipimin içerisinde dönüp, hangi değişkenimin içerisi ne ile dolmuş okuyup bir text dosyasına yazmam gerekiyor. (loglama yapmam gerekiyor)

Bunu nasıl yapabilirim ?
WWW
Cevapla
#2
(24-10-2017, Saat: 14:28)yhackup Adlı Kullanıcıdan Alıntı: Merhabalar,
Bir Hizmetimde fonksiyonum var, Bu fonksiyonum, bir record tipi dönüyor, tipimin içerisinde her türden değişken var Currency, Int. Str. + Benim yaptığım record tiplerim.

İçerisinde 90'dan fazla değişken var, Fonksiyonumun sonunda, bu tipimin içerisinde dönüp, hangi değişkenimin içerisi ne ile dolmuş okuyup bir text dosyasına yazmam gerekiyor. (loglama yapmam gerekiyor)

Bunu nasıl yapabilirim ?

Merhaba Yakup ,

Eğer Delpi Xe ve üzeri bir sürüm kullanıyorsan bence en kestirme yol RTTI kullanmaktır , uses a RTTI ekle , forma bir TMemo ve TButton atıp aşağıdaki örneği hazırladım
TRecordTip  adında basit bir  Record tip tanımlayıp hem alan isimlerini hem değerlerini yazdırdım.

procedure TForm1.Button1Click(Sender: TObject);

 type TRecordTip = record
   a:string;
   b:Integer;
 end;
var
 intRec    : TRecordTip;
 intType   : TRTTIType;
 intFields : TArray<TRttiField>;
 i: Integer;
begin
 intRec.a := 'Str değer';
 intRec.b := 12345;
 intType := TRTTIContext.Create.GetType(TypeInfo(TRecordTip));
 intFields := intType.GetFields;
 for i := 0 to high(intfields) do
   Memo1.Lines.Add(Format('%s: %s ', [ intFields[i].Name,intFields[i].GetValue(@intRec).ToString]));
end;

Kolay gelsin.
Cevapla
#3
Harika Teşekkürler.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  array of record Sıralama yhackup 2 261 27-12-2019, Saat: 16:43
Son Yorum: yhackup
  Tag Invalid Type Cast 41linea41 1 282 04-11-2019, Saat: 00:08
Son Yorum: ismailkocacan
  Record Temizleme Hayati 9 618 24-10-2019, Saat: 09:40
Son Yorum: uparlayan
  Resim içerisindeki Herhangi Bir Renge Zemin Resmi Verme (2 renk verme (Pattern)) pro_imaj 10 1.238 15-04-2019, Saat: 18:04
Son Yorum: esistem
  Formun ve içerisindeki nesnelerin ölçeklendirmesi Abdullah ILGAZ 5 1.041 15-01-2019, Saat: 23:27
Son Yorum: CesuR



Konuyu Okuyanlar: 1 Ziyaretçi