Yine Rave Report

[hdayi]

Merhaba arkadaşlar. Rave repotla ilgilenmiş olan pek kimse yok ama ben yine de sorayım.
İki tane raporum var. Buraporlardı bazı textleri duruma göre değiştiriyorum. İkisi de aynı unit içerisinde aynı uses satırlarını kullanıyorlar. Ama birtanesi için yazdığım procesdure çalışırken diğeri hata veriyor.
uses satırı:

Kod: Tümünü seç

implementation
uses udm, db, umalrejimi, uformmalrejimi, DateUtils,
  ufrmsaglikraporu, umernis, usaglikraporu, uistatistik, uara,
  ufrmformyazdir, usql, rvclass, rvproj, rvcsstd, ADODB;

Çalışanı :

Kod: Tümünü seç

procedure Tfrmgenel.btnek1Click(Sender: TObject);
var
  mypage:TRavePage;
  kdyeri:travetext;
begin

rvpek1.Open;
with rvpek1.ProjMan do
begin
  mypage:=findravecomponent('Report2.MainPage',nil) as TRavePage;
  kdyeri:=findravecomponent('kdyeri',mypage) as travetext;
end;
  rvpek1.Execute;
  rvpek1.Close;
end;

çalışmayanı

Kod: Tümünü seç

procedure Tfrmgenel.btnornekClick(Sender: TObject);

var
mypage:TRavePage;
serino:TRaveText;

begin
  rvornek.Open;
  with rvornek.ProjMan do
    mypage:=findravecomponent('Report1.Page1',nil) as TRavePage;
    serino:=findravecomponent('serino',mypage) as TRaveText;
  end;
  rvornek.Execute;
  rvornek.Close;
end;

undeclarfed idetifier 'findravecomponent' diye mesaj alıyorum. Ama bunu mypage için kullandığım satırda değil serino için kullandığım satırda alıyorum.
Bişeyleri gözden kaçırıyorum ama ne.

Kolay Gelsin...

[akgun83]

Merhabalar,
with den sonra begin koymayı unutmuşsunuz.


with rvornek.ProjMan do
Begin
mypage:=findravecomponent('Report1.Page1',nil) as TRavePage;
serino:=findravecomponent('serino',mypage) as TRaveText;
end;

[hdayi]

ilahi ben
koymuşum ama sen git daha sonra with ile begin arasına yazmaya başla kodu.
teşekkürler akgun83, sanırım geçici körlük, amneziya gibi bişey oldu.
sağol