PAnsiChar um weiteres PAnsiChar ergänzen

[nahpets]

Keine Ahnung, ob ich jetzt eventuell auf 'nem total falschen Dampfer unterwegs bin. Hätte es so gemacht:

Delphi-Quellcode:

function GetColumnCount(ForTable: PAnsiChar; InDatabase: PAnsiChar):integer;
var
  Query: String;

begin
    Query := 'SELECT * FROM COLUMNS WHERE TABLE_SCHEMA = '''+InDatabase+''' AND TABLE_NAME = '''+ForTable+'';
    //Query := 'SELECT * FROM COLUMNS WHERE TABLE_SCHEMA = ''mydata'' AND TABLE_NAME = ''mytable''';
    // Damit es keine Hochkomma(verzähl)orgien gibt: 
    Query := Format('SELECT * FROM COLUMNS WHERE TABLE_SCHEMA = %s AND TABLE_NAME = %s', [QuotedStr(InDatabase),QuotedStr(ForTable)]);
    mysql_real_query(dbCon,PAnsiChar(Query),Length(Query));
end;