需要引用strUtils
unit Unit1;
interface
uses
type
var
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;
结果显示
需要引用strUtils
unit Unit1;
interface
uses
type
var
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
begin
end;
结果显示