Schon wieder Arrays... Werte abwechselnd ändern?

[Tyrael Y.]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if  Array[1,1] = 0 then
 begin
   Button1.Caption := 'Geklickt!';
   Array[1,1] := 1;
 end
 else if Array[1,1] = 1 then
 begin
   Button1.Caption := 'Nicht Geklickt!';
   Array[1,1] := 0;
 end;   
end;

meinst du es so?


mfg