Bewegung eines Labels

ploRa · Beiträge: 59 Win XP Delphi 6

Hiho und noch eine Frage habe ich
Ich habe ein Listbox wo ich viele Wörter mit 2 Silben reingeschrieben habe
zB
...
Vor-name
Straßen-schild
...

Jetzt sollen die Silben ausgelesen werden und jeweils in Label´s gelesen werden.
Das soll dann so aussehen:
(Welche Silbe welchem Label zugewiesen wird ist egal.

Label1 soll als Caption "Vor" haben
Label2 soll als Caption "schild" haben
Label3 soll als Caption "name" haben
Label4 soll als Caption "Straßen" haben

Dann sollen die Labels mit den einzelnen Silben von Oben nach unten auf der Form fallen.
Sie sollten natürlich nicht alle gleich fallen also geschwindigkeit verschieden sein und die x Achse ( horizontal ).

Zur Info:
Ich muss ein Spiel programmieren wo wie oben beschrieben die "Wörter" herunterfallen und der Player diese in richtiger reihenfolge wieder mit einem "Fänger" unten auffangen muss.

Also fängt der Player zuerst "Vor" dann muss er gucken, dass er als 2tes das Wort "name" fängt.
Ich habe ca. 20 Wörter in meiner Listbox und alle sollen verschieden nacheinander runterfallen.
Natürlich gibt es auch falsche Silben damit man auch was falsch machen kann
(Es ist ja ein lernspiel für die 6te Klasse)

Könnt ihr mir zu diesem Prozess einen Quellcode geben ?
Das wäre super weil ich absolut nicht klar komme

Mfg

Moderiert von AXMD: Rechtschreibfehler im Titel korrigiert

Ehemaliges Mitglied Erhaltene Danke: 1

ploRa hat folgendes geschrieben:

Könnt ihr mir zu diesem Prozess einen Quellcode geben ?

Nein. Nein! Nein!!
Hier wird dir keiner einen Quelltext schreiben, damit du eine blitzsaubere Hausaugabe einreichen kannst, mit der du dann rumprollst und ne gute Note absahnst. (ok, ich unterstelle dir was. sry, wenn ich falsch liege)
Zu deinem Prob Nr.1:
Schau dir mal TListBox.Items, Pos() und Copy() an.
Prob Nr. 2:
TTimer, Random, Left-,Top-Werte der Labels.

ploRa · Beiträge: 59 Win XP Delphi 6

es ist keine hausaufgabe..
Und es ist uns überlassen wie und womit wir das proggy schreiben

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.BitBtn1Click(Sender: TObject);
VAR zufall, laenge, position, i, j,k,l,m,n,o : INTEGER;
    silbe1, silbe2 : STRING;
begin

randomize;
zufall:=random(form1.listbox2.items.count);
laenge:=length(form1.listbox2.items[zufall]);
position:= pos('-',form1.listbox2.items[zufall]);
silbe1:=leftstr(form1.listbox2.items[zufall],position-1);
label4.Caption := silbe1;
silbe2:= midstr(form1.listbox2.items[zufall],position+1,laenge);
label5.Caption := silbe2;


FOR i:=64 TO 500 DO BEGIN
Label4.top:=i;
Label5.Top:=i;
delay(50);
end;

Weiter komme ich nicht. Es wird die 1 Silbe und 2 Silbe jeweils in 2 Labels geschrieben aber es sollen ja mehrer ausgelesen werden

Gausi · Verfasst: Sa 22.01.05 22:39

Das sollte aber zu schaffen sein. Pack doch einfach das, was die beiden Silben auf zwei Labels verteilt, in eine Schleife, so dass das mehrfach ausgeführt wird.

Das einzige, was dann Probleme machen könnte ist, wie man in der Schleife die verschiedenen Silben den Labels mit den Nummern 6+7, 8+9, 10+11 etc zuweist. Und dafür gebe ich mal das Stichwort Suche in: Delphi-Forum, Delphi-Library

FINDCOMPONENT. Da sollte sich was finden.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme