Felder eines Datensatzes in Query zu einzelnen Datensätzen

[haentschman]

Hallo alle miteinander...

ich habe das jetzt über Umwege gelöst...

1. dynamisch eine Tabelle erzeugt
2. Datensatz mit den Komponenten mit Schleife durchlaufen und in der neuen Tabelle die Feldnamen
als einzelne Datensätze abgelegt.
Jetzt habe ich eine Datenmenge als Grundlage für den Report.
3. im BeforePrint des Bandes hole ich mir dann über eine Query die passenden Daten.

Delphi-Quellcode:

procedure TempTable1;
var
  Tabelle: TTable;
begin
  Form1.TabTemp.Active:= False;
  if FileExists(Form6.Verzeichnis.Text + '\Temp.DB') then DeleteFile(Form6.Verzeichnis.Text + '\Temp.DB');
  Tabelle:= TTable.Create(nil);
  with Tabelle do
    begin
      SessionName:= Form1.TabKunden.SessionName;
      TableType := ttParadox;
      TableName := Form6.Verzeichnis.Text+ '\Temp.DB';
      with FieldDefs do
        begin
          Clear;
          Add('Bezeichnung', ftString, 30);
        end;
      CreateTable;
    end;
  Form1.TabTemp.Active:= True;
end;

Delphi-Quellcode:

procedure Anlagenschema;
var
  A: Integer;

begin
  for A:=0 to 8 do
    begin
      if Form1.TabAnlagenschema.Fields.Fields[A].AsBoolean then
        begin
          Form1.TabTemp.Append;
          Form1.TabTemp.Edit;
          Form1.TabTemp.FieldValues['Bezeichnung']:= Form1.TabAnlagenschema.Fields.Fields[A].FieldName;
          Form1.TabTemp.Post;
        end;
    end;

end;

Vieleicht hilft es ja jemandem mit ähnlichen Sorgen....