Forum: Object-Pascal / Delphi-Language
by Aphton,
16. Jun 2012
Nöp, danke.
Ginge aber ohne Zuweisungen..
Forum: Object-Pascal / Delphi-Language
by Aphton,
15. Jun 2012
Klar, deshalb mache ich das ja auch so.. Nur kommt mir eine weitere (Hilfs-)Definition ein bisschen redundant vor.
Forum: Object-Pascal / Delphi-Language
by Aphton,
15. Jun 2012
Danke, ist beruhigend zu wissen, dass Pros das auch so machen =P
Aber unschön finde ichs trotzdem =/
Forum: Object-Pascal / Delphi-Language
by Aphton,
15. Jun 2012
Aha? Nun, ich bin immer den umständlichen Weg gegangen und habe es so gemacht:
type
TTennisPunkte = (tp0 = 0, tp15 = 15, tp30 = 30, tp40 = 45, tpA = 60);
const
strTennisPunkte: Array of String = ('0', '15', '30', '40', 'A');
Forum: Object-Pascal / Delphi-Language
by Aphton,
13. Jun 2012
type
TTennisPunkte = (tp0 = 0, tp15 = 15, tp30 = 30, tp40 = 45, tpA = 60); // in 15er Schritten, da es programmintern evt. besser zu handhaben ist
PTennisSpieler = ^TTennisSpieler;
TTennisSpieler = record
Punkte: TTennisPunkte;
Aufschlag: Boolean;
{...}
end;
function istBreakBall(SpielerA, SpielerB: TTennisSpieler): Boolean;
Forum: Object-Pascal / Delphi-Language
by Aphton,
13. Jun 2012
Ok, glaube es verstanden zu haben. Liefere demnächst ein Codefetzen...
Forum: Object-Pascal / Delphi-Language
by Aphton,
13. Jun 2012
Nur aus Neugier:
Wenn einer Breakball hat, jedoch die Runde verliert, ists dann (sozusagen) wieder Gleichstand? Dh. kann man nur gewinnen, wenn man bei einem Breakball punktet?
A - B - (* Breakball)
30 - 40* - B punktet, gewinnt Match/Runde
30 - 40* - A punktet -> neuer Stand:
40 - 40 - A punktet nochmal -> ...
40* - 40 - entweder A punktet und gewinnt oder B punktet (neuer Stand:)
40 -...