问题简单，送高分！！送高分

[liwenting]

如何将一个字符串(string)转换为整型（integer）?

[lijinghe1]

????????????????????

strtoint

[liwenting]

对不起，我说错了，是如何将一串十六进制的数字例如'ff01aa'转化为integer型（16712106）？

[楚人无衣]

天哪！
var
i: Integer;
s: string;
begin
s := '12';
i := StrToInt(s); {i = 12}
s := 'sea';
i := StrToIntDef(s, 0); {i = 0}
end;

[江宁侯哥]

strtoint()或者
strtointdef()
看一下delphi关于这两个函数的帮助吧
F1

[tellyes]

用strtoint()函数，如：
var i:integer;
s:string;
begin
s:='asdfajs;dfkajsfd';
i:=strtoint(s);
end;

反过来要把整数转换为字符串则用inttostr()

[楚人无衣]

Edit1.Text := IntToStr(StrToInt('$' +'ff01aa'));

[江宁侯哥]

procedure TForm1.Button1Click(Sender: TObject);
var
str :string;
i :integer;
begin
str :='ff01aa';
i :=strtoint('$'+str) ;
showmessage(inttostr(i));
end;

[miky]

还是StrToInt不过记得String前面要有个‘$'

[hch_45]

StrToInt() StrToIntDef()

[pupil2003]

strtoint('$'+'ff01aa')

[22932565]

strtoint();
inttostr();
strbool();

[dongfanghui]

两个都可以：
function StrToIntDef(const S: string; Default: Integer): Integer;
function StrToInt(const S: string): Integer;
看一下DELPHI的帮助，很简单的。

{
从文本中分解出16进制数据，返回这些8位数据组成的字串。
规则：
1。数据是用十六进制表示的8位数据（如FC，3D）。
2。每个数据只取最后两个16进制字符。
3。每个数据间用空格或回车换行等隔开。}

procedure GetDataFromText(str:String;var lens:integer;var results:string);
var i, p1, p2: Integer;
begin
Results := '';
lens:=0;
while str <> '' do
begin
i := 0;
p1 := Pos(' ',str);
p2 := Pos(#13#10,str);

if p1=1 then
begin Delete(str,1,1); continue; end;
if p2=1 then
begin Delete(str,1,2); continue; end;

if (p1=0) and (p2=0) and (str<>'') then
begin
i := StrToIntDef('$'+str,0);
//Delete(str,1,Length(str));
Delete(str,1,2);
end;
if ((p1>0) and (p2=0)) or
((p1>0) and (p2>0) and (p1<p2)) then
begin
i := StrToIntDef('$'+Copy(str,1,p1-1),0);
Delete(str,1,p1);
end;
if ((p1=0) and (p2>0)) or
((p1>0) and (p2>0) and (p1>p2)) then
begin
i := StrToIntDef('$'+Copy(str,1,p2-1),0);
Delete(str,1,p2+1);
end;
inc(lens);
Results := Results + Chr(i);
end; // while
end;

[tangren]

没错,StrToInt

[wintergoes]

我不多说了..

[chenxiao223]

没错,StrToInt


hehe ,哈哈!看3楼啊