Question

delphi 如何读txt文件，把数据写入数据库（请高手）

数据如下
各月日数和累年各月出现频率
***************************************************************************************
* 年\月 1 2 3 4 5 6 7 8 9 10 11 12 :全年 *
*-------------------------------------------------------------------------------------*
* 1995 : 7 8 6 1 5 6 4 9 4 10 10 8 : 78 *
* : : *
* 1996 : 4 13 10 11 2 3 4 3 11 8 12 10 : 91 *
* 1997 : 5 17 6 5 6 2 6 4 12 2 2 5 : 72 *
* 1998 : 13 16 12 8 3 3 5 2 3 4 8 9 : 86 *
* 1999 : 11 2 10 5 7 3 6 4 3 10 12 14 : 87 *
* 2000 : 7 7 6 8 5 4 4 3 3 9 8 8 : 72 *
* : : *
* 2001 : 6 4 10 4 6 5 3 4 6 8 6 10 : 72 *
* 2002 : 5 2 4 0 4 0 7 2 9 3 5 9 : 50 *
* : : *
* : : *
* 71-00 : 54 79 78 50 28 32 31 34 44 59 56 61 : 606 *
* 频 率 : 18 28 25 17 9 11 10 11 15 19 19 20 : 17 *
* : : *
* 55- 2 : 44 61 61 40 25 26 26 28 38 50 46 50 : 495 *
* 频 率 : 14 22 20 13 8 9 8 9 13 16 15 16 : 14 *
***************************************************************************************

Answer 1

读 txt 是这样的
定义一个txt变量:var txt:Text;
然后关联它到一个文件:assignfile(txt,'文件路径')
然后判断文件路径的文件是否存在.if fileexits('') then reset(txt)
然后就是看你怎么读取了,比如说读取一行readln(txt,字符串变量)
比如说读取5个,read(txt,变量,5)

怎么写入数据库,就不说了,应该很简单的.
好了.

Answer 2

var
f: TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Append(f);
Writeln(f, '这里是要写入TXT的内容');
Flush(f);
CloseFile(f);
end;
end;