String ile char arasında çevrim

[karflake]

Kod: Tümünü seç

if copy(listbox1.Items[i],1,1) in ['Ç','ç','Ğ','ğ','İ','ı','Ö','ö','Ş','ş','Ü','ü'] then continue;

şeklinde bir kod yazdığım zaman Delphi 7, copy fonksiyonu string tipinde sonuç döndürdüğünden haklı olarak "Incompatible types 'String' and 'Char' hatası" veriyor.

Gerçi bu durumda tmp isimli bir string değişken tanımlayıp

Kod: Tümünü seç

  tmp:=copy(listbox1.Items[i],1,1);
  if tmp[1] in ['Ç','ç','Ğ','ğ','İ','ı','Ö','ö','Ş','ş','Ü','ü'] then continue;

şeklinde bir takla atılarak sorun çözülebiliyor.

Daha uygun bir yol var mı?

[mrmarman]

Merhaba.

... şeklinde bir kod yazdığım zaman Delphi, copy fonksiyonu string tipinde sonuç döndürdüğünden haklı olarak ...

- Sonuç string olarak döndüğü için dediğinizde zaten kendi sorunuzun cevabını vermişsiniz demek olmuyor mu ?

- String ifade tek karakter de olsa çok karakter de olsa [1] dediğinizde ilk ve/veya tek harfi elde ettiğinizi biliyoruz...

Kod: Tümünü seç

if listbox1.Items[i][1] in ['Ç','ç','Ğ','ğ','İ','ı','Ö','ö','Ş','ş','Ü','ü'] then continue;

şeklinde kullanmanız kod sadeliği ve işlevi adına daha uygun olurdu...

- Aşağıdaki şekilde de sizin kodunuzda [1] eklenerek yapılmış hali inceleyin... Alttaki çizgi eklenen yeri işaret ediyor..

Kod: Tümünü seç

if copy(listbox1.Items[i],1,1)[1] in ['Ç','ç','Ğ','ğ','İ','ı','Ö','ö','Ş','ş','Ü','ü'] then continue;
//............................---

[karflake]

... listbox1.Items[1] ...

şeklinde bir kullanım olabileceğini hiç düşünmemiştim . Teşekkürler.

[mrmarman]

Memnun oldum...

- Sadece hep hatırlamanı istediğim nokta şu ki;

- Bir fonksiyonun sonucu hangi tipi döndürüyorsa; o fonksiyonu, o tipteki bir değişken gibi düşünebilirsin...

- Tabi bu sadece fonksiyondan bilgi alırken geçerli, tersi yönde bu tipe veri akışı sen de takdir edersin ki doğal olarak yasak...

- Çalışmalarında başarılar...