MySQL ohne Komponenten

[DeddyH]

So, das hat super funktioniert (ich nutze eine Listview zur Anzeige mit Namen lv1, vsReport mit 6 Spalten):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Con: PMYSQL;
    host, user, pass, db: PChar;
    Row: PMySQL_Row;
    Res: PMYSQL_RES;
    query: string;
    i,j: integer;
    Item: TListItem;
begin
  host := 'localhost';
  user := 'root';
  pass := '';
  db   := 'dptest';

  Con := mysql_init(nil);
  if Assigned(Con) then
    try
      if Assigned(mysql_real_connect(Con, host, user, pass, db, 3306, nil, 0)) then
        begin
          query := 'SHOW FIELDS FROM blubb';
          mysql_real_query(Con,PChar(query), Length(query));
          Res := mysql_store_result(Con);
          if Assigned(Res) then
            for i := 0 to mysql_num_rows(Res) - 1 do
              begin
                Row := mysql_fetch_row(Res);
                Item := lv1.Items.Add;
                Item.Caption := Row[0];
                for j := 1 to mysql_num_fields(Res) - 1 do
                  Item.SubItems.Add(Row[j]);
              end;
        end
      else
        ShowMessage(mysql_error(Con));
    finally
      mysql_close(Con);
    end;
end;