Zum Suchen eines Maximums speicherst du dir in einer Hilfsvariablen eine sehr kleine Zahl, die auf jeden Fall kleiner ist als alle zu prüfenden; bei "Toren" wäre die Null ein sinnvoller Wert. Das ist das temporäre Maximum.
Dann gehst du die Daten Wert für Wert durch und vergleichst den aktuellen ...
Die Suche ergab 4 Treffer
- Di 26. Mai 2015, 18:05
- Forum: Programmierung
- Thema: Lazarus Programm "Fußballturnier"
- Antworten: 7
- Zugriffe: 3522
- Di 26. Mai 2015, 17:41
- Forum: Programmierung
- Thema: Lazarus Programm "Fußballturnier"
- Antworten: 7
- Zugriffe: 3522
Re: Lazarus Programm "Fußballturnier"
Erstmal willkommen im Forum.
Wenn du Code Highlighter(über dem Posteditor) benutzen könntest, wäre der Code viel leserlicher.
Zu deinem Problem: Kein Wunder, dass das nicht funktioniert. Du iterierst durch alle Zeilen deiner Tabelle und Schreibst den Text der Zelle(oder der darunter) in dein Edit ...
Wenn du Code Highlighter(über dem Posteditor) benutzen könntest, wäre der Code viel leserlicher.
Zu deinem Problem: Kein Wunder, dass das nicht funktioniert. Du iterierst durch alle Zeilen deiner Tabelle und Schreibst den Text der Zelle(oder der darunter) in dein Edit ...
- Di 26. Mai 2015, 17:35
- Forum: Programmierung
- Thema: Lazarus Programm "Fußballturnier"
- Antworten: 7
- Zugriffe: 3522
Re: Lazarus Programm "Fußballturnier"
ErledigtKomoluna hat geschrieben:Erstmal willkommen im Forum.
Wenn du Code Highlighter(über dem Posteditor) benutzen könntest, wäre der Code viel leserlicher.
MFG
Komoluna
(P.S.: Du kannst deinen Post auch bearbeiten)

- Di 26. Mai 2015, 17:07
- Forum: Programmierung
- Thema: Lazarus Programm "Fußballturnier"
- Antworten: 7
- Zugriffe: 3522
Lazarus Programm "Fußballturnier"
Hallo, ich bin gerade dabei ein Programm erstellen, womit man aus einer Liste von Fußballspielern (12 Mann) den Besten Torschützen und Torhüter ermittelt wird.
Folgenden Quelltext habe ich:
var i,n,BS1,BS2,BT1,BT2:integer;
begin
i:=1;
n:=11;
for i:=1 to n do
begin
BS1:=StrToInt(StringGrid ...
Folgenden Quelltext habe ich:
var i,n,BS1,BS2,BT1,BT2:integer;
begin
i:=1;
n:=11;
for i:=1 to n do
begin
BS1:=StrToInt(StringGrid ...