bde 吗？gettablename
With Table1do
begin
For i:=0 to FieldCount-1do
begin
S:='';
s:=S+Fields.Fieldname;
If length(S)<16 then
S:=S+Space(16-length(S));
case (Fields.dataType) of
ftString: S:=S+' CHAR('+IntToStr(Fields.dataSize-1)+')';
ftInteger: s:=S+' Integer';
ftSmallInt: s:=S+' Integer';
ftFloat: s:=S+' Float';
ftdate: s:=S+' DateTime';
else
s:=s+' ';
end;
S:=S+' NULL';
If i<FieldCount-1 then
S:=S+',';
List.Lines.Add(s);
end;
List.Lines.Add(')');
List.Visible:=False;
List.Visible:=True;
end;
不会vc
