高手们请帮帮我

Question

procedure TF_main.FormShow(Sender: TObject);
begin
 t_teacher_info.Filter:='ID='''+f_login.i_user.Text+'''';
 t_teacher_info.Filtered:=true;
 t_teacher_info.Open;
 f_main.Caption:='课程管理系统用户----用户：'+t_teacher_info['name'];最后一行应该是
 f_main.Caption:='课程管理系统用户----用户：'+t_teacher_info['name'].AsString;

Answer 1

procedure TF_main.FormShow(Sender: TObject);
begin
 t_teacher_info.Filter:='ID='''+f_login.i_user.Text+'''';
 t_teacher_info.Filtered:=true;
 t_teacher_info.Open;
 f_main.Caption:='课程管理系统用户----用户：'+t_teacher_info['name'];＝＝＝＝＝》》改为
 f_main.Caption:='课程管理系统用户----用户：'+t_teacher_info['name'].asstring; 试试　可以吗？？

Answer 2

转换成string类型的用.asstring
转换成integer类型的用.asinteger
以此类推，具体看help,或用format强制转换也可