|
|
Регистрация | << Правила форума >> | 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. |
#2
|
||||
|
||||
Код:
type TComputer = class CPU: String[25]; RAMTotalSpace, HDDTotalSpace: LongWord; OS: String[25]; Cost: LongWord; end; TIndex = class Idx: LongWord; FAM: String[25]; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Anklav (21.02.2013)
|