Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Использовать в Delphi средство проверки типов для ваших собственных типов данных

Delphi , Синтаксис , Типы и Переменные

Использовать в Delphi средство проверки типов для ваших собственных типов данных

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Delphi pruft die Typen der ubergebenen Variablen fur entsprechende 
  var Parameter einer Prozedure / Funtion anhand der gefuhrten Typen. 
  Dabei wird unterschieden zwischen strenge und schwache Typendeklarationen. 
  Das kann man ausnutzen, um bestimmte Bedingungen zu kreieren, die 
  beim Programmieren respektiert sein mussen: Delphi wird u.U. einen 
  Compiler-Fehler produzieren. 
}

 { 
  Delphi checks the type of variables you pass in a procedure or a function 
  call for declared var parameters. 
  It makes a difference if you make a strong or weak type declaration. 
  You can use this casuality to create a design time proofing rule, proofing 
  the code at design time. Delphi won't compile a code part if it's 
  "strong checked". 
}

 type
   // Strenge Prufung wird veranlasst 
  // Strong checking will be operated 
  TCheckedIniFileNameType = type
      string;

   // Schwache Prufung bei dieser Typ-Deklaration 
  // Weak checking for this type declaration 
  TSimpleIniFileNameType = string;

   { This will be strong checked }
 procedure CheckedTypeProcedure(var IniFileName: TCheckedIniFileNameType);
 begin
   ShowMessage(IniFileName);
 end;

 { This will be less strong checked }
 procedure SimpleTypeProcedure(var IniFileName: TSimpleIniFileNameType);
 begin
   ShowMessage(IniFileName);
 end;

 { Weakest form of checking }
 procedure NoTypeProcedure(var IniFileName: string);
 begin
   ShowMessage(IniFileName);
 end;

 procedure TForm4.Button1Click(Sender: TObject);
 var
   StringOnly: string;
   SimpleIniFileName: TSimpleIniFileNameType;
   CheckedIniFileName: TCheckedIniFileNameType;
 begin
   StringOnly         := 'C:\TEST.TXT';
   SimpleIniFileName  := 'C:\TEST.TXT';
   CheckedIniFileName := 'C:\TEST.TXT';

   // This will compile... 
  CheckedTypeProcedure(CheckedIniFileName);
   SimpleTypeProcedure(SimpleIniFileName);
   SimpleTypeProcedure(StringOnly);
   NoTypeProcedure(StringOnly);
   NoTypeProcedure(SimpleIniFileName);

   // This will not... 
  CheckedTypeProcedure(SimpleIniFileName);
   CheckedTypeProcedure(StringOnly);
   SimpleTypeProcedure(CheckedIniFileName);
   NoTypeProcedure(CheckedIniFileName);
 end;

Статья Использовать в Delphi средство проверки типов для ваших собственных типов данных раздела Синтаксис Типы и Переменные может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Типы и Переменные ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 18:38:10/0.0010769367218018/0