Jetzt habe ich den Kasten soweit, das er zumindest mal
SQL-Kommandos akzeptiert und ich das durch z.B. reccount nachvollziehen kann.
Allerdings gibt er mir bei der Ausgabe von Datenfeldern nur Blödsinn raus.
Delphi-Quellcode:
if reccount <> 0 then begin
such_bar.Max := reccount;
such_bar.Refresh;
showbutton(inttostr(reccount)+' Treffer');
for i := 0 to RecCount -1 do begin => bis hierhin kann ich es nachvollziehen und es stimmt
such_bar.StepIt;
such_bar.Refresh;
_myRow := mysql_fetch_row(_MyRes); => hier muss der Fehler passieren.
ausgabeliste.addrow();
ausgabeliste.cells[0,i] := _MyRow[0]; //Datensatz-ID
ausgabeliste.cell[1,i].AsString := _MyRow[1]; // Anlagedatum
ausgabeliste.cells[2,i] := _myrow[2]; // Vermittler
ausgabeliste.cells[3,i] := get_vermittler(_myrow[2]); // Vermittler
Gruss
EL