Einzelnen Beitrag anzeigen

Benutzerbild von sECuRE
sECuRE

Registriert seit: 10. Apr 2003
Ort: Heidelberg
360 Beiträge
 
Delphi 7 Professional
 
#7

Re: Problme mit Variablenabfrage

  Alt 29. Mär 2005, 17:05
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
  Mit Zitat antworten Zitat