Hast du denn in der
unit Crypt die Funktion auch richtig deklariert?
Delphi-Quellcode:
unit Crypt;
interface
function Encode(
const Value, Password:
String):
String;
implementation
function Encode(
const Value, Password:
String):
String;
begin
Result := BinToHexStr(RC4Code(Value, Password));
end;
Wichtig ist, das die Deklaration im Interface-Teil steht, sonst wissen die anderen Units, die diese
Unit includen, nicht was die Crypt-
Unit alles zur Verfügung stellt.