pdynamicform.dpr

来自「Delphi basic program. Basic programing」· DPR 代码 · 共 20 行

program PdynamicForm;

uses
  Forms,
  DynamicDemo in 'DynamicDemo.pas';

{$R *.res}
var
  str: string;
begin
  Application.Initialize;
  str := '聪明的程序员用Delphi,           FT  ,vc太烦了，不是么？     ';
  while Length (str) < 2000 do
  begin
    str:=str+str;
  end;
  ShowStringForm (str);//创建窗体
  Application.Run;
end.