FastReport ta Text Bilgileri Gösterme

[zengin]

s.a.
arkadaşlar fastreportta vt deki kayıları gösteriyorum. ancak edit içindeki text bilgiyi gösteremedim. bu konuda tecrübesi olan arkadaşlardan yardımlarını bekliyorum.

[cemarik]

hangi versiyonunu kullandığını belirtirsen iyi olur.
FastReport Editöründe bi dictionary variables tanımla
kodda da

Kod: Tümünü seç

       frreport1.Dictionary.Variables['degisken'] :=  Edit1.text ;

i yazarsan olur

[zengin]

arkadaşım teşekkür ederim.

[cemarik]

Rica ederim ne demek, Kolay Gelsin !

[name]

Form üzerinde fazla edit bileşeni var ise bu yöntem biraz uğraştırıcı olabilir. Bundan dolayı alternatif sunmak istiyorum.

Raporda memo'nun içersine, değerini almak istediğin edit bileşenin adını kare parentez içersinde yazar ve raporun "OnGetValue" event'ınada aşağıdaki kodu yazar isen, çok fazla edit ile uğraştığın durumlarda kolay kullanım sağlamış olursun.

rapordaki Memo bileşeni içersine [Edit1] yazılacak.

Event içersine ise bu kod

Kod: Tümünü seç

procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);
var tempComponent: TComponent;
begin
  tempComponent := Form1.FindComponent(VarName);
  if assigned(tempComponent) then
    Value := Tedit(tempComponent).Text
  else Value := '';
end;

[zengin]

evet arkadaşım bu da güzel bir örnek. allah razı olsun yardımcı olan arkadaşlardan hepinize teşkkürler. ve teşekkürrü unuttuğumuz http://www.delphiturkiye.com kurucularına da sonsuz teşekkürlerimi iletiyorum. saygılarımla....