Rundenzähler für mehrere Läufer (Delphi 7 Prof)

[JIP0815]

Moin,

haben mir vorgenommen ein Program zu schreiben, welches jedem Läufer (Startnummer z.B.:0-100)
eine Runde addiert und zwar indem man die Zahl (Startnummer) in ein Editfeld schreibt und dann ENTER
bzw. den Button klickt.

Nun mein Problem:

Ich habe keine Erfahrung mit den Arbeiten an Tabellen über Delphi und würde euch gerne
darum bitten mir evtl nen kleines Tutorial zu schreiben, indem Delphi über nen Befehl
die Zeilen in der Spalte1 abfragt und den Wert in der Spalte2 der gesuchten Zeile um 1 verändert.

Zitat:

Sprich:
Läufer 35 überquert die Ziellinie
035 wir in das Editfeld eingegeben und ENTER wird gedrückt
Zeile35 wird gesucht
In Spalte2 der Zeile35 wird die Rundenzahl um 1 erhöht

Wie wählt man bestimmte Zeilen an und wie bearbeitet man bestimmte Spalten????

Gruß

JIP0815

[jfheins]

Geht es um Datenbanken?

Wenn ja, sollte es reichen das passende SQL Kommando abzusetzen. (update tabelle set runde=runde+1 where id=5)

[blackfin]

Ich hab dir mal ein (zugegebenermaßen sehr simples) Beispiel mit einem TListView angehängt.
Von Interesse ist für dich dabei die Prozedur InsertOrUpdateRunner().
Schau es dir einfach erstmal an, dabei lernt man am meisten, aber ohne Gewähr auf Schönheit
(und eine Abfrage, ob man wirklich eine Nummer eingegeben hat, ist auch noch nicht drin)
Wenn du die Liste sortiert haben willst, musst du nur beim EventView den SortType auf "stText" stellen.

[hoika]

Hallo,

Zitat:

darum bitten mir evtl nen kleines Tutorial zu schreiben, indem Delphi über nen Befehl
die Zeilen in der Spalte1 abfragt und den Wert in der Spalte2 der gesuchten Zeile um 1 verändert.

Zu Datenbanken gibt es hier genug Tutorials.

Übrigens solltest du das wirklich zuerst lesen ...

Spalte = Feld
Zeile = Set

Jede "Zeile" bekommt in der Tabelle eine eindeutige Nummer (nicht die Start-Nummer !).

Code:

Id  StartNo  Runde
1   1        25
2   100      20

Dann lautet der SQL-Befehl (Tabellen-Name hier TableX)

Delphi-Quellcode:

Update TableX
Set Runde=Runde+12
Where StartNo=100

PS:
Wie kann ich eigentlich das Id Start_No Runde anständig formatieren ???


Heiko

[DeddyH]

Zitat von hoika:

PS:
Wie kann ich eigentlich das Id Start_No Runde anständig formatieren ???


Heiko

In Code-Tags einschließen?

Code:

ID   Start_No  Runde
1    100       1
2    45        2

[JIP0815]

Vielen Dank

Ich habe das mit dem InsertOrUpdate wohl vorerst verstanden und werden mein Programm
(in erweiterter Form) so gestalten wie das Programm von Blackfin (Danke nochmals).

Mit den SQL und ID etc. werd ich mich mal ein wenig umschauen.



JIP

P.S.: Gibt es eine Möglichkeit diese Tabelle anhand der Rundenzahlen zu sortieren?

[scrat1979]

SQL-Code:

SELECT * FROM tablename
ORDER BY Runde ASC

... aber schau Dir mal die SQL-Basics an, dann wird wirklich vielen klar!

[DeddyH]

Ööhmm... in dem Beispielprogramm wird keine DB verwendet

[blackfin]

Zitat:

Ööhmm... in dem Beispielprogramm wird keine DB verwendet

Davon war im ersten Post auch gar nicht die Rede, deswegen ist mein Beispiel ohne DB mit einem simplen TListView
Wenn eine Datenbank von Nöten ist, dann ist mein Beispiel natürlich nicht ganz das richtige, obwohl man ja auch die TListView-Items aus einer Datenbank laden und in diese speichern könnte.
Da bieten sich dann aber solche Sachen wie DBGrid doch mehr an

Zitat:

Gibt es eine Möglichkeit diese Tabelle anhand der Rundenzahlen zu sortieren?

Die einfachste Möglichkeit in meinem Beispiel mit TListview wäre, die Runde einfach statt dem Läufer in die erste Spalte ("Caption") zu setzen, dann sortiert er bei SortType "stText" nach der Runde. Der ListView sortiert nämlich immer per standard nach der ersten Spalte.
Willst du es nach der zweiten Spalte sortieren, brauchst du das OnCompare-Event vom Listview, in dem du dir dann deine eigene Sortier-Routine zusammenbastelst.
Dazu gibts auch ein kleines Tutorial:
http://www.latiumsoftware.com/en/delphi/00011.php

[DeddyH]

Ich bezog mich auch auf den Post von Scrat: SQL nützt in Deinem Programm ja nix