SQL-Anfrage aus anderer Tabelle bilden

[Luciano]

Ich wollte einfach mal eine unreife Lösung posten für mein Problem, zumindest funktioniert es

Delphi-Quellcode:

  while not DModFakturierung.Q_FFAKTRELA.Eof = True do
    begin
      rela1[z]    := StrToInt(DModFakturierung.Q_FFAKTRELARelation1.Value);
      DModFakturierung.Q_FFAKTRELA.Next;
      inc(z);
    end;

  for i := 0 to (y - 1) do
    begin
      if i = 0 then
        begin
          sRela1 := IntToStr(rela1[i]);
          s1 := '(RELATION = '+QuotedStr(sRela1)+') ';
        end;

      if i > 0 then
        begin
          sRela1 := IntToStr(rela1[i]);
          s1 := 'OR (RELATION = '+QuotedStr(sRela1)+') '
        end;
          s := s + s1;
    end;//END FOR Schleife

  Result := 'AND ('+s+')';

Greets

Luciano