Arbeit mit TQuery und SQL

• 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();
}