String değeri Char tipine çevirmek

[MehmetZahit]

s.a.

strDeger --> 'A' string veya WideStirng tipindeki bir değişkeni Char tipinde bir değişkene nasıl çevirebilirim?

chrDeger := ??

[serkan]

Kod: Tümünü seç

VAR
s:string;
begin
s:='AAAAA';
pchar(s)

end;

[MehmetZahit]

hızlı cevabınız için teşekkürler ama benim istediğim, string değişken içinde 'A' gibi tek karakterlik bir deger var, char tipinde bir değişkene aktarmak istiyorum. char tipindeki bir veriyi case .. of ile kullanabiliyoruz.

case chrDeger of
'A' : .....
'B' : ....


gibi

yapmak istediğim strDeger değişkeninin değerini if'ler ile degil, case ile kıyaslamak istiyorum.

[Hakan Can]

String bir değişkeni Char bir değişkene atamak için:

Ch := St[1];

diyebilirsin. Ama St değişkeninin en az bir karakter olması gerekiyor. Garanti olsun diye:

St := St + 'X';
Ch := St[1];

diyebilirsin.

Maksadın "Case Of" ile kullanmak ise direk string değişkeni bu şekilde kullanabilirsin:

case St[1] of
'A': ..
else
..
end;

[MehmetZahit]

Teşekkür ederim hocam, sorun çözüldü.

Peki String değilde WideString olunca durum nasıl oluyor?

elimde bir webservisin sonucu var. Tipi widestring.

Cevap.Deger = 'A' olarak widestring tipinde dönüyor.

case Cevap.Deger[1] satırında "Incompatible Types (char) and (WideChar) " hatası veriyor.

tabiki bu değişkeni normal bir string değişkene atıp söylediğiniz yöntemi uygulayabiliriz. Sizin daha güzel bir yönteminiz varmı?

[Hakan Can]

Şu örnekte çözüm olabilir:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Ws: WideString;
begin
  Ws := Edit1.Text + 'A';
  case string(Ws)[1] of
    'A': ShowMessage('A Bildiniz...');
    'B': ShowMessage('B Bildiniz...');
    'C': ShowMessage('C Bildiniz...');
  else
    ShowMessage('Tutmadı...');
  end;
end;

[MehmetZahit]

Şu örnekte çözüm olabilir:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Ws: WideString;
begin
  Ws := Edit1.Text + 'A';
  case string(Ws)[1] of
    'A': ShowMessage('A Bildiniz...');
    'B': ShowMessage('B Bildiniz...');
    'C': ShowMessage('C Bildiniz...');
  else
    ShowMessage('Tutmadı...');
  end;
end;

Hocam işte bu tam çözüm oldu, ellerine sağlık...