动态创建控件的问题！请高手指点

[wpyyl]

在一个FORM我一次动态创建了很多BUTTON和LABEL 我如何一次性把所有的BUTTON和LABEL
的LEFT和TOP，TAG 保存到数据库中。每个BUTTON和LABEL都是一条记录。都有自己的LEFT和TOP以及TAG保存到数据库

[zlyanyan]

study

[yuanjunjing]

后台加一个表，用一个adodataset连接这个表.

with FORM do
begin
for i := 1 to controlcount - 1 do
begin
if (controls[i] is TLabel) or (controls[i] is TButton) then
begin
adods_temp.append;
adoda_temp.fieldbyname('left').asinteger:=(controls[i] as TWinControl).left;
adoda_temp.fieldbyname('TOP').asinteger:=(controls[i] as TWinControl).TOP;
adoda_temp.fieldbyname('TAG').asinteger:=(controls[i] as TWinControl).TAG;
adods_temp.post;
end;
adods_temp.UpdateBatch();
end;

[lovelymelon]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
i:=form1.ComponentCount;
if i>0 then
begin
for j:=0 to i-1 do
begin
if (form1.Components[j].ClassName='TLabel') or (form1.Components[j].ClassName='TButton') then
begin
form1.ADOTable1.Open;
form1.ADOTable1.Append;
form1.ADOTable1.FieldValues['le']:=(form1.Components[j] as TControl).Left;
form1.ADOTable1.FieldValues['topp']:=(form1.Components[j] as TControl).Top;
form1.ADOTable1.Post;
end;
end;
end;
end;

[ZyxIp]

最好保存到ini 和 XML 中

[wpyyl]

能给我好的解决方法吗。如何动态创建ini文件

[wpyyl]

哦。那有如何来删除其中的的某个LABEL和BUTTON呢

[wpyyl]

lovelymelon在FORM上可以当用到form1.ScrollBox1这个上就不能保存了。是什么原因呀

[ZyxIp]

找本DELPHI入门书看看会比这里更详细大家只能给你一个思路， 具体细节问题要自己解决

[cjfzy]

建立一个结构：
type //存储叶结点信息
PNode=^TNode;
TNode=record
name:string;
left:string;
top:string;
end;
Notes:TList;//记录序列

使用时：
Notes:=TList.Create;
procedure ...
var Note:PNote;
begin
New(Note);
Note^.left:=act;
Note^.top:=serial;
Notes.Add(Note);
end;

[技术的天空]

var
Str: TStringList;
begin
Str := TStringList.Create;
try
Str.Add('内容');
str.savefile('文件名'+'.ini');
finally
str.free;
end;