呵呵
procedure TMainForm.btnReadCapitalsClick(Sender: TObject);
var
{$H +}
F: TextFile;
Bh: String[20];
Mc: String[20];
Jg :String[20];
begin
DrQuery.Open;
if Opendialog1.Execute
AssignFile(F, Opendialog1.FileName);
Reset(F);
try
while not Eof(F) do
begin
Readln(F, Bh,Mc,Jg);
with DrQuery do
begin
Insert;
FieldByName('Bh').AsString := Bh;
FieldByName('Mc').AsString := Mc;
FieldByName('Jg').AsString := Jg;
Post;
end;
end;
finally
CloseFile(F); // Close the file when finished.
end;
end;
先说明啊,没有调试,是在这儿随便写的,如果用不成了,就当是灌水:)