（数据#192）请问如何取出数字192

[qlonsh]

procedure TForm1.Button1Click(Sender: TObject);
var
date:char;
str:string;
begin
date:=#192; //date为char类型的数据，值为#192

str：=代码。。。。 //怎样才能把192从字符里取出，并以字符串的格式显示给Str变量
label1.caption:=str
end;

[Harryfin]

IntToStr(ord(#192))

[genispan]

ord()函数 把ASCII转化为对应的字符

[genispan]

错了 是序数

[yuqianyi1974]

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  dat:string;
begin
  str:='aad'+#192+'ttt';
  dat:=copy(str,pos(#192,str),1);    //怎样才能把192从字符里取出，并以字符串的格式显示给Str变量
  label1.caption:=dat;
end;

[zhao_yong]

procedure TForm1.Button1Click(Sender: TObject);
var
date:char;
str:string;
begin
date:=#49;
str:=Char(date);
ShowMessage(str);
end;
试一下

[qlonsh]

var
i: integer;
s: string;
begin
i:=ord(#192);
s:= inttostr(i);
showmessage(s)
呵呵，就这样解决啦