Eine Fehlerursache ist
Delphi-Quellcode:
function ReadString: String;
var Laenge: Integer;
begin
Result:='';
FS.Read(Laenge, SizeOf(Laenge));
FS.Read(Result, Laenge);
end;
du Solltest vorher die länge von result setzen, ansonsten ist der buffer nicht groß genug um das was du aus der datei liest darein zu schreiben. Also so:
Delphi-Quellcode:
function ReadString: String;
var Laenge: Integer;
begin
FS.Read(Laenge, SizeOf(Laenge));
setLength(Result, Laenge);
FS.Read(Result, Laenge);
end;