Buenas estoy tratando de usar esta función para encriptar y desencriptar datos de una tabla, pero me da un error al compilar
[DCC Error] Unit1.pas(27): E2003 Undeclared identifier: 'Str255'
aca esta el codigo
Código Delphi
[-]
Const CRIPTPASSWORD = 9281711.00;
Var KeyResult : String;
Function CriptClave ( Signo:ShortInt;Nombre : Str255; Cripto: Real) : String;
Var L,I: Byte;
S: String;
Temp: Array[0..255] Of Byte Absolute Nombre;
Begin
Str(Trunc(Cripto),S);
L:=Length(Nombre);
While Length(S)do
S:=S+S;
For I:=1 To L Do
Temp[i]:=Temp[i] + (Ord(S[i])-48)*SigNo;
CriptClave:= Nombre;
End ;