|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Синтаксис Delphi 7 и Delphi 2010
Почему-то на объявление класса типа
Код:
unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls; type TWLD = class//класс type //8 строка TH = record//тип запись в классе Name : string[10]; end;//конец записи var H : TH; end;//конец класса 24 строка var WLD : TWLD; //***************************************************************************** implementation //28 строка end. Вот ошибки Delphi 7 Цитата:
В начале был Бит, потом Байт и только потом появилось Слово... |
#2
|
||||
|
||||
Странно, что не попернулся т.к. у вас записано следующее:
Код:
type TWLD = class type TH = record Name : string[10]; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
Может подскажешь, как сделать...
В некотором классе, мне нужно объявить тип данных record... Что я и сделал Цитата:
Цитата:
Цитата:
Повторюсь (только что проверил) Delphi 7 выдает вышенаписанные ошибки, Delphi 2010 компилирует программу... В начале был Бит, потом Байт и только потом появилось Слово... Последний раз редактировалось NIch, 28.01.2010 в 14:13. |
#4
|
||||
|
||||
Оставим новые фичи 10-ки в покое, это явно не ваш случай. Вам нужно видимо такое:
Код:
Type TMyRec = record FN,MN,LN: String; end; TMyCalss = class MyRec: TMyRec; end; Var MR: TMyRec; MC: TMyClass; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Весь прикол в том, что я не хочу выносить тип MyRecord за пределы класса...
Какой тогда смысл в отдельном классе...Можно просто в юните объявить все типы данных, переменные и процедуры с функциями... И вообще я не понимаю, почему в классе нелься объявить свой тип данных... Может что то в настройках компилятора изменить...ну или диррективы какие есть...буду копать... Спасибо за ответы... В начале был Бит, потом Байт и только потом появилось Слово... |
#6
|
||||
|
||||
Цитата:
Делаете так: Код:
Type TMyClass = class T: record A: String; B: String; end; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |