Re: Procedure beenden
selbst mit IFs wäre kein EXIT nötig, wenn man das ELSE verwenden würde :angel:
|
Re: Procedure beenden
auch bei "case" wäre kein exit notwendig:
Delphi-Quellcode:
case pos of
1:begin button1.Top := 120; button1.Left := 8; pos := 2; end; 2:begin //usw.. |
Re: Procedure beenden
Zitat:
Delphi-Quellcode:
Gruß oki
case Pos of
4 : begin ... end; ... 1 : begin ... end; 5 : begin ... end; end; |
Re: Procedure beenden
Zitat:
Zitat:
|
Re: Procedure beenden
wozu denn das weiterzählen selber übernehmen?
Delphi-Quellcode:
oder in "länger" (für 1 bis 5)
case Pos of
0 : begin button1.Top := 120; button1.Left := 8; end; 1 : begin ... end; ... 4 : begin ... end; end; Pos := (Pos + 1) mod 5; procedure TForm1.FormCreate(Sender: TObject); begin pos := 0; end;
Delphi-Quellcode:
oder
case Pos of
.. end; Inc(Pos); if Pos > 5 then Pos := 1;
Delphi-Quellcode:
oder
case Pos of
.. end; if Pos < 4 then Inc(Pos) else Pos := 1; oder oder ... |
Re: Procedure beenden
Zitat:
Nee, klar, bei case ist das unerheblich. Nur bei den if-Anweisungen würde es einem ohne Exit auf die Füße fallen, außer man macht es so, wie es himitzu vorgeschlagen hat. Gruß oki |
Re: Procedure beenden
Exit ist unnötig.
|
Re: Procedure beenden
Zitat:
Gruß oki |
Re: Procedure beenden
Zitat:
|
Re: Procedure beenden
Also ich hab mich jetzt für die case variante entschieden da es von der geschwindigkeit ausreicht und auch schön übersichtlich ist.
Eigentlich war das Prog nur als kleine übung gedacht, da sieht man mal wieder wie schnell man sowas verlernt :oops: aber läuft jetzt alles :) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz