Funktionen in eine Unit auslagern

[Muetze1]

Moin!

Die Funktion auch im Interface Abschnitt bekannt machen nach aussen hin...

Delphi-Quellcode:

unit fuktionen;

interface

function Addslashes(str: string): string;

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.

MfG
Muetze1