Thema: Galgenraten

Einzelnen Beitrag anzeigen

Mathematiker
(Gast)

n/a Beiträge
 
#2

AW: Galgenraten

  Alt 19. Mär 2013, 20:51
Hallo,
sehr viele Fragen auf einmal.
Die gesuchten Wörter habe ich in einer .txt Datei.
Frage Nummer 1: Wie wähle ich zufällig eines dieser Worte aus, und zeige dieses Wort dann unaufgedeckt (in Strichen, also pro Buchstabe ein Label) auf dem Bildschirm?
Mein Vorschlag:
Eine Tstringlist erzeugen, die Datei laden, einen zufälligen Eintrag ermitteln ..., z.B.
Delphi-Quellcode:
var woerter:tstringlist;
    anzahl,zufall:integer;
    ratewort:string;
begin
    randomize;
    woerter:=tstringlist.create;
    woerter.loadfromfile('deindateiname.txt');
    anzahl:=woerter.count;
    zufall:=random(anzahl);
    ratewort:=woerter[zufall];
    ...
    woerter.free;
end;
Bei den ... würde ich vorschlagen, das Wort für den Anfang (ist einfacher) in Großbuchstaben umwandeln. Einen zweiten String, z.B. gerateneswort, machst Du so lang wie Dein ratewort, aber mit einem Zeichen, z.B. #:
Delphi-Quellcode:
    gerateneswort:='';
    for i:=1 to length(ratewort) do gerateneswort:=gerateneswort+'#';
So, das war schon ziemlich viel Hilfe. Versuche es erst einmal bis hier hin.

Beste Grüße
Mathematiker
  Mit Zitat antworten Zitat