var a, b: string;Form.Canvas.TextOut(X, Y, a + ' ' + b);
tabbedtext函數huozhetextout函數可以吧
procedure TForm1.Button1Click(Sender: TObject); var a, b: string; x,y:integer; begin x:=100; y:=100; a:='3423'; b:='erwer'; Form1.Canvas.TextOut(X, Y, a + ' ' + b);end;
Delphi是强类型语言,你得先把a,b转换为字符串
如果a.b为Integer:
Edit1.text := IntToStr(a);
Edit2.text := IntToStr(b);
如果a.b为字符型
Edit1.text := a;
Edit1.text := b;
a, b: string;Form.Canvas.TextOut(X, Y, a + ' ' + b);
var
a, b: string;
x,y:integer;
begin
x:=100;
y:=100;
a:='3423';
b:='erwer';
Form1.Canvas.TextOut(X, Y, a + ' ' + b);end;