delphi dataset 遍历所有记录的模版过程

  try 

    ds1.Close;
    ds1.CommandText := 'select id,name from mytable';
    ds1.Open;
    if ds1.Eof then//记录为空
    begin
      Result := 'norecord';
      Exit;
    end;
    ds1.First;
    while not ds1.Eof do
    begin
      StrRes := StrRes + IntToStr(ds1['id']) + ',';//ds1['id'] 注意这里，返回值是不一定的要根据实际情况使用，否则崩溃

      StrRes := ds1.fields[4].AsString;//对于日期类型的字段要非常特殊的对待
      ds1.Next();
    end;
    ds1.Close;

  except
    Result := 'Error';
  end;