Hallo,
du musst dich gegen falsche Zeilen- und Feldzugriffe absichern. mysql_fetch_row() liefert nil, wenn keine Zeile (mehr) im ResultSet ist und auch der ungeprüfte Zugriff auf das achte Feld (Index ist null-basiert) könnte nicht existieren:
Delphi-Quellcode:
// ...
_myRow := mysql_fetch_row(_myRes);
if Assigned(_myrow) then
if Length(_myRow) > 7 then
begin
SPS := StrToIntDef(_myRow[7], 0);
Label332.Caption := _myRow[1];
Label333.Caption := _myRow[2];
Label334.Caption := _myRow[3];
Label335.Caption := _myRow[4];
Label336.Caption := _myRow[5];
Label337.Caption := _myRow[6];
end
else { zuwenig Felder }
else { kein Datensatz (mehr) };
// ...
Grüße vom marabu