Приветствую :senor:
1. Когда создаешь свой тип в Type, который создал вручную (после строки "{$R *.dfm}"), то он работает. А если создать в созданном ПО УМОЛЧАНИЮ Type, то не работает. Почему?
2. http://www.delphibasics.ru/Case.php
Пример кода "Стандартное использование оператора case".
У автора при первом запуске процедуры ShowColour(colour) выскакивает "colour неизвестен!" А у меня выскакивает "colour Красный", потому что Red стоит первым в списке констант перечислимого типа и используется по умолчанию, и поэтому else не срабатывает. На сайте ошибка?
1. Когда создаешь свой тип в Type, который создал вручную (после строки "{$R *.dfm}"), то он работает. А если создать в созданном ПО УМОЛЧАНИЮ Type, то не работает. Почему?
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
tanimal=(sabaka,korova,kon,medved);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.Пример кода "Стандартное использование оператора case".
У автора при первом запуске процедуры ShowColour(colour) выскакивает "colour неизвестен!" А у меня выскакивает "colour Красный", потому что Red стоит первым в списке констант перечислимого типа и используется по умолчанию, и поэтому else не срабатывает. На сайте ошибка?