怎么才能多次向文本文件添加记录！！？？？
1.请问怎么样才能多次向文本文件添加记录！！？？？
2.并能将个条记录按标识符提出，导入数据库！！！！
例如：有两个edit，在其中分别输入学籍号和姓名，然后导出成为文本文件，多次的输 入
后在通过文本文件。然后在把个条记录按学籍号和姓名导入到数据库！！！！！
问题点数：80、回复次数：10Top
1 楼netlib（河外孤星）回复于 2002-07-20 16:54:36 得分 10
1、
var
s : string;
begin
Write('Enter a line of text: ');
Readln(s);
Writeln('You typed: ',s);
Writeln('Hit <Enter> to exit');
Readln;
end;
多用Wrinteln
2、读出用Readln，上面例子里也有，读出来后自己处理。Top
2 楼feng0399（feng）回复于 2002-07-20 16:57:09 得分 0
我是想通过多次响应button来添加记录？？？？
Top
3 楼feng0399（feng）回复于 2002-07-20 16:59:43 得分 0
导出到数据库的时候应该具体如何，把文本文件中的内容，逐条添加到数据库、中！
请具体的写出响应的代码！Top
4 楼netlib（河外孤星）回复于 2002-07-20 17:26:47 得分 8
我觉得你的思想不对，你老让别人帮你写代码，
那对你没好处，这些都是些基本的东西，建议你自己写。
1、如果你在用button
就把这句Writeln('You typed: ',s);写到里面，找开文件的写到oncreate
也可以第次都重新打开，但浪费资源
2、用query1.append;
query1.fieldbyname('name').asstring:=...
...
向数据库中写。Top
5 楼jack_4826（天下无双）回复于 2002-07-20 22:52:40 得分 10
使用append(f);Top
6 楼johnsonrao（johnson）回复于 2002-07-20 23:35:19 得分 10
用一个TStrings类型来作中间处理，处理完后再用SaveToFile保存Top
7 楼draclosta（龙云星）回复于 2002-07-20 23:47:00 得分 30
1。输出到文本：
var
F: TextFile;
ID: String[8];
Name: String[8];
begin
AssignFile(F,'table.txt');
Append(F);
ID := text1.text;
Name := text2.text;
try
Writeln(F,ID,Name);
finally
CloseFile(F);
end;
2.导入数据库
var
F: TextFile;
ID: String[8];
Name: String[8];
begin
tbl.Open;
AssignFile(F,'table.txt');
Reset(F);
try
while not Eof(F) do
begin
Readln(F,ID,Name);
tbl.Insert;
tbl['ID'] := ID;
tbl['Name'] := Name;
tbl.Post;
end;
finally
CloseFile(F);
end;
Top
8 楼kinvb（飞雪）回复于 2002-07-21 00:04:14 得分 10
我说说我的思路啦！你首先在文本中取出每一行，作为记录。
而你要在数据表中的每一条记录作为一个文本的行写进文本文件中.\Top
9 楼draclosta（龙云星）回复于 2002-07-21 00:27:08 得分 2
趁各位高手在此,小弟顺带求教：我现在想从已有的数据库中的记录，在文本文件中查找相应的记录并进行比较。现在我有以下几种方法：
1.将文本文件的内容写入临时的数据表中，进行两个数据表的比较。但是准备工作似乎稍嫌麻烦。
2.用一个结构读入每一行的内容，然后构造一个该结构的数组，每次在数组里循环查找。找到后进行比较，找不到说明不存在相应的记录。
哪位大哥有更好的方法，请不吝赐教，小弟谢过了！
Top
