Döngüden Çıkıp Tekrar Girince Çalışan Kod ?

[techmaster]

Arkadaşlar freereporttaki image nesnelerine veri gönderiyorum ancak sorun çıkıyor...
Aşağıdaki kod yine bir döngünün içinde ancak işin garip yani bu döngü bir kere çalıştığında sorun çıkmıyor ama ikinci çalışmasında 'Access violation at address...' hatası veriyor. (İkinci çalışmasından kastım k'nın 1,2,3 diye ilerlemesi. )
Ayrıca döngüden çıkıp tekrar girdiğindede sorun vermiyor yani döngü içerisinde birinciden sonra hata alıyorum. Yardımcı olabilirmisiniz?

Kod: Tümünü seç

for k:=0 to (Sayi-1) do
    begin
     HangiNesne:='Picture'+inttostr(DegerTut);
     (Raporla.FindObject(HangiNesne) as TfrPictureview).Picture.Assign(Image2.Picture);
     DegerTut:=DegerTut+1;
    end;

[ulu coder]

Access violation demek olmaya bişeye erişmeye çalışmak demek...

muhtemelen 'HangiNesne' değişkeninde adı tutulan nesne yok. ilk kez döngüye girdiğinde olmuyor, sonra oluyorsa, DegerTut'un ilk değerine bi bakın.

Kolay gelsin.

[techmaster]

DegerTut'un ilk değeri 1 döngüye ilk girişinde Picture1 e erişmeye çalışıyorum erişip resmin diskteki yerini gönderiyorum ancak döngünün 2nci turunda Picture2 olmasına rağmen tam

Kod: Tümünü seç

(Raporla.FindObject(HangiNesne) as TfrPictureview).Picture.Assign(Image2.Picture); 

bu satırda hata alıyorum...

[ulu coder]

Edit:

[mrmarman]

TfrPictureview tipindeki nesne sayınız nedir ? bir tane olup da raporlama sırasında ürüyorlar gibi düşünüyorsanız yanılıyorsunuz. Hep aynı nesneye atama yapın. Bir öncekinin hükmü ilgili band yazdırılma işleminde sona erer.

[techmaster]

mrmarman cevabınız için teşekkür ederim ama anlamadım biraz daha açabilirmisiniz...

[mrmarman]

- Fastreport formuna kaç tane frPictureview nesnesi koymuştunuz ? Onu sordum.

[techmaster]

formda 8 tane var

[mrmarman]

- Verdiğin aşağıdaki kodda DegerTut değişkenini, döngüden önce sıfırlamayı ihmal etmiyorsun değil mi ?

Kod: Tümünü seç

  for k:=0 to (Sayi-1) do 
  begin 
    HangiNesne:='Picture'+inttostr(DegerTut); 
    (Raporla.FindObject(HangiNesne) as TfrPictureview).Picture.Assign(Image2.Picture); 
    DegerTut:=DegerTut+1; 
  end; 

[akdatilla]

1-programda acces violation hatasını engellemek için şu yöntem
kullanabilirsin sanırım:

Kod: Tümünü seç

for k:=0 to (Sayi-1) do 
    begin 
     HangiNesne:='Picture'+inttostr(DegerTut); 
if Assigned(Raporla.FindObject(HangiNesne)) Then
Begin
     (Raporla.FindObject(HangiNesne) as TfrPictureview).Picture.Assign(Image2.Picture); 
     DegerTut:=DegerTut+1; 
end;
    end; 

2- Sayın mrmarman'ın dediği gibi verdiğiniz kod bloğunda bazı kontrolsüz değişkenler görülüyor. Bu değişkenlerin mutlaka bir başlangıç değeri verilmelidir (Özelliklle Sayi ve DegerTut değişkenleri).