Преобразовать код с C++ в Delphi

[harryp]

Здравствуйте, есть исходники, написанные на C Builder, стала задача переписать на Delphi.. C++ только начинаю осваивать, помогите понять как эту часть кода перенести на Delphi, спасибо..

struct TFileInf
{
 AnsiString m_sFileName;
 int m_nFileSize;
 int m_nFileTime;

 TFileInf& operator=(const TFileInf& a);

 bool operator==(const TFileInf &a) const;
 bool operator!=(const TFileInf &a) const {return !(*this == a);};
 bool operator>(const TFileInf &a) const;
 bool operator<(const TFileInf &a) const;

 bool Load(FILE* in);
 bool Save(FILE* out) const;

 TFileInf(void) : m_nFileSize(0), m_nFileTime(0) {};
 TFileInf(const TFileInf& a){*this = a;};
 ~TFileInf(void) {};
};
//------------------------------------------------------------------------------
struct TImageInf : public TFileInf
{
 int m_nImageHeight;
 int m_nImageWidth;
 TGDIplusImage::FORMAT m_eImageFormat;

 TImageInf& operator=(const TImageInf& a);

 TImageInf(void) : m_eImageFormat(TGDIplusImage::NON),
  m_nImageHeight(0), m_nImageWidth(0){};
 TImageInf(const TImageInf& a){*this = a;};
 ~TImageInf(void){};
};
//------------------------------------------------------------------------------
struct TCollectedData : public TImageInf
{
 void *m_pKey; // Pointer to struct of key data (in simple case it is 2D array);
 int m_nSize;  // Size of struct of key data;
 int m_nRatio; // Ratio between height and width of image;

 TCollectedData& operator=(const TCollectedData& a);

 TCollectedData(int nSize = PIXELS_SIZE*PIXELS_SIZE);
 TCollectedData(const TCollectedData& a);
 ~TCollectedData(void);
};

[XFree]

Очень просто. Для начала посмотреть синтаксис Delphi, ну или Си++, в зависимости какой язык не понятен. Билдер и Дельфи отличаются только синтаксисом языка и тем, что Си регистрозависимый. Обычно основная часть кода у Борлан создается автоматически, поэтому создайте такой же проект и переносите пошагово все события. На конкртеные вопросы ответим. Так же и что конкретно не понятно в этом коде?

[harryp]

Спасибо. Непонятно, например, как в Delphi описать эту структуру:

struct TFileInf
{
...};

с чего начинать?

[casekey]

Сообщение от harryp

struct TFileInf
{
...};

например описание типа:

type TFileInf = record
m_nFileSize: integer;
m_nFileTime: integer;
end;

[Somebody]

Скорее class, а не struct, там же функции в этой штуке.
А перегрузка операторов - это Delphi2005+. А конструктор копирования и оператор присваисвания - это вообще на Delphi один к одному не переводится, только обходными путями.

[harryp]

Понятно, спасибо за советы. Разбираться в тонкостях - как обычно время поджимает.. Легче своё написать.
..
написал, не актуально
..