Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi tabelle berechnen!? (https://www.delphipraxis.net/10085-tabelle-berechnen.html)

heiopei 11. Okt 2003 12:23


tabelle berechnen!?
 
Hallo,
also ich hab ein array, in das ich namen und zugehörige punkte(wettkampftabelle) speichere. danach möchte ich mit einem stringgrid eine tabelle darstellen, in der die platzierung der personen dargestellt werden soll. ich weiss aber nicht, wie ich berechnen soll, wer 1er, 2er, usw. ist.(also wer die meisten siege hat erster, wenn gleich viel wer die bessere differenz hat). kann mir da jemand helfen?
danke schon im vorraus
heiopei

heiopei 11. Okt 2003 19:51

Re: tabelle berechnen!?
 
Abend,
weiss keiner ne antwort oder nen hinweis zu meinem problem?
hilfeeeeee,
heiopei

SirThornberry 11. Okt 2003 20:02

Re: tabelle berechnen!?
 
ist sieger wer die meisten punkte hat, oder wer am häufigsten auf Platz1 war?? Und wie sieht das in dem Array aus
"mensch01 500"
"mensch02 400"
"mensch03 600"????
irgendwie wärs nicht schlecht wenn du entwas genauer wirst

heiopei 11. Okt 2003 20:17

Re: tabelle berechnen!?
 
Hallo,
also erster ist der, der die meisten punkte hat.
im array sieht das dann etwa so aus:
(name) (punkte) (differenz; gegebenen falls)
"typ1" 100 10
"typ2" 124 14
"typ3" 8 -1
usw.

hoffentlich lang das,
heiopei

axelf98 11. Okt 2003 21:23

Re: tabelle berechnen!?
 
Ich hatte auch mal so ein ähnliches Problem: Ich musste so einen Array sortieren. Ich habs damals so gelöst:

Delphi-Quellcode:
 procedure tausche (var a, b : integer);
  VAR hilf : integer;
  Begin
  hilf := a;
  a := b;
  b := hilf;
 end;

// Tliste = array of array[0..1] of integer;
//  TErgebnisListe = array of integer;

 function Loesungssystem.sort(Eingabe : Tliste ; n1 : integer) : TErgebnisListe;
  VAR x,y,i : integer;
    tausch : boolean;
     e : tergebnisliste;
 Begin
 y := n1;
 tausch := true;
  While tausch do
  Begin
   tausch := false;
   For x := 0 to y -1 do
    If Eingabe[x,1] > Eingabe[x+1,1] then
     Begin
      tausch := true;
      tausche (Eingabe[x,1], Eingabe[x+1,1]);
      tausche (Eingabe[x,0], Eingabe[x+1,0]); // andere Reihe wird mitsortiert
     End;
    y := pred(y);
   End;
   setlength(e,length(eingabe));
   for i := 0 to high(Eingabe) do
   e[i] := eingabe[i,0];
  result := e;              // Die Reihenfolge der Vorkommen als ARRAY
 End;
Müsste man noch entsprechend umbauen... und jenach dem noch zusätzliche Bedingungen einführen...

heiopei 16. Okt 2003 20:57

Re: tabelle berechnen!?
 
Abend,
genau das was ich gesucht habe!
danke,
heiopei


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz