unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,db,
StdCtrls;type
StringField = class(TObject)
public
FieldName:string;
Value:string;
DataSize:integer;
DataType:TFieldType;
constructor Create();
end; sfield=class(Tobject) public
s:array of stringfield; end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
b:sfield;
i,j:integer;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}{ StringField }constructor StringField.Create;
beginend;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;begin b:=sfield.Create(); setlength(b.s,100); setlength(b.s,100); for i:=0 to 99 do
begin
b.s[i]:=stringfield.Create();
end;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i:integer;
begin
for i:=0 to 99 do
begin
b.s[i].Free;
b.s[i]:=nil;
end; b.Free;
b:=nil;
end;end.
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,db,
StdCtrls;type
StringField = class(TObject)
public
FieldName:string;
Value:string;
DataSize:integer;
DataType:TFieldType;
constructor Create();
end; sfield=class(Tobject) public
s:array of stringfield; end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
b:sfield;
i,j:integer;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}{ StringField }constructor StringField.Create;
beginend;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;begin b:=sfield.Create(); setlength(b.s,100); setlength(b.s,100); for i:=0 to 99 do
begin
b.s[i]:=stringfield.Create();
end;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i:integer;
begin
for i:=0 to 99 do
begin
b.s[i].Free;
b.s[i]:=nil;
end; b.Free;
b:=nil;
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货