Unicode Karekterleri

[Laz61]

Merhabalar

Richedite yazilmis ascii ve Unicode karekterlerini kontrol ederek bir labelin captionunda, sayisal degerlerini teker teker göstermek istiyorum. Ascci koddan ziyade unicode'yi basaramadim.

Selamlar

[Laz61]

Arkadaslar Merhaba

Bu soruyu daha önce sormustum. Meramimi yenileyerek bir kod örnegiyle anlatayim.

procedure TForm1.TntRichEdit1SelectionChange(Sender: TObject);
begin
if TntRichedit1.text[TntRichedit1.selstart+1] =#9786 then
TntEdit1.Text:='$263a';

if TntRichedit1.text[TntRichedit1.selstart+1] =#9787 then
TntEdit2.Text:='9787';
end;

Kodda oldugu gibi her karaktere ayri ayri kod yazarak editte göstermektense bu isin daha basit bir yöntemi yokmu. Takriben bin karaktere ayri ayri örnekte oldugu gibi kod yazmam gerekiyor.

Selamlar

[unicorn64]

Kod: Tümünü seç

procedure TForm1.TntRichEdit1SelectionChange(Sender: TObject);
var
   c:char;
begin
  c:= TntRichedit1.text[TntRichedit1.selstart+1];
  TntEdit1.Text:=inttostr(ord(c));
end;

[Laz61]

Merhaba Arkadaslar

Unicorn64 tesekür ederim. Kodu calistirdim. Yalniz degisken ''char' degil ''widechar'' olmasi lazim bu sekilde kod calisti. Örnegin icin tesekkür ederim. Örnegin bu sekilde olabilecegini düsünememistim.

Hosca kalin