ich habe mal weder ein Problem, welches sich mir nicht offenbaren möchte.
Ich habe eine MYSQL-Datenbank mit einer Tabelle. (ID als Integer Autoincrement, sonst nur varchars und text)
Auf der Form habe ich nur TZConnection, TZQuery, TDataset und ein TDBGrid.
Alles funktioniert soweit, Daten werden angezeigt. Wenn ich jedoch irgend etwas an den Daten ändere und speichern möchte erhalte ich eine Access Violation:
Error: Projekt varta hat Exception-Klasse »External: SIGSEGV« ausgelöst.
In Datei 'source/core/ZSysUtils.pas' in Zeile 3562
Code: Alles auswählen
procedure ZBinToHex(Buffer, Text: PAnsiChar; const Len: LengthInt);
var
PEnd: PAnsiChar;
begin
PEnd := Buffer+Len-8;
while Buffer < PEnd do //try to convert 8Byte per loop
begin
PWord(Text)^ := TwoDigitLookupHexW[Ord(Buffer^)]; // Hier bleibt er hängen !
PWord(Text+2)^ := TwoDigitLookupHexW[Ord((Buffer+1)^)];
PWord(Text+4)^ := TwoDigitLookupHexW[Ord((Buffer+2)^)];
PWord(Text+6)^ := TwoDigitLookupHexW[Ord((Buffer+3)^)];
PWord(Text+8)^ := TwoDigitLookupHexW[Ord((Buffer+4)^)];
PWord(Text+10)^ := TwoDigitLookupHexW[Ord((Buffer+5)^)];
PWord(Text+12)^ := TwoDigitLookupHexW[Ord((Buffer+6)^)];
PWord(Text+14)^ := TwoDigitLookupHexW[Ord((Buffer+7)^)];
Inc(Buffer, 8);
Inc(Text, 16);
end;
Inc(PEnd, 8);
while Buffer < PEnd do
begin
PWord(Text)^ := TwoDigitLookupHexW[Ord(Buffer^)];
Inc(Buffer);
Inc(Text, 2);
end;
end;