for op:=1 to 13 do begin if om[strtoint(Holdnr.Text)]>plads[op] then begin plads[op]:=om[strtoint(Holdnr.Text)]; hold[op]:=strtoint(Holdnr.Text); end; end;
Du vil kunne registrere alle resultaterne ? Når du har registreret resultaterne efter hver runde vil du sortere efter nuværende pladsering ? eller hva :-?
Det jeg godt kan lide ved den tilgang er eksempelvis, at logikken der tæller et holds omgang er en det af Hold-objektet. En anden fordel er, at det er ufølsomt overfor ændringer i antal hold og antal omgange.
Uden jeg synes det er kanoner efter gråspurve er det måske noget at prøve?
Det er en ret simpel løsning hvor jeg bruger TObjectList.
Der er en Teamliste der indeholder Team, der igen indeholder omgangene, deres tider.
Humlen er at logik er tæt pakket med objektene, f.eks. tickcount der er en funktion der gennemløber omgangene og tæller omgangstiderne sammen. Fordi den findes i team-objektet (en liste af omgange) er alle de registrerede omgange kun for det pågældende hold. Der er derfor ikke brug for "if team.id = x then ticks := ticks + xx" eller lignende. Man tæller det bare sammen.
Det er mit forsøg på et stringent eksempel på anvendt objektorientering. Her er nedarving og polimorfi uden det ellers bliver for avanceret. Men jeg kan da godt prøve om jeg kan lave det færdigt - der er jo kun klassedefinitionerne ovenfor.
Hej hrc Fik du nogensinde lavet ovenstående eksempel? Hvis ja må du også meget gerne sende det til mig da jeg kunne bruge et godt eksempel på alle de metoder du nævner :)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.