Quellcode mal bitte angucken

[Luckie]

Ja, das sind noch Überbleipsel aus dem gewachsenen Code. Ich hatte anfangs erstmal nur Versucht eine Verbindung zum DB-Server zu bekommen, dort habe ich _DB benutzt:

Delphi-Quellcode:

procedure Connect(var ConDes: PMYSQL; const Host, User, PW, DB: string; Port:
  Integer);
begin
  if Assigned(ConDes) then
  begin
    log('Verbindungsdeskriptor initialisiert');
    if Assigned(mysql_real_connect(ConDes, PChar(Host), PChar(User), PChar(PW),
      PChar(DB), PORT, nil, 0)) then
    begin
      log('Verbindung zum Datenbankserver hergestellt');
    end
    else
      log(mysql_error(ConDes));
  end
  else
    log('Initialisierung fehlgeschlagen');
end;

Aufruf:
Connect(Descriptor, _HOST, _USER, _PW, _DB, _PORT); Beim Anlegen der Datenbank habe ich dann DBNAME genommen:

Delphi-Quellcode:

procedure TForm1.btnCreateBDClick(Sender: TObject);
var
  query        : PChar;
  ErrorCode    : Integer;
begin
  query := 'CREATE DATABASE' + ' ' + DBNAME;
  try
    ErrorCode := mysql_real_query(ConDes, query, length(query));
    if ErrorCode = 0 then
      log('Datenbank angelegt')
    else
      log(mysql_error(Descriptor));
  except
    log('EXCEPTION Datenbank konnte nicht angelegt werden');
  end;
end;

Und selbige Konstante dann weiter benutzt. Ist etwas blöd, stimmt.