![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Добрый день, помогите перевести структуру в класс
структура: Код:
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. |