delphi怎么连接mysql

uses
  ADODB, SysUtils;

var
  Connection: TADOConnection;
  Recordset: TADORecordset;
begin
  try
    // 创建并配置ADO连接
    Connection := TADOConnection.Create(nil);
    Connection.ConnectionString := 'Driver={MySQL ODBC 8.0 Unicode Driver};Server=your_server_address;Port=your_port;Database=your_database_name;Uid=your_username;Pwd=your_password;';
    Connection.Connected := True;

    // 执行SQL查询
    Recordset := TADORecordset.Create(nil);
    Recordset.Connection := Connection;
    Recordset.Open('SELECT * FROM your_table_name');

    // 处理查询结果
    while not Recordset.Eof do
    begin
      // 处理每一行数据
      Recordset.Next;
    end;

    // 释放资源
    Recordset.Free;
    Connection.Free;
  except
    on E: Exception do
      ShowMessage('Error: ' + E.Message);
  end;
end;