Ich habe nun nochmal mit nem Debugger gearbeitet und er fliegt an folgender Stelle raus:
Zitat:
procedure TMySQLServer.GetFieldNames(const DatabaseName, TableName: string; List: TStrings);
var
R: pointer;
Row: PMYSQL_ROW;
begin
ActivateConnection;
if Connected then
with List do begin
BeginUpdate;
try
Clear;
if (length(TableName)>0) and (length(DatabaseName)>0) then begin
R := Driver.OpenQuery(FConnection, 'show columns from '+FormatIdentifier(DatabaseName)+'.'+FormatIdentif ier(TableName));
if not Assigned(R) then exit;
try
Row := Driver.RetrieveRow(R);
while Assigned(Row) do begin
List.Add(TrimRight(Row[0]));
Row := Driver.RetrieveRow(R);
end;
finally
Driver.CloseQuery(R);
end;
end;
finally
EndUpdate;
end;
if (soCloseOnChildren in FConOptions) and Assigned(FConnection) and CheckChildrenAllClosed then Close;
end;
end;
Ich hoffe, dass Euch das irgendwas sagt. Mir hilft das leider nicht wirklich weiter.