Question

delphi 中 while not Eof do 是什么意思？

SQL.Clear;
sqlstr := 'select * from digital_info where TerminalID = ' + IntToStr(TerminalID);
SQL.Add(sqlstr);
Open;
while not Eof do
begin
SetLength(Digitals, Length(Digitals) + 1);
i := Length(Digitals) - 1;

Digitals[i].DigitalID := FieldByName('DigitalID').AsInteger;
Digitals[i].DName := FieldByName('DName').AsString;
Digitals[i].GroupID := FieldByName('GroupID').AsInteger;
Digitals[i].dValue := FieldByName('dValue').AsInteger;

Answer 1

while not Eof do

当数据集的内容不为空时 做begin end 内的事情

前面应该有个Query

Answer 2

eof EndOfFile

就是判断是否结束

这段程序中 就是把查询出来的结果集 从第一条开始 一直执行到最后一条结束

Answer 3

while not Eof do 当数据集的内容不为空时 做begin end 内的事情 前面应该有个Query

Answer 4

一条条直到读到记录集的末尾
是循环

Answer 5

linyangou 正解