Пользовательские типы данных

Lazarus IDE: Основы программирования в Windows Несмотря на то, что всё потихоньку уходит в сеть, программирование для настольных компьютеров остаётся востребованным. И будет таковым ещё долго. Ну а самая распространённая операционная система для настольных компьютеров – это по-прежнему Windows. Поэтому любой программист, даже если он собирается стать веб-разработчиком, должен знать хотя бы основы создания программ для Windows. Подробнее...

Наиболее внимательные из вас уже заметили, что программист может создавать свои собственные типы данных. Делается это с помощью ключевого (зарезервированного) слова type. Синтаксис:

type ИмяТипа = НовыйТип;

Здесь ИмяТипа - это идентификатор вашего типа данных. Этот идентификатор не должен совпадать с идентификаторами предопределённых типов и с зарезервированными словами. НовыйТип - это либо предопределённый тип Free Pascal, либо ваш собственный тип данных. Например, перечисление или интервал.

Зачем всё это надо? Разве не хватает стандартных (предопределённых) типов данных? Когда я только начинал изучать программирование, я тоже задавал этот вопрос. Но в последствии, когда мои программы становились всё сложнее, я понял, что разработчики языков программирования вовсе не дураки)))

Вы это тоже поймёте - всему своё время.

А пока ещё раз попробуем создать свои типы данных.

program mytypes;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type TMyInteger = Integer;
type TMyChar = 'a'..'z';
type TMyCars = (VAZ, GAZ, UAZ, MAZ, KAMAZ, BMW, MERSEDES, AUDI);


begin
  Writeln('Integer     : ', Low(Integer), '..', High(Integer));
  Writeln('TMyInteger  : ', Low(TMyInteger), '..', High(TMyInteger));
  Writeln('TMyChar     : ', Low(TMyChar), '..', High(TMyChar));
  Writeln('TMyCars     : ', Low(TMyCars), '..', High(TMyCars));

  Readln;
end.