alle Tabellen einer Datenbank anzeigen

[marabu]

Hallo,

ich würde es mal so probieren:

Delphi-Quellcode:

procedure GetTables(conn: PMYSQL; s: TStrings);
var
  res: PMYSQL_RES;
  row: PMYSQL_ROW;
  i: Integer;
  lengths: PMYSQL_LENGTHS;
  value: String;
begin
  res := mysql_list_tables(conn, nil);
  repeat
    row := mysql_fetch_row(res);
    if Assigned(row) then
    begin
      lengths := mysql_fetch_lengths(res);
      SetString(value, row[0], lengths[0]);
      s.Add(value);
    end;
  until not Assigned(row);
  mysql_free_result(res);
end;

Grüße vom marabu