Routine dauert ewig

**amigage**

Hallo,

ich bin fast am Verzweifeln. Ich versuche den Inhalt einer simplen Binärdatei zu lesen, was aber ewig dauert. Hier ist der Code.

zusammenfalten · markieren

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

Routine dauert ewig

Routine dauert ewig

Forumregeln