Bei mir kompiliert der Code unter Delphi 5 nicht.
Bekomme diese Fehlermeldung:
[Error] rcx.pas(190): Ambiguous overloaded call to 'RCxInit'
Delphi-Quellcode:
function RCxEncode(const Value, Password: AnsiString): AnsiString;
var
RCx: TRCxContext;
begin
RCxInit(RCx, Password); // das ist die Fehlerzeile
try
Result := RCxEncode(RCx, Value);
finally
RCxDone(RCx);
end;
end;
Ich verstehe es nicht ganz, weil Password hier Ansistring ist und RCxInit so definiert ist:
Delphi-Quellcode:
procedure RCxInit(var RCx: TRCxContext; const Key; KeySize: Integer); overload;
procedure RCxInit(var RCx: TRCxContext; const Key: AnsiString); overload;
procedure RCxInit(var RCx: TRCxContext; const Key: WideString); overload;
Also ist der zweite Parameter eindeutig unterscheidbar und die RCxInit(var RCx: TRCxContext; const Key: AnsiString); version aufgerufen werden sollte. Delphi meckert dennoch.