Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2021, 14:00   #1
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию Свой тип

Господа, у меня в процедуру передаются значение например...
Код:
Procedure testtest(id, mode: String);
Mode может быть или test или work, к примеру....
Сейчас я это строкой передаю, что конечно, работает, но не правильно это... Могу к примеру буквой ошибиться при вызове процедуры...

Хочу не строкой передавать а своими типом каким нибудь...
Как это сделать? В пределах процедуры объявить свой тип который может принимать одно из нескольких значений ?
Другими словами, так хочу процедуру вызывать:
Код:
testtest(id, work);
или
Код:
testtest(id, test);
Ввел например не "test" а "tst" и все, приложение не откомпилировалось...

Последний раз редактировалось remus-xe2; 19.04.2021 в 14:03.
remus-xe2 вне форума Ответить с цитированием
Старый 19.04.2021, 14:15   #2
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 54
По умолчанию

Код:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

 type TMyMode = (work, test);

implementation

{$R *.dfm}

Procedure Tests(mode: TMyMode);
begin
    if mode = work then beep;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Tests(work);
end;

end.
Все, понял, может кому то поможет...
remus-xe2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как определить свой тип данных? tsvigo Общие вопросы C/C++ 6 09.06.2016 09:09
Свой тип файла Даниил_глазко Общие вопросы Delphi 5 17.04.2011 11:35
Свой тип данных korand Общие вопросы Delphi 6 01.04.2011 20:37
Вопрос по MS Visual C++ : Свой тип данных Eminem Помощь студентам 15 17.01.2011 04:05
Создать свой упакованный тип в C# Никки Общие вопросы .NET 1 25.10.2009 11:49