Zufällige Infos auf datenbank

maikel_mz · Hält's aus hier Beiträge: 4 Win XP D6 Prof

Hi, Ich möchte ein Vokabelprogramm für mein kleinen Bruder schreiben. Und zwar sollen zufällige Vokabeln aus einer Datenbank an einem label angezeigt werden. Ich hab es schon soweit geschafft, das der jeweils erste Wert aus der Datenbank angezeigt wird. Und zwar so:

markieren

Delphi-Quelltext

1:	l_wort.Caption := f_dbase.DBGrid1.Fields[1].Text;

Die datenbak besteht aus zwei spalten. Deutsch und Englisch.
Wenn ich die 1 hinter fields schreib, kommt deutsch, und bei ner zwei logischerweise Englisch. Wie kann ich jetzt auch auf die anderen Wörter zugreifen?

Danke im Foraus.

mfg maikel

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

table.next (einfach inner schleife aufrufen)
weiß net, gibts auch nen befehl um direkt zu nem bestimmten datensatz zu springen?

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

maikel_mz · Hält's aus hier Beiträge: 4 Win XP D6 Prof

naja, so kann ich dann auf den nächsten zugreifen. Ich will ja aber das zufällig ein Wort ausgesucht wird. Kann man da irgendwas mit "random" machen?

maikel_mz · Hält's aus hier Beiträge: 4 Win XP D6 Prof

Ok, hat sich erledigt. Habs doch mit next gemacht. Kommen halt alle Vokabeln nacheinander in der gleichen reihenfolge.

THX an GSE!

GTA-Place · Verfasst: Sa 13.11.04 20:05

Machs doch so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

x := random(100);

repeat
  table.next;
   inc(y)
until y = x;

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

so hatte ich das eigentlich auch gemeint (mit der schleife)
(denke aber ne for schleife wäre effektiver, oder?)

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

maikel_mz · Hält's aus hier Beiträge: 4 Win XP D6 Prof

ah, danke. Stimmt, gar keine dumme idee. Habs dann mit der for-schleife gelöst!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme