Array of ChaR da sorun..

[aveysel]

Arkadaşlar aşağıya yazdığım kodda nasıl bir sorun var???

THEN komutunun bulunduğu yerde hata verip duruyor...

Kod: Tümünü seç

procedure TForm1.BitBtn4Click(Sender: TObject);
var
dizidurum:integer;
const
dizi:array[0..10] of char=('0','1','2','3','4','5','6','7','8','9','.');
begin
label1.Caption:='Baglaniyor : '+edit1.Text;
form1.Cursor:=crHourGlass;
//edit1 kontrol ediliyor
 if edit1.Text[1] in dizi then
 begin
 showmessage(edit1.Text[1]+' Dizide ');
 end;
end;

[rsimsek]

bu kod yerine;

Kod: Tümünü seç

if pos(edit1.Text[1], '0123456789.') > 0 dizi then 

bunu yazıp dene.

[salvation]

rsimsek'in de bazı değişikliklerle şöyle bi sonuç çıkıyo:

Kod: Tümünü seç

if pos(edit1.Text[1], dizi) > 0  then

Bu şekilde çalışıyor..

[aveysel]

Yardımlarınız için teşekkürler ancak ( in ) komutu neden çalışmıyor acaba?

Bilgiğim kadarı ile in komutu dizinin içerisinde o eleman varsa true değerini döndürüyor..

Yanlış mı biliyorum ??

[hdayi]

Bildiğim kadarı ile in komutu bir kümede ki bu kümeyi sen belirtiyorsun [] parantez içinde araya virgül koyarak çalışıyor stringde değil.
mesela:

Kod: Tümünü seç

if ay in [aralık,ocak,mart] then 

veya

Kod: Tümünü seç

if harf in [a,b,c,d,e] then

gibi.

Kolay Gelsin...

[gkimirti]

in operatoru sadece kumelere ugulanabilir
ama sen bir diziye uygulamaya calısıyorsun.

[aveysel]

in operatoru sadece kumelere ugulanabilir
ama sen bir diziye uygulamaya calısıyorsun.

içerisinde in komutu kullanılan Örnek bir komut yazabilirmisiniz?

[husonet]

Merhaba,

Küme işlemlerini genelde Matemekci ler kullanır küme işlemlerinin belli operatörleri vardır mesala + opertaörü - öperaterü in aperatörü gibi + operatörü 2 küme ile karşılaştırıldığı zaman birbirinde olmayan küme elamanlarını birleştirme işlemi yapar. - operatörü ise birbirinde bulunan aynı operatörlerin haricindeki operatörleri alır in operatörü de bir elamanın küme içinde olup olmadığına bakar. Bunlar set operatörleri olarak anılır.

Örnek kod yazmak isterdim ama Delphi Makinamda yüklü deil. Akşam'a kadar örnek gelmezse yazarım.

Kolay Gelsin...

[mussimsek]

http://www.delphiturkiye.com/ipobjpas.htm

in kullanımıyla ilgili örnekler var.

Kolay gelsin.

[husonet]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Type
    kume = set of char;
var
    i,h,th,r:kume;
begin

    r := ['0'..'9'];
    h := ['a'..'z', 'A'..'Z'];
    th := ['ı','İ', 'ü', 'Ü','ş','Ş','ö','Ö','ğ','Ğ','ç','Ç'];
    i := ['+', '-', '*', '/'];
    if edit1.text[1] in h then
        ShowMessage('İlk karakter standart harf')
    Else
    if edit1.text[1] in th then
        ShowMessage('İlk karakter Türkçe harf')
    Else
    if edit1.text[1] in r then
        ShowMessage('İlk karakter Rakam')
    Else
    if edit1.text[1] in i then
        ShowMessage('İlk karakter bir islem')
    Else
    if not (edit1.text[1] in h + th + r + i) then
        ShowMessage('İlk karakter harf, rakam ve işlem değil');


end;

Bu örnek bir kitaptan alıntıdır. Küme ve in operatörü ile ilgili bir örnektir. Edit nesnesine girilen String in ilk karakterini kontrol eder.

Kolay Gelsin...