ich habe gesehen das es hier schon fehler gibt:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
Cols: TCols;
Rows: TRows;
query:
string;
i: Integer;
s:
string;
begin
if FirstTime
then
begin
FirstTime := False;
Form1.Refresh;
StringGrid1.Refresh;
Descriptor := mysql_init(
nil);
log('
Mit Datenbankserver verbinden');
Descriptor := Connect(Descriptor, PChar(HOST), Pchar(USER), Pchar(PW), PChar('
'), PORT);
ShowMessage(mysql_error( Descriptor));
ich kann nochnicht mal auf Descriptor zugreifen....