MySQL ohne Komponenten

[DeddyH]

Ich habe hier gerade kein MySQL am Laufen und verfüge auch nicht über die Units, aber versuch es einmal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(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 := 'Name_des_Servers';
  user := 'Name_des_Users';
  pass := 'Passwort_des_Users';
  db   := 'Name_der_DB';

  Con := mysql_init(nil);
  if Assigned(Con) then
    try
      if Assigned(mysql_real_connect(Con, host, user, pass, db, 3306, nil, 0)) then
        begin
          //evtl. bestehende Items löschen
          DeineListview.Items.Clear;
          query := 'SELECT titel, datum, von, bis, text FROM testtabelle';
          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);
                //neues ListItem hinzufügen (erstes Feld)
                Item := DeineListView.Items.Add;
                Item.Caption := Row[0];
                //für jedes weitere Feld ein SubItem
                for j := 1 to High(Row) do
                  Item.SubItems.Add(Row[j]);
              end;
        end
      else
        ShowMessage(mysql_error(Con));
    finally
      mysql_close(Con);
    end;
end;