Problme mit Variablenabfrage

[sECuRE]

Hi,

das Beispiel war schon richtig. Du musst jetzt zB FLAGSTOP als 0 und FLAGPAUSE als 1, FLAGRESTART als 2 etc ansehen..
In deinem Array kannst du jedem dieser Werte 0 oder 1 zuweisen. Ein Array of boolean wäre dazu sogar noch besser geeignet, wenn du die Zahlen vorher als const definierst sieht es zudem noch schön aus:

Delphi-Quellcode:

const
  FLAGRESTART: integer = 0;
  FLAGPAUSE: integer = 1;
  FLAGSTOP: integer = 2;

procedure Test;
var flags:array[0..10] of boolean;
    c:integer;
begin
flags[FLAGRESTART]:=true; // restart auf true setzen (=1)
flags[FLAGPAUSE]:=false; // pause auf false setzen (=0)
for c:=0 to 10 do
  if (flags[c]) then
    ShowMessage('flag '+IntToStr(c)+' ist gesetzt')
  else ShowMessage('flag '+IntToStr(c)+' ist nicht gesetzt');
end;

Eventuell solltest du dir mal ein paar Grundlagen-Tutorials ansehen

cu