Hallo
DP-User,
Im Informatik Unterricht haben wir (endlich) mit Delphi angefangen. Nun sollen wir bis zum Ende des Schuljahres eine Abgespeckte Version des Spiels "Text Express" schreiben.
Bei dem Spiel geht es darum, dass man verschiedene Buchstaben bekommt (6). Und dann aus diesen Wörter bilden muss. Je größer das Wort desto mehr Punkte erhält man.
Wir entwickeln das Programm vollständig in der Schule, doch habe ich im Moment nichts zu tun und dachte mir ich fange schonmal an um ein paar Pluspunkte zu sammeln.
Das gesamte Programm soll als Konsolenanwendung geschrieben werden.
Mein Problem ist nun, dass ich nicht weiß, wie ich eine vorhandene Wortliste ( wortliste.txt eine Zeile - ein Wort) auf einen String hin überprüfen lassen kann.
Ich habe bereits dieses und andere Foren durchstöbert und nichts konkretes gefunden.
Ich muss wohl die gesamte Liste mit LoadFromFile in eine string-Liste einlesen und dann überprüfen, ob mein String darin enthalten ist.
Da stecke ich fest. Hier mein bisheriger Quellcode:
Delphi-Quellcode:
program TEultra;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
option : integer;
buchstaben : array[1..6] of string;
buchstabe : integer;
i : integer;
wort : string;
begin
repeat
writeln('Willkommen bei Text Express Ultra!');
writeln('1 = Spiel starten');
writeln('2 = Highscore');
writeln('3 = Spiel Beenden');
readln(option);
if option = 1 then
begin
for I := 1 to 6 do
begin
randomize;
buchstabe := random(26) + 65;
buchstaben[i] := char(buchstabe);
end;
writeln(buchstaben[1]);
writeln(buchstaben[2]);
writeln(buchstaben[3]);
writeln(buchstaben[4]);
writeln(buchstaben[5]);
writeln(buchstaben[6]);
writeln('Bilden sie aus diesen Buchstaben nun die Wörter!');
writeln('Drücken sie enter um mit dem Spiel zu Beginnen!');
readln;
readln(wort);
end
else if option = 2 then
begin
end
else
begin
writeln('Bitte eine Gültige Option eingeben!');
end;
until option = 3;
end.
Ihr müsst nur mal meinem Gehirn nen Anstoß geben^^
bis dahin mfg Jonas