переход из одного типа в другой

[Лонли-Локли]

Помогите с проблемой, про блема в следующем. Толи я не понимаю задания, толи моих знаний не достаточно что бы решить вот эту часть задачи:

Есть несколько типов заданных мной, вот код:

type Tp1 = 1..1;
type Tp2 = 2..2;
type Tp3 = 3..3;

т.е. состоящие из одной цифры. Как сделать так что бы при выполнении определённого условия один тип переходил в другой Tp1 в Тр2, а Тр3

а ещё вопрос, как оформить запись в файлд переменной типа рекорд)

[BOBAH13]

Проверять щас лень, но если мягкий вариант

Tp1(Tp2)

не работает, то можно жесткий

type pTp1 = ^Tp1;
var
  tp1: Tp1;
begin
  tp1 := pTp1(@Tp2)^;

Что-то в таком духе, лучше написать исходя из данных не могу

Что на счет структуры (записи), то либо по полям в текстовом режиме пишем в файл, иначе можно в бинарном просто как буфер данных записать, т.е. указываем переменную вашу и размер структуры (SizeOf(MyRecord); По паскалевски, можно использовать BlockWrite и File

[DarkEvil]

type trec = record
x : integer;
y : dword;
end;
---------------
var f: file of trec; rec : trec;
---------------
begin
---------------
write(f, rec);

[Stilet]

один тип переходил в другой

Всмысле?

как оформить запись в файлд переменной типа рекорд)

f:File of zapis где Zapis=record...
ну и write(f,zz) где zz - переменная типа zapis

[Лонли-Локли]

Сообщение от Stilet

Всмысле?

f:File of zapis где Zapis=record...
ну и write(f,zz) где zz - переменная типа zapis

в смысле если определённые условия выполняются то Tp1 должен стать Tp2 и соответственно вместо 1 в поле memo вписывается 2 и т.д. обязательно сделать через переход из одного типа в другой

Код:

Tp1(Tp2)

мне ужасно стыдно, куда это вписать?((

[Stilet]

то Tp1 должен стать Tp2

Это не возможно. Ты же о типах говоришь а не о переменных.
Короче - давай задачу подробно и без panic

[BOBAH13]

Что-то типа этого, надеюсь

type
  Tp1 = 1..1;
  Tp2 = 2..2;
  Tp3 = 3..3;

  TMyRecUnion = record
    case Integer of
      0: (
        t1: Tp1;
        );
      1: (
        t2: Tp2;
        );
      2: (
        t3: Tp3;
        );
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  mru: TMyRecUnion;
begin
  mru.t1 := 1;
  ShowMessageFmt('%d', [mru.t3]);
  mru.t2 := 2;
  ShowMessageFmt('%d', [mru.t3]);
end;

[Лонли-Локли]

Необходимо разработать элементарный макет дисконтной системы по
следующим параметрам:

- В системе заводиться список карт (просто числовые коды). (как я понял сделать через запись)
- У каждой карты определён свой тип.Задал вот так
type Tp1 = 1..1;
type Tp2 = 2..2;
type Tp3 = 3..3;
- У типа определены условия перехода на другой тип в простейшем случае накопление определённой суммы для карты. (Вот с этим проблема)

[Stilet]

Лонли-Локли

Тебе нужны не типы множества, за которые ты схватился а константы:

const tp1=1;tp2=2...

или перечисления

type tipe=(tip1,tip2,tip3);

посмотри в хелпе enumerated types, там все четко описано