Access & EDB Kombos - Probleme

[clues1]

Ich glaube das sollte die als Beispiel dazu helfen:

Delphi-Quellcode:

var rs: TDBRecordsets;
    S: string;
    i: integer;
begin
  rs := TDBRecordsets.Create; // Das ist wichtig, da TDBRecordsets ein Object ist, deswegen Erstellen

  EDBSQLStrings1.LoadSQLEx(['artikel','artikelnummer','artikelname','beschreibung',....], rs);
  for i := 0 to rs.Rows-1 do begin
      S := rs.GetValue(i, 'artikel'); // Artikel Infos
      S := S + ',' + rs.GetValue(i, 'artikelnummer'); // Artikelnummer
      S := S + ',' + rs.GetValue(i, 'artikelname');
      S := S + ',' + rs.GetValue(i, 'beschreibung');
      ....
      Memo1.Items.Add(S); // artikel,artikelnummer,artikelname,beschreibung,...
  end;

  rs.ClearRecordset;
  rs.Free;

Die Fehlermeldung kommt, wenn das Recordset noch nicht erstellt wurde. Da du über die Funktion eine Kopie des Recordsets bekommst ist es notwendig ein neues Object zu erstellen.