代码搜索:Create
找到约 10,000 项符合「Create」的源代码
代码结果 10,000
www.eeworm.com/read/179788/9337306
pas point.pas
unit Point;
interface
type
TMyData = Class( TObject )
private
X: Integer;
Y: Integer;
public
constructor Create( const X, Y: Integer ); overload;
procedure Access( var X, Y: In
www.eeworm.com/read/179788/9337308
pas link.pas
unit Link;
interface
uses
Point, Table, Qt, SysUtils, Types, Classes, Variants, QGraphics, QControls,
QForms, QDialogs, QStdCtrls;
type
TFrmMain = class(TForm)
Memo: TMemo;
BtnAdd: TB
www.eeworm.com/read/179788/9337326
~pas main.~pas
unit Main;
interface
uses
SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
QStdCtrls, QExtCtrls;
type
TFrmMain = class(TForm)
BtnShow: TButton;
RadGrpClassT
www.eeworm.com/read/179788/9337337
desk prjpolym.desk
[Closed Files]
File_0=SourceModule,'/root/progress/mtdvrtl/Main.pas',0,1,64,19,69,1,0
File_1=SourceModule,'/root/progress/mtdvrtl/Shapes.pas',0,1,30,17,32,0,0
File_2=SourceModule,'/root/progress/mtdst
www.eeworm.com/read/179788/9337344
~desk prjpolym.~desk
[Closed Files]
File_0=SourceModule,'/root/progress/mtdvrtl/Main.pas',0,1,64,19,69,1,0
File_1=SourceModule,'/root/progress/mtdvrtl/Shapes.pas',0,1,30,17,32,0,0
File_2=SourceModule,'/root/progress/mtdst
www.eeworm.com/read/179788/9337353
pas main.pas
unit Main;
interface
uses
SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
QStdCtrls, QExtCtrls;
type
TFrmMain = class(TForm)
BtnShow: TButton;
RadGrpClassT
www.eeworm.com/read/179788/9337385
~desk prjmsg.~desk
[Closed Files]
File_0=SourceModule,'/root/progress/formcrtr/FormType.pas',0,1,116,1,138,1,0
File_1=SourceModule,'/root/progress/formcrtr/NewForm.pas',0,1,1,19,4,1,0
File_2=SourceModule,'/root/progress
www.eeworm.com/read/179788/9337406
desk prjmsg.desk
[Closed Files]
File_0=SourceModule,'/root/progress/formcrtr/FormType.pas',0,1,116,1,138,1,0
File_1=SourceModule,'/root/progress/formcrtr/NewForm.pas',0,1,1,19,4,1,0
File_2=SourceModule,'/root/progress
www.eeworm.com/read/179788/9337415
~pas shapes.~pas
unit Shapes;
interface
uses
SysUtils, Classes, Types, QGraphics;
type
TGeoShape = class( TObject )
public
procedure Draw( Canvas: TCanvas );
end;
TGeoPoint = class( TGeoShape )
www.eeworm.com/read/179788/9337419
pas shapes.pas
unit Shapes;
interface
uses
SysUtils, Classes, Types, QGraphics;
type
TGeoShape = class( TObject )
public
procedure Draw( Canvas: TCanvas );
end;
TGeoPoint = class( TGeoShape )