Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
while (Bedingung) do
begin
end;
...
while Index < 3 do
begin
LasseVerschwinden(Index);
Inc(Index);
end;
CreateMessageDialog('Verloren', mtInformation, [mbOk]);
...
procedure LasseVerschwinden(BildIndex: Integer);
begin
// An dieser Stelle das Bild ausblenden, das durch BildIndex indentifiziert ist
end;
procedure TMaexchen.SpielerLebenWeg;
begin
while Index < 3; do
begin
SpielerLebenWeg(Index);
Inc(Index);
end;
ImSLeben1.Visible := false;
ImSLeben2.Visible := false;
ImSLeben3.Visible := false;
ShowMessage('Verloren!');
end;