Type hochzählen ?

Harry

Moderator

Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2134
Registered: 03 / 2003

Subject:

Type hochzählen ?

· Posted: 01.01.2015 - 19:47 · #1

Hallo @ all,

ja ich hab keine Ahnung

..... angenommen ich habe einen vorgegebenen Type einer Variable, welche eine Funktion als Übergabewert erwartet.

Code

Type
tKey = (key0, key1, key2, key3, key4, key5, key6, key7);

und möchte/muß aber diese Funktion in einer For-Next-Schleife mit diesem Type hoch zählen ...... geht das ?

Also z.B.

Code

.....
Procedure TestKey(Key:tKey);
  Begin
  .....
  End;
.....
For X:=0 to 7 do
  TestKey(X);
  EndFor;

Gruss
Harry

Administrator

Gender:
Location: Germany
Age: 24
Homepage: e-lab.de
Posts: 5558
Registered: 03 / 2002

Subject:

Re: Type hochzählen ?

· Posted: 01.01.2015 - 22:29 · #2

Hallo Harry,
so sollte es tun:

Code

Type
  tKey           = (key0, key1, key2, key3, key4, key5, key6, key7);
...
  For X:=0 to 7 do
    TestKey(tKey(X));
  EndFor;

rolf

Harry

Moderator

Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2134
Registered: 03 / 2003

Subject:

Re: Type hochzählen ?

· Posted: 02.01.2015 - 14:23 · #3

Danke Rolf,

ich hab es aber anders gelöst: die Unit umgebaut

Gruss
Harry

Merlin

Administrator

Gender:
Age: 24
Posts: 1409
Registered: 03 / 2005

Subject:

Re: Type hochzählen ?

· Posted: 02.01.2015 - 18:14 · #4

Hi Harry.

Alternative:

Code

Type
  tKey           = (key0, key1, key2, key3, key4, key5, key6, key7);
...

var
  X : tKey;
begin
  For X:=Key0 to Key7 do
    TestKey(X);
  EndFor;
end;

Harry

Moderator

Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2134
Registered: 03 / 2003

Subject:

Re: Type hochzählen ?

· Posted: 02.01.2015 - 22:45 · #5

Danke Merlin

Type hochzählen ?

Registered users in this topic