自己添一个 Form ,名称定为 Debug, 上面放一个 Memo,再添一个 Print 方法即可模拟 procedure TForm1.Print(Args:array of Variant); var i:Integer; begin for i:=Low(Args) to High(Args) do if VarIsNumeric(Args[i]) then Memo1.Text:=Memo1.Text+FloatToStr(Args[i]) else if VarIsStr(Args[i]) then Memo1.Text:=Memo1.Text+Args[i] else Memo1.Text:=Memo1.Text+' '; Memo1.Text:=Memo1.Text+#$D#$A; end;procedure TForm1.Button1Click(Sender: TObject); begin Print([1,'2',11.11]); end;
上面放一个 Memo,再添一个 Print 方法即可模拟
procedure TForm1.Print(Args:array of Variant);
var
i:Integer;
begin
for i:=Low(Args) to High(Args) do
if VarIsNumeric(Args[i]) then
Memo1.Text:=Memo1.Text+FloatToStr(Args[i])
else if VarIsStr(Args[i]) then
Memo1.Text:=Memo1.Text+Args[i]
else
Memo1.Text:=Memo1.Text+' ';
Memo1.Text:=Memo1.Text+#$D#$A;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Print([1,'2',11.11]);
end;