DELPHI 循还问题

Question

FD.Close;
FD.SQL.Clear;
FD.SQL.Add('Select*from CommMsm where 状态=0');
FD.Open;
for i:=1 to FD.RecordCount do begin
Memo1.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   张三  0
2   李四  0
Memo1中会这样出现
张三
张三
李四

Answer 1

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;
P.S. 状态 => STATUS