procedure TForm1.FormCreate(Sender: TObject); var s:string; a:integer; b:Single; begin a:=3; b:=108.4; s:= Format('xx is %.*f',[a,b]); self.Caption:=s; end;
procedure TForm1.FormCreate(Sender: TObject); var s:string; a:integer; b:Single; begin a:=3; b:=108.4; s:= Format('xx is %.*f',[a,b]); self.Caption:=s; end;