Показать сообщение отдельно
  #1  
Старый 20.02.2013, 17:57
new_code new_code вне форума
Прохожий
 
Регистрация: 20.02.2013
Сообщения: 2
Репутация: 10
По умолчанию Перевести структуру в класс

Добрый день, помогите перевести структуру в класс
структура:
Код:
unit uStruct;

interface

type
  TComputer = record
    CPU: String[25];
    RAMTotalSpace, HDDTotalSpace: LongWord;
    OS: String[25];
    Cost: LongWord;
  end;

  TComputerFile = file of TComputer;

  TIndex = record
    Idx: LongWord;
    FAM: String[25];
  end;

  TIndexFile = file of TIndex;

implementation

end.
Ответить с цитированием