type'le ilgili

[egedenizi]

Merhabalar arkadaşlar.
sorumu örnekle sormak istiyorum.

type
gunler=(pazartesi,sali,carsamba);
aylar=(ocak,subat,mart);
takimlar=(bkj,gs,fb);

örneğin pazartesi gunleremi ,aylaramı yoksa takımlaramı ait olduğunu bulmak ve Gunleri ,ayları,takımları değişken olarak kullanmak istiyorum.Teşekkür ederim...

[hbahadir]

Kod: Tümünü seç

type
  TMyType = type Integer
procedure p(var t:TMyType);
begin 
 ...
end;

procedure x;
var
  m: TMyType;
  i: Integer;
begin
  p(m); //Works
  p(i); //Error! Types of formal and actual must be identical.
end;

yani siz zaten type ile tanımladığınız türleri değişken tipi olarak tanımlayacaksınız. o nedenle ne sormak istediğinizi anlayamadım.