VPF::Перевод кода из С++ в Delphi - Форум программистов

Alkash

Дата 4.5.2012, 08:36 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Доброго времени суток, уважаемые форумчане. В целях получения пищи для мозга перевожу одну библиотечку, написанную на C++, на Delphi. В процессе переписывания кода - возникло 2 проблемы:
1) Имеется функция:

Код


int SomeNet::OpenPatternFile(unsigned char *file)
{
 pf=fopen(file,"rt");
 if(strstr(file,".img")) imgfile=1;
 else imgfile=0;
 return !((int)pf);
}

В процессе перевода получается:

Код


function TSomeNet.OpenPatternFile(filename: string): integer;
begin
 AssignFile(pf,filename);
 if Pos('.img',filename)<> 0 then
  imgfile:=1 else imgfile:=0;
//тут мы должны что-то вернуть, но что я ещё не понял
end;

Собственно вопрос в том, а что я должен вернуть из функции? Я пока так и не понял что значит: return !((int)pf); , тоесть - понятно что pf приводится к int. Только зачем, и в чем смысл?

Проблема 2)

В хидере описан скелет класса, в котором в секции protected определено:

Код


int (*emuf)(int n, float _FAR *in, float _FAR *ou);

в секции public:

Код


 void EmulatePatternFile(int (*p)(int n,
      float _FAR *, float _FAR *))
      {emuf=p;imgfile=2;};

- как это должно выглядеть на delphi? В дальнейшем коде библиотеки я реализации этих функций не встретил.

Спасибо за внимание.

Это сообщение отредактировал(а) Alkash - 4.5.2012, 09:03

--------------------

Подпись >> /dev/null

AndreyIQ

Дата 4.5.2012, 11:05 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8

Цитата(Alkash @ 4.5.2012, 08:36)

1) Имеется функция:

Код


int SomeNet::OpenPatternFile(unsigned char *file)
{
 pf=fopen(file,"rt");
 if(strstr(file,".img")) imgfile=1;
 else imgfile=0;
 return !((int)pf);
}

Я пока так и не понял что значит: return !((int)pf); , тоесть - понятно что pf приводится к int. Только зачем, и в чем смысл?

Мои знания в С++ скудны, пусть поправят гуру.
return !((int)pf) - возвращает 0 если файл удалось открыть и 1 если нет

AndreyIQ

Дата 4.5.2012, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8

Цитата(Alkash @ 4.5.2012, 08:36)

Проблема 2)

В хидере описан скелет класса, в котором в секции protected определено:

Код


int (*emuf)(int n, float _FAR *in, float _FAR *ou);

в секции public:

Код


 void EmulatePatternFile(int (*p)(int n,
      float _FAR *, float _FAR *))
      {emuf=p;imgfile=2;};

- как это должно выглядеть на delphi? В дальнейшем коде библиотеки я реализации этих функций не встретил.

Спасибо за внимание.

Думаю примерно так:

Код


type
  proc_emuf = function(n:integer; var _in, _ou: real):integer;

  TForm1 = class(TForm)
  private
    emuf: proc_emuf;
    imgfile:integer;
  public
    procedure EmulatePatternFile(param1:proc_emuf);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.EmulatePatternFile(param1: proc_emuf);
begin
        emuf:=param1;
        imgfile:=2;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »