DELPHI 循还有关问题

DELPHI 循还问题

Delphi(Pascal) code

FD.Close;FD.SQL.Clear;FD.SQL.Add('Select*from CommMsm where 状态=0');FD.Open;for i:=1 to FD.RecordCount do beginMemo1.add(FD.FieldByName('Name').AsString; FC.Close; FC.SQL.Clear; FC.SQL.Add('Select*from CommMsm where ID='+FD.FieldByName('ID').AsString+''); FC.Open; FC.Edit; FC.FieldByName('状态').AsInteger:=1; FC.Post; FC.Close;end;CommMsm表中ID  Name 状态1   张三  02   李四  0Memo1中会这样出现张三张三李四

Delphi(Pascal) code

FD.Close;FD.SQL.Clear;FD.SQL.Add('Select*from CommMsm where 状态=0');FD.Open;WHILE NOT EOF  do begin Memo1.add(FD.FieldByName('Name').AsString; FD.EDIT;  FD.FieldByName('状态').AsInteger:=1; FD.POST; FD.NEXT;end;