Question

请问高手们，在delphi语言里，如何读取数据库中每一行数据，比如字段名为useid,username,age,sex 补充如下

请问高手们，在delphi语言里，如何读取数据库中每一行数据，比如字段名为useid,username,age,sex
001 刘心 22 男
002 李峰 23 男
003 李婷 22 女
。。。。。。。。
一共很多条记录，要把每一行的数据都读出来，放到某个地方 以20条记录打成一包 怎么做啊高手们 谢谢了

Answer 1

不能直接读一行，用ADOQuery.eof和ADOQuery.next循环每一条记录，在循环里读各个字段的值
ADOQuery.First;
while not ADOQuery.Eof do
begin
suseid := ADOQuery.FieldByName('useid').asstring;
susername := ADOQuery.FieldByName('username').asstring;
sage := ADOQuery.FieldByName('age').asstring;
ssex := ADOQuery.FieldByName('sex').asstring;
ADOQuery..Next;
end;

Answer 2

with adoquery1 do
begin
close;
sql.clear;
sql.add('select useid,username,age,sex from 表名'); //查询表中所有记录
open;
first;
end;

while not adoquery1.eof do
begin
{使用赋值语句把表中的字段内容赋值给变量,根据你的要求自己做。此地省略...}
adoquery1.next;
end;

Answer 3

TID_string := trim(Edit1.Text);
Txt_Name := trim(Edit2.Text);
Txt_Path := ExtractFilePath(Application.ExeName) + '\YCT_Record\' + Txt_Name;
assignfile(MyTxt, Txt_Path);
if not FileExists(Txt_Path) then
begin
ShowMessage('没有输入文件名');
Exit;
end;
reset(MyTxt);
while not eof(MyTxt) do
begin
readln(MyTxt, string_1);
memo1.Lines.Add(string_1);
end;
CloseFile(MyTxt);