tlhIngan Hol Dajatlh´a´?
- Ersteller Aaron
- Erstellt am
Tortenhuber
Ehrenmitglied
Procedure TWelt1.KlingonCheck( sender : TGod, Pool : TPool );
var I : integer;
Begin
If Pool.items.count > 0 then
For I := 0 to Pool.items.count - 1 do
If Pool.items.enabled = true then
Begin
Pool.items.enabled := false;
Pool.items.visible := false;
end;
else showmessage('Klingonen nicht aktiv');
end;
var I : integer;
Begin
If Pool.items.count > 0 then
For I := 0 to Pool.items.count - 1 do
If Pool.items.enabled = true then
Begin
Pool.items.enabled := false;
Pool.items.visible := false;
end;
else showmessage('Klingonen nicht aktiv');
end;
Tortenhuber
Ehrenmitglied
KlingonCheck( Tortenhuber, wv );
