try und except

[little-x]

Hallo,

ich greife mittels bde auf informix zu und muss ermitteln ob es eine temptable schon gibt. Dazu schieße ich ein Select ab (mit TQuery). Ich hatte vor, die Fehlermeldung, die bei TQuery.Open kommt (falls die Tabelle nicht da ist), mittels try/Except zu unterdrücken. Aber irgendwas mache ich falsch.

Hier mein Code:

Delphi-Quellcode:

FUNCTION check_if_table(temp_tab: string): BOOLEAN;
        var     qry:    TQuery;
                retVal: boolean;
begin
        retVAL:= true;
        qry:= TQuery.Create(Application);
        qry.DatabaseName := 'meinedb';
        qry.SQL.Append('select * from ' + temp_tab + ' where 1=2');
        try
                // Bei der nächsten kommt schon die Fehlermeldung. Das finde ich 
                // doof, schließlich ist doch der try-except dafür da
                // dass man erstmal "versucht". 
                qry.Open;
        except
                  // Wat muss nu hier rein???????
                  // Ich bin leicht genervt.
                  // Wobei ich zugeben muss bisher kaum mit tryexcept gearbeitet zu haben.
                 retVal:= false;
        end;
        qry.free;
        result:= retVal;
end;

Danke schön.