[new_code]

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

Код:

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.

[NumLock]

Код:

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

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