Hi,

> function TDLHI_Main.ImportKompendium(var MsgList: TListBox; var PrgrssBar: TProgressBar; FileName : string): string;

> var
>    i : integer;
> begin
>    Result := '';
>    fs := TFileStream.Create(FileName, fmOpenRead + fmShareDenyWrite);
>    strstrm := TStringStream.Create('');
>    strstrm.CopyFrom(fs, fs.Size);
>    fs.Free;
>    i := pos ('<OK_ERROR>', strstrm.DataString); *// ==>  And on the this line, I get the out-of-memory-exception!*
>
> It's interesting, to get the exception on the "pos"-Statement and not as I expected on the copying of the stream.

In Delphi 2007 you get no exception because there you only reference the 
string whereas in the unicode version (delphi 2009 and up) the things 
got complicated and they had to copy the string using the
right encoding (I guess due to the byte oriented streaming mechanisms
and unicode characters) thus it may happen that you need double the 
memory than before! And since many larger continous portions of memory
are not available that often it will cause the out of memory exception


kind regards
   Mike

>
> In D2007, it worked well; in D2009 I get this error on the mentioned Windows-platforms (I didn't try to run it on other windows-versions)
>
> Thx for all hints.
> Samuel