Hallo,
ich bin fast am Verzweifeln. Ich versuche den Inhalt einer simplen Binärdatei zu lesen, was aber ewig dauert. Hier ist der Code.
Delphi-Quellcode:
function LiesEineBinaerDatei(ASpecialFile: String) : WideString;
var
wHeader, wHeader2 : Word;
i, dez : integer;
TMStream : TMemorystream;
begin
Result := '';
TMStream := TMemoryStream.Create;
TMStream.LoadFromFile(ASpecialFile);
try
TMStream.Seek(16, soFromBeginning);
for i := 0 to 47 do
begin
TMStream.Read(wHeader, 2);
TMStream.Read(wHeader2, 1);
dez := wHeader + wHeader2 * 256;
Result := Result + WideChar(dez);
end;
// Showmessage(Result);
finally
TMStream.Free;
end;
end;
Die Funktion wird ca. 20xmal aufgerufen. Wenn ich Showmessage weglasse, dann dauert die Schleife ewig. Lasse ich eine Meldung einblenden, geht es in einer ganz normalen Geschwindigkeit. An was kann das liegen?
Danke für jeden Hinweis
Amigage