символы

[nina122222]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
begin
   a:=edit1.text;
   b:=edit2.text;
   label1.caption:=inttostr(ord(a));
   label2.caption:=inttostr(ord(b));
   if inttostr(ord(a))> inttostr(ord(b)) then
       label3.caption:=inttostr(ord(a))
       else label3.caption:=inttostr(ord(b));
end;

что не правильно, помогите

[Stilet]

Все. Ord() не умеет работать со строками. Максимум что можно: ord(a[1]), но это скорее глупость. Задача в чем? Получить коды символов строки?

function strtocode(s:String):String;
var i:integer;
begin Result:=''; for i:=1 to Length(s) do Result:=Result+inttostr(ord(s[i]))+' ';end;

И

label1.caption:=strtocode(edit1.text);