怎么样才能象C#或VB那样从DEBUG窗口输出调试信息

Question

RT
就像VB的DEBUG.PRINT
或像C#的WRITELN
在DELPHI中好象也有个WRITELN可功能不一样,不知道应该用什么来做

Answer 1

自己添一个 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;