Array tanımlama hakkında

[Lost Soul]

S.A.

Kod: Tümünü seç

const CharSet :array['A'..'Z','a'..'z']of char=('A','B'..... 'Z')

satırında değişkenleri 'A','B' şekline değil de

Kod: Tümünü seç

array['A'..'Z','a'..'z']

kısmında olduğu gibi ['A'..'Z','a'..'z'] şekline kısayoldan nasıl tanıtabiliriz.

Not : For döngüsü kullanmadan const kısmında tanımlanmalı.

Şimdiden teşekkürler.

[mrmarman]

Ortaya bir karışık atıyorum, içinden dilediğin kadarını kullan.

Kod: Tümünü seç

const
  Harfler = ['A'..'Z', 'a'..'z', 'ç', 'ö', 'ş', 'ı', 'ğ', 'ü', 'Ğ', 'Ü', 'Ş', 'İ', 'Ö', 'Ç', '1'..'9', '0', '.', ',', '/', '-', '_', '*', '?', '\', '+', '#', '$', '^', '=', '+', '-', '!', '%', '&', #39, #34];

Sonrada kontrol için IF kurgunu şu şekilde yapıcan..

Kod: Tümünü seç

  If Harf in Harfler then begin
    ...
    ...
  end;

[Lost Soul]

Ortaya bir karışık atıyorum, içinden dilediğin kadarını kullan.

Kod: Tümünü seç

const
  Harfler = ['A'..'Z', 'a'..'z', 'ç', 'ö', 'ş', 'ı', 'ğ', 'ü', 'Ğ', 'Ü', 'Ş', 'İ', 'Ö', 'Ç', '1'..'9', '0', '.', ',', '/', '-', '_', '*', '?', '\', '+', '#', '$', '^', '=', '+', '-', '!', '%', '&', #39, #34];

Sonrada kontrol için IF kurgunu şu şekilde yapıcan..

Kod: Tümünü seç

  If Harf in Harfler then begin
    ...
    ...
  end;

sanırım yanlış anlaşıldı benim demek istediğim

Kod: Tümünü seç

const CharSet :array[0..49]of char=(
'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','y','z');

satırını

Kod: Tümünü seç

const CharSet :array[0..49]of char=('A'..'Z','a'..'z'')

benzeri bi şekilde yazabilmek.
Böylece bi üstteki kod gibi destan yazmamak.

[mrmarman]

Hımm.

- Bildiğim kadarıyla malesef....

- CONST değil de GLOBAL olarak VAR dinamik veya statik olarak diziyi belirleyip, FormCreate olayında sıralı olarak eski method döngüyle kurmak lazım gelecek.