Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2010, 18:36   #1
xmaksimca
Пользователь
 
Регистрация: 04.05.2009
Сообщений: 17
По умолчанию Использование Dll

Здравствуйте!
Подскажите правильно ли я перенес вот эту функцию в Dll библиотеку.
Код:
function GetAfter(substr, str:string):string;
begin
if pos(substr,str)>0 then
  result:=copy(str,pos(substr,str)+length(substr),length(str))
else
  result:='';
end;
Код:
library GetAfter;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
 
function GetAfter(substr, str:pchar):pchar;stdcall;
begin
if pos(substr,str)>0 then
   result:=strpas(copy(str,pos(substr,str)+length(substr),length(str)))
else
  strpas(result:='');
end;
exports getAfter;
begin
end.
xmaksimca вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование функций SFmpq.dll rangel Общие вопросы Delphi 2 16.02.2010 16:50
Использование dll Gromsky Общие вопросы C/C++ 1 10.02.2009 21:06
использование php5ts.dll в своем приложении Dj_smart PHP 10 07.12.2008 15:17
Cоздание dll и использование xGroupers Общие вопросы Delphi 8 25.03.2008 10:38