[NIch]

Почему-то на объявление класса типа

Код:

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 ворчит не может, а Delphi 2010 прожевал и не поперхнулся...
Вот ошибки Delphi 7

[Error] UnitMain.pas(8): 'END' expected but 'TYPE' found
[Error] UnitMain.pas(24): 'IMPLEMENTATION' expected but ';' found
[Error] UnitMain.pas(28): '.' expected but 'IMPLEMENTATION' found
[Fatal Error] FormMain.pas(34): Could not compile used unit 'UnitMain.pas'

Может кто знает ответ, как мне в Delphi 7 реализовать...

[Страдалецъ]

Странно, что не попернулся т.к. у вас записано следующее:

Код:

type
  TWLD = class type TH = record Name : string[10]; end;

Не мог компилятор ни 10-ки ни 7-ки такую конструкцию пропустить.

[NIch]

Может подскажешь, как сделать...
В некотором классе, мне нужно объявить тип данных record...
Что я и сделал

type
TH = record
Name : string[10];
end;

Далее хочу создать переменную этого типа

var
H : TH;

Класс объявлен стандартно

type
TWLD = class
...
end;
var
WLD : TWLD;

Что не так непонятно...
Повторюсь (только что проверил) Delphi 7 выдает вышенаписанные ошибки, Delphi 2010 компилирует программу...

[Страдалецъ]

Оставим новые фичи 10-ки в покое, это явно не ваш случай. Вам нужно видимо такое:

Код:

Type
 TMyRec = record
   FN,MN,LN: String;
 end;

 TMyCalss = class
  MyRec: TMyRec;
 end;

Var
 MR: TMyRec;
 MC: TMyClass;

[NIch]

Весь прикол в том, что я не хочу выносить тип MyRecord за пределы класса...
Какой тогда смысл в отдельном классе...Можно просто в юните объявить все типы данных, переменные и процедуры с функциями...
И вообще я не понимаю, почему в классе нелься объявить свой тип данных...
Может что то в настройках компилятора изменить...ну или диррективы какие есть...буду копать...
Спасибо за ответы...

[Страдалецъ]

Весь прикол в том, что я не хочу выносить тип MyRecord за пределы класса...

Ага, понял. Вам видимо вот что требуется:
Делаете так:

Код:

Type
 TMyClass = class
  T: record A: String; B: String; end;
 end;

Т.е. происходит неявное объявление классовой переменной T непосредственно в теле класса.