تبدیل رشته به کاراکتر

[jafari1]

سلام


لطفا مشکل زیر را به هر طریقی که ممکن است راهنمایی کنید حل کنم

میخواهم کد اسکی تک تک حروف یک رشته را بدست آورم
دستورات زیر را نوشتم ولی خطای نوع میدهد

a:char;
b:string;
b:='ali'
a:=midstr(b,1,1);

[Hamid_PaK]

var
a:char;
b:String;
c:Integer;
begin
b := 'Ali';
for c:= 1 to Length(b) do
ShowMessage(b[c]+' : '+IntToStr(Integer(b[c])));
end;


یا حق !!!

[jafari1]

از لطف شما سپاسگزارم

[MiRHaDi]

سلام
ord(Str[index]);
بای