ShowMessage 必须得转换成字符串才OK
能不能像VB一样 不要这么麻烦呢
每当测试变量的时候还得各种转换
要崩溃的
我想要类似VB的msgbox 不管什么类型的都可以弹出
自己写个过程,应该怎么写请前辈们支招,唯一的目的就是不管什么类型的都能弹出消息
别每次都去转换类型 累的慌啊


pascal是强类型的，和VB这种弱类型的不一样。

procedure MsgBox(const vMSG: Variant);
begin
ShowMessage(vMSG);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a: Integer;
b: Char;
c: String;
begin
a:= 100; b:= 'G'; c:= 'Hello world!';
MsgBox(a);MsgBox(b);MsgBox(c);
end;
就这样了，不过不推荐用Variant类型。

procedure msgbox(aMsg: variant);
begin
ShowMessage(VarToStr(aMsg));
end;
最后这样了 直接传递变量 变体转字符了
不知道有后遗症没 

不想用Variant类型，用方法重载也行，就这样：
procedure MsgBox(iMsg: Integer); overload;
begin
ShowMessage(IntToStr(iMsg));
end;
procedure MsgBox(iMsg: Double); overload;
begin
ShowMessage(FloatToStr(iMsg));
end;
只不过你要提前写好几个同名函数，只是参数不同而已。

把经常用到的整理下，编程搞列表对照下，下次一点击不就来了~~你那列表的没有还不一样得现加