excel den alınan bilgi üzerinde işlem yapılamıyor mu?

[zayfin]

excel den veri alıyorum ancak bir döngü içinde alıp aynı zaman da değişken üzerinde matematiksel işlemler yapmak istiyorum, yani excel deki bilgiyi bir denkleme koyup bir sonuç almam lazım ancak olmuyor.
kodun bir örneği aşağıda, bir el atında kaldıralım şu ölüyü
selametle...........

procedure TForm1.Button1Click(Sender: TObject);
begin
excel := createOleObject('Excel.application');
OpenDialog1.Filter := 'Excel Dosyalari (*.xls)|*.xls';
if opendialog1.Execute then
begin
book:= Excel.WorkBooks.Open(OpenDialog1.FileName);

sheet := book.worksheets[1];
str := sheet.cells[1, 1];
edit1.Text:=sheet.cells[1, 1];
burada veriyi alabiliyorum ancak
i:=sheet.cells[1, 1] + 5
i, integer bir değişken excel hücresini i ye atabiliyorum ancak işlem yapmaya gelince
hata veriyor

end;
//ilk beginin ki
end;

end.

[aslangeri]

s.a.
öncelikle hata veriyor ifadesi bize problemin ne olduğu konusunda bir anlam ifade etmiyor. bunun yerine hata mesajını yazarsanız daha net çözümler üretebiliriz.
Ancak hata veren satır ile ilgili ifadeleriniz bize güzel bir ipucu veriyor.
muhtemelen (muhtemelen diyorum çünkü hatanın ne olduğunu bilmiyorum) tip dönüşümü ile ilgili bir sıkıntı var.
sheet.cells[1, 1] den dönen değer in tipi nedir tam belli değil., hem string değiştkenlere atıyorsun hemde intetger değişkenlere.
toplama işlemini şöyle yaparsan sıkıntı olmaz kanaatindeyim.

Kod: Tümünü seç

i:=integer(sheet.cells[1, 1])+5;//bu olmazsa geriye bu kalıyor
i:=sheet.cells[1, 1];
i:=i+5

tabiki burda sheet.cells[1, 1] nin içindeki değerin integer olduğunu varsayıyoruz aksi halde hata verecektir.
kolay gelsin.