- Um die Arbeit mit SQL Strings und den TQuery-Objekten zu vereinfachen sollte man sich eine Funktion schreiben, an die nur noch der SQL-String und der Typ der Rückgabemenge übergeben wird.
// "true" für Abfragen mit Rückgabemenge SqlQuery(true, "SELECT * FROM tablename"); // "false" für Abfragen ohne Rückgabemenge SqlQuery(false, "INSERT INTO tablename (col1, col2, ...) VALUES (0, 'String', NULL)"); void TDataModule::SqlQuery(bool QueryType, AnsiString Sql) { SQLQuery->Close(); SQLQuery->SQL->Clear(); SQLQuery->SQL->Add(Sql); if (QueryType) SQLQuery->Open(); else SQLQuery->ExecSQL(); }