Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
29. Jan 2010
Wieso sind sämtliche Methoden als virtuell deklariert, wenn Du keine Klassen ableitest? Und ein inherited hab ich auf die Schnelle auch nirgends gefunden. Außerdem würde ich statt die ganzen Getter und Setter direkt anzusprechen eher Properties deklarieren, das macht den Code übersichtlicher.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
28. Jan 2010
procedure TFormMain.Berechne(pKarte, pG1Karte, pG2Karte: TKarte);
begin
//Ist pKarte höher als pG1Karte?
if (pKarte.GibInhalt.GibZahl > pG1Karte.GibInhalt.GibZahl) then
begin
//auch höher als pG2Karte?
if (pKarte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
begin
ShowMessage('Spieler gewinnt');
end
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
28. Jan 2010
Und wer gewinnt? Die höchste Zahl?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
28. Jan 2010
Bist Du denn einmal durchgesteppt? Das sollte man vielleicht mal als erstes versuchen, da fallen (zumindest mir) logische Fehler recht schnell ins Auge.