Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#15

AW: Debug Console oder ähnlich

  Alt 24. Okt 2010, 07:57
Ich habe keine Ahnung wie das zusammen mit VB tickt, aber meinst Du so etwas ??
Delphi-Quellcode:
Type TArray=Array of Variant;
var
  Form1: TForm1;

implementation


{$R *.dfm}
Procedure Trace(Args:Tarray);
var
  i:Integer;
begin
  Form1.Memo1.Lines.Clear;
  for I := Low(Args) to High(Args) do Form1.Memo1.Lines.Add(Args[i])

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    Trace(VarArrayOf(['test',1,'Haus']))
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat