Out of memory hatası

[tuanna]

Ben web servisini kullanarak bir exceldeki tc kkimlikleri kontrol edip siteden onların geri değer olarak adı soyadı ve doğum tarihlerini excel dosyasına geri dönen bir program yazdım....ama Program web servisinde su fonksiyonu gönderiyor....
-----------------------------------------------------------------------
function TForm1.KimlikNoDogrula(const KimlikNo: Int64): TCKimlikNoDogrulamaSonucu;
var
Sonuc: TCKimlikNoDogrulamaSonucu;
Begin


try
result:=KPS.TCKimlikNoDogrula(KimlikNo);
except

end;
end;
--------------------------------------------------------------------

aşağıdaki kod boloğu ile açılan excel dosyasının değerlerin alınması için döndüye sokuyorum...ama fonksiyon sonucunda hatalı bir tc kimlik no olursa program hata veriyor... ve döngüden çıkıyor...Ama Fonksiyonda

--------------------------------------
try

except

end;

--------------------------------------
Bloğunu kullandım ama bu seferde program

---------------------------------------------------
"Out of Memory " diye hata veriyor....Bu durumda ne yapabiliriz....

----------------------------------------------------

procedure TForm1.suiButton2Click(Sender: TObject);
var
Sonuc: TCKimlikNoDogrulamaSonucu;
begin
ADOTable1.First;
while not Adotable1.Eof do
begin
if Assigned(sonuc) then
begin
Sonuc:=KimlikNoDogrula(ADOTable1.FieldList.Fields[0].Value);
ADOTable1.Edit;
ADOTable1.FieldList.Fields[1].Value:=sonuc.Ad;
ADOTable1.FieldList.Fields[2].Value:=sonuc.Soyad;
ADOTable1.FieldList.Fields[3].Value:=sonuc.DogumYil;
ADOTable1.Post;
ADOTable1.Next;
end
else
begin
ADOTable1.Edit;
ADOTable1.FieldList.Fields[1].Value:='Bulunamadı';
ADOTable1.FieldList.Fields[2].Value:='Bulunamadı';
ADOTable1.FieldList.Fields[3].Value:='Bulunamadı';
ADOTable1.Post;
ADOTable1.Next;
end;
end;
end;

[csyasar]

kardeş bazen kayıt girişi yaptıktan sonra rapor almaya filan çalışırken sonsuz bi döngüye kapılıp out of memory hatası verebiliyor. sorgu yapacağın ve kayıt girişi yapacağın tabloları ayır. o şekilde sorgu yapmayı dene.

[tuanna]

Söylediğini anlıyorum ama ben direk excel dosyasına bağlanıyorum
bağlandığım excel dosyasındaki değerleri döndürüyorum...

[fduman]

Program hangi satırda hatayı veriyor?

[ademcicek]

bende aynı hatayı alıyorum.ama satırı yok.tabloyu open ettiğimde bu hatayı alıyorum.böyle bir şeyle karşılaşan varmı.

[ademcicek]

galiba bendeki sorun cxgrid den kaynaklı.çok fazla kayıt çekiyor sonrada saçmalıyor.