diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2015-03-18 07:51:44 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2015-03-18 07:51:44 +0000 |
| commit | 8ac8b7393cc59b2a4b993c6387ca3d72cf535c23 (patch) | |
| tree | 55df03ad54d11d1ea4ca5d5032111efa3f1bcff2 /include/delphi/m_helpers.inc | |
| parent | 534eefa7029aaf49b0b673b6f6fb630752bb3fd5 (diff) | |
pascal version of miranda api update
git-svn-id: http://svn.miranda-ng.org/main/trunk@12428 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi/m_helpers.inc')
| -rw-r--r-- | include/delphi/m_helpers.inc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 87a56d34c9..2eb70b9478 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -400,15 +400,15 @@ end; function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
var
- szStr: array[0..MAXMODULELABELLENGTH*2] of AnsiChar;
+ szStr: array [0..MAXMODULELABELLENGTH*2] of AnsiChar;
begin
if (szModule=nil) or (szService=nil) then
begin
result:=0;
exit;
end;
- lstrcpya(szStr, szModule);
- lstrcata(szStr, szService);
+ lstrcpya(@szStr, szModule);
+ lstrcata(@szStr, szService);
Result := CreateServiceFunction(szStr, @serviceProc);
end;
|