function isimbul

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
abdulkadir
Kıdemli Üye
Mesajlar: 489
Kayıt: 13 Eyl 2003 09:10
Konum: istanbul
İletişim:

function isimbul

Mesaj gönderen abdulkadir »

Merhaba lar
Arkadaslar söyle bir function yazdım
Calısıyor ve olması gerektigi gibi dogru sonuc veriyor Ancak
Extra olarak
HATA"
[Warning] AklWebPro.pas(357): Variable 'islem' might not have been initialized
"

Kod: Tümünü seç

function TAkl.isimBul(Kategori: string):integer;
var
  islem:integer;
   begin
if Kategori='Ali' then
      islem:=0;
if Kategori='Ahmet' then
      islem:=1;
if kategori='Mehmet' then
      islem:=2;
Result:=islem;
end;
Gelen string i ayıklayıp case işlemine yolluyorum

Kod: Tümünü seç

Case isimBul(kategori) of
0: Begin
///kodlar
end;
End;
:arrow: hata mesajı result edilmesi gereken string olmalı der gibi

Birde ayıklanan string sayısı simdilik 3 ama 15 e kadar cıkınca
kasıntı olusacak gibime geliyor

Baska nasıl olabilir ne tavsiye edersiniz

Sevgiler
Kullanıcı avatarı
gkimirti
Admin
Mesajlar: 1956
Kayıt: 02 Eyl 2003 04:44
Konum: İstanbul

Mesaj gönderen gkimirti »

islem degşskenine procedure basında bi deger atamamıssın
eger islem if kriterleinden hic birine girmezse (olabilir) donen islem degiskeni abuk subuk bi sayı oolacak
eger proceduer basında islem:=-1 gibi bir deger atarsan ve -1 ifadesinide hic kayıt bulunamadı diye degerlendirirsen sorun cıkmaz

arama islemini bu sekilde degilde tablolarla yapsan daha mantıklı
ÜŞENME,ERTELEME,VAZGEÇME
abdulkadir
Kıdemli Üye
Mesajlar: 489
Kayıt: 13 Eyl 2003 09:10
Konum: istanbul
İletişim:

Mesaj gönderen abdulkadir »

Hocam tesekkür ederim

islem:=-1; ile düzeldi

Hocam bu işlemle veritabanı ile alakalı birseyler yapmıyorum

biraz string ayıklamam gerekiyor
tesekkür ederim.

hayırlşı işler.
Cevapla