Delphi 文字转换成数字

Question

procedure TForm1.Button1Click(Sender: TObject);
var num: integer;
begin
num:=strToint(Edit1.Text);
with table1 do
begin
IndexFieldNames:= '学号';
setkey;
FieldByName('学号').Value:= num;
if Gotokey then
begin
Showmessage('查询成功');
Label2.Caption:='该姓名是';
Edit2.Text:=fieldByName('姓名').Asstring;
end
else ShowMessage('查询失败');
end ;
程序 是通过学号(数字)查找到相应的姓名(文字),现在想倒过来(文字)查找到
学号(数字)怎么实现
不对, 跳出错误框,''not a valid intger value

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var num: integer;
begin
num:=strToint(Edit1.Text);
with table1 do
begin
IndexFieldNames:= '姓名';
setkey;
FieldByName('姓名').Value:= Edit1.Text;
if Gotokey then
begin
Showmessage('查询成功');
Label2.Caption:='该学号是';
Edit2.Text:=fieldByName('学号').Asstring;
end
else ShowMessage('查询失败');
end ;

Answer 2

你如果再EIDT1.TEXE里输入姓名肯定会报错了！你用了一个转换函数了！楼上的基本正解但要去掉 num:=strToint(Edit1.Text);本回答被提问者采纳