Hilfe bei sqlite und Zeos Komponente gesucht

[DeddyH]

Delphi-Quellcode:

function TableExists(mTable: String): Boolean;
begin
  Q.SQL.Add('SHOW TABLE STATUS LIKE `'+mTable+'`');
  Q.Open;
  //wenn ein Ergebnis kommt, steht es nun auf dem ersten Datensatz, ansonsten ist EOF true
  while not Q.EOF do
    begin
      //soll den Wert des ersten Feldes des aktuellen Datensatzes ausgeben
      ShowMessage(Q.Fields[0].AsString);
      //nächster Datensatz
      Q.Next;
    end;
  Q.Close;
end;