MySQL ohne Komponenten

[freak4fun]

Ich habs so gemacht:

Delphi-Quellcode:

function TMySQL.GetTableNames: String;
var
  lResult: PMYSQL_RES;
  I: Integer;
  lRow: PMYSQL_ROW;
begin
  Result := '';
  lResult := mysql_list_tables(FCon, PChar(''));
  //ShowMessage('RowCount: ' + IntToStr(lResult.row_count));
  for I := 0 to lResult.row_count - 1 do
    begin
      lRow := mysql_fetch_row(lResult);
      Result := Result + ',' + lRow[0];
    end;
  Delete(Result, 1, 1);
end;

>.< Mit der SQL-Abfrage komme ich net klar.

MfG
freak