L
lctuchen
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tformsetkc.Button1Click(Sender: TObject);
var kecheng:array of string ;i:integer;
begin
table1.first;
i:=0;
setlength(kecheng,table1.recordcount-1);
while not table1.Eof do
begin
kecheng:=table1.fieldbyname('kcmc').asstring;
table1.Next;
i:=i+1;
end;
end;
var kecheng:array of string ;i:integer;
begin
table1.first;
i:=0;
setlength(kecheng,table1.recordcount-1);
while not table1.Eof do
begin
kecheng:=table1.fieldbyname('kcmc').asstring;
table1.Next;
i:=i+1;
end;
end;