Question

delphi新手求助！ 在线等 ！如何将char型的0或1 转成integer型的0或1

Answer 1

var
a:char;
i:integer;
begin
a:=char(48);
i:=strtoint(a+'');
showmessage(inttostr(i));
end;

char(48) 就是 char型的0
char(49) 就是 char型的1

Answer 2

var
a: Char;
b: Integer;
begin
a := '0';
ShowMessage('char类型a = ' + a);
b := StrToInt(a);
ShowMessage('int类型a = ' + IntToStr(b));
end;
这样你应该理解了吧。

Answer 3

char a='0';
a=(int)a;