Pivot/Kreuztabellen in Firebird mit SQL erstellen

[Chemiker]

Hallo,

ich habe jetzt eine Kreuztabelle erstellt.

Jetzt habe ich noch ein Geschwindigkeitsproblem mit folgenden Anweisungen.
Vermutlich liegst an der SQL – Anweisung:

SELECT DISTINCT mw_msid FROM mw_tabelle Gibt es eine Möglichkeit diese zu Beschleunigen?

Delphi-Quellcode:

procedure TForm3.btSQLTextvorbelegenClick(Sender: TObject);
begin
  Memo1.Lines.Text:= 'SELECT DISTINCT mw_msid FROM mw_tabelle';    
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  MAListe: TStringList;
  I: integer;
begin
  Memo3.Clear;
  MAListe:= TStringList.Create;
  try
    with SQLFP.pFIBDataSet do
    begin
      Close;
      SelectSQL.Text:= Memo1.Text;
      GenerateSQLs;
      Open; 
      while not EOF do
      begin
        // Die MSId-Bezeichnung aus der Datenbank wird in einer StringList
        // gespeichert. Diese Bezeichung ist auch gleichzeitig die Spalten-
        // bezeichnung für die PIVOT-Tabelle.
        MAListe.add(FieldByName('mw_msid').AsString);
        next;       
      end;
    end;

Bis bald Chemiker