Delfi7 обратная функция Char

[mentholl]

функция Char :

var
t := integer; s,m :=string;

begin
t := StrToInt(Edit1.Text);
s := IntToStr(t);
m := Char(t);
Label3.caption := m ;

------------------------------------
а как сделать обратную функцию
штобы симбол с Edit1
превратить в ASCII код в integer ???

[Stilet]

Запросто ord('Символ')

[mentholl]

вот шо пробывал - неработает
работает только ShowMessage

var
Form1: TForm1;
s,i,m :string;
n,t :integer;
C : Char;
A : AnsiChar;

begin
s := Edit1.Text;
// C :='s';
// i :=IntToStr(Ord(C));
// A := StrToChar(s);
// C :='B';
// i := IntToStr(Ord(C));
// ShowMessage(s + ' = '+IntToStr(Ord(C)));
// n:=(Ord(s);

Label3.Caption := s;

// s := IntToStr(t);
//m := Char(t);
Label3.caption := m ;

[mentholl]

написал:

var s :=string; n :=integer;

s := Edit1.Text;
n := ord('s');
Label3.Caption := IntToStr(n);
-----------------------------------


всегда выводит ASCII - 115
а не код введённого симбола

[eoln]

var 
  s :char;
  n :integer;
begin
  s := Edit1.Text[1];
  n := ord(s);
  Label3.Caption := IntToStr(n);
end;

[mentholl]

Ура!
ситакс в Edit1.Text[1];
спасибаки eoln