ProtoServiceExists moved to mir_core

all another copies of it removed

git-svn-id: http://svn.miranda-ng.org/main/trunk@5006 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 17 deletions

diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index e9bedfd7be..9c3881fe31 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -1,7 +1,5 @@
 {$IFDEF M_API_UNIT}

 

-function ProtoServiceExists(const proto,service: PAnsiChar): int;

-

 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;

 function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar;

 function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int;

@@ -90,21 +88,6 @@ function Options_OpenPage(ood:POPENOPTIONSDIALOG):HWND;
 

 {$ELSE}

 

-function ProtoServiceExists(const proto,service: PAnsiChar): int;

-var

-  buf:array [0..127] of AnsiChar;

-begin

-  if (proto=nil) or (service=nil) then

-  begin

-    result:=0;

-    exit;

-  end;

-  lStrCpyA(@buf,proto);

-  lStrCatA(@buf,service);

-  result:=ServiceExists(@buf);

-end;

-

-

 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;

 var

   vers:array [0..3] of integer;