var
I: Integer;
begin
with TStringList.Create do try
LoadFromFile('<FileName>');
for I := 0 to Count - 1 do begin
Table1.Append;
Table1['<FieldName>'] := StrToDateTime(Strings[I]);
Table1.Post;
end;
finally
Free;
end;
end;
I: Integer;
begin
with TStringList.Create do try
LoadFromFile('<FileName>');
for I := 0 to Count - 1 do begin
Table1.Append;
Table1['<FieldName>'] := StrToDateTime(Strings[I]);
Table1.Post;
end;
finally
Free;
end;
end;
可用文件类(类名称记不清了,你查查看含有File的帮助)按行读出来处理即可