memo'nun içindeki karakterlerin ASCII kodu nasıl bulunur.

[hdayi]

Merhaba,
text bir dosyadan yüklediğim bir memom var ve bunun içindeki karakterlerin ASCII kodlarını bulmam gerekiyor, nasıl bulabilirim?

Kod: Tümünü seç

ord(copy(memo1.lines[0],1,1))

gibi bişeyler denedim olmadı

[gkimirti]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
 ch:Char;
begin
  ch:=memo1.lines.strings[0][1];
  ShowMessage(IntToStr(Ord(ch)));
end;

[hdayi]

Gökmen Allah senden razı olsun.
Senden derken diğer arkadaşlar alınmasın, Allah onlardan da razı olsun

Teşekkürler