Hi.
Danke erstmal für die schnellen Antworten also wie muss ich das oben reinsetzen, das die
Unit aufrufbar ist?
Delphi-Quellcode:
unit fuktionen;
interface
implementation
uses md5;
function Addslashes(str:
string):
string;
begin
str:=StringReplace(str,'
\', '
\\',[rfReplaceAll,rfIgnoreCase]);
str:=StringReplace(str,'
''
', '
\''
',[rfReplaceAll,rfIgnoreCase]);
str:=StringReplace(str,'
"', '
\"',[rfReplaceAll,rfIgnoreCase]);
result:=str;
end;
end.
Was muss ich dann noch einfügen damit es funktioniert?
MfG, Ronny