Das
ShowMessage(IntToStr(StrToInt('ANIM')));
wirft definitiv eine
Exception. Ich habe die Vermutung, dass er die Schleife gar nicht durchläuft und so an die Stelle gar nicht erst kommt.
Delphi-Quellcode:
function TAnimatePng.GetPngAnimation(wsFile: string; var anih: TAniHeader): Bool;
var
ByteArray: array of byte;
FileStream: TFileStream;
IntI: Integer;
begin
Result := False;
ShowMessage(IntToStr(StrToInt('ANIM')));
try
FileStream := TFilestream.Create(wsFile ,fmopenread or fmShareDenyNone);
FileStream.Seek(-SizeOf(TAniHeader), soEnd);
FileStream.Read(anih, SizeOf(anih));
finally
FileStream.Free;
end;
end;
Wirft kein
Exception
Das ist Fakt.
Sign ist nur ein Zahlenwert.
Wie bekomme ich den jetzt als String?
gruss