procedure TFrom1.Button1Click(Sender: TObject);
var
s: string;
p: widechar;
begin
s := '26412'; // '本'
p := WideChar( StrToInt(s) );
ShowMessage(p);
end;
procedure TFrom1.Button1Click(Sender: TObject);
var
s: string;
p: widechar;
begin
s := '26412'; // '本'
p := WideChar( StrToInt(s) );
ShowMessage(p);
end;