[nixon232]

Есть кусок типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function DecryptFileToStream( srcFN,K: string;var Dest: TStrings;bk:TKeyBit)      : Boolean;   var     fs: TFileStream;     ds: TStream ;   begin     try       fs:=TFileStream.Create( srcFN, fmOpenRead );       ds:=TMemoryStream.Create;       Result:=DecryptStream( fs, K,         ds, bk );       if Result then       begin         Dest.LoadFromStream( ds );       end;     finally       fs.Free;       ds.Free;     end; // try     end;

и вызов его:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   s  : string;   ini: TMemIniFile;   DecINI: TStrings; begin   DecINI:=TStringList.Create;   s:=ExtractFilePath( Application.ExeName )+ 'data.pfr';   DecryptFileToStream( s,'11', DecINI,kb256);        ini:=TMemIniFile.Create( '' );   ini.SetStrings( DecINI );

и

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function fn8(s:string): Boolean ;    var       decr:TStrings;     ini:TMemIniFile;     reg:TStrings;     IK,INa,IM:string;   begin   try     Result:=False;     decr:=TStringList.Create;     result:=DecryptFileToStream(s,'66',decr,kb256);   ini:=TMemIniFile.Create('');     ini.SetStrings(decr);

Первый вызов работает, а второй возвращает пустой стринглист (не ошибку). Разве тут есть различия? что не так?
Данные и файл верны.