MySQL ohne Komponenten

[DeddyH]

Du kannst es ja mal so versuchen (ungetestet):

Delphi-Quellcode:

type TErgebnis = array of string;
var Ergebnis: TErgebnis;
    Row: PMySQL_Row;

...

query := 'SHOW COLUMNS FROM posts';
  mysql_real_query(_myCon, pchar(query), Length(query));
  _myRes := mysql_store_result(_myCon);
  if _myRes = nil then
  begin
    ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;
  SetLength(Ergebnis, mysql_num_rows(_myRes));
  for i := Low(Ergebnis) to High(Ergebnis) do
    begin
      Row := mysql_fetch_row(_myRes);
      Ergebnis[i] := Row[0];           //Name des Felds
    end;
  mysql_free_result(_myRes);
  SetLength(Ergebnis,0);