Galgenmännchen in Lazarus

[Julix]

Hallo,
ich würde gerne Galgenmännchen in Lazarus schreiben.
Habe auch schon ein bisschen was geschafft.
Das bisherige Programm kann mithilfe einer if-anweisung schon überprüfen ob ein gesuchter Buchstabe in einem String (zu erratendes Wort) ist.

Code: Alles auswählen

for i:=1 to length(s) do
  begin
 
  if s[i]=ges then ausgabe:=ausgabe+ges else ausgabe:=ausgabe+'X';
 
  end;                                                            

Die Ausgabe sieht dann so aus:
Gesuchte Wort:'Hallo'
Buchstabe:'a'
Ausgabe:'XaXXX'

Mein Problem ist ich weiß nicht, wie man ich es hinbekommen soll, dass in der nächsten 'Runde' dann auch der Buchstabe, den ich schon erraten habe berücksichtigt wird.
Bsp.
Wenn ich in der nächsten Runde ein 'l' suche wird ausgegeben:
XXllX
Es soll aber das 'a' aus der Runde davor berücksichtigt werden:
XallX

Danke im Voraus

[af0815]

Ich würde sagen, du musst dir die Buchstaben die schon richtig erraten wurden speichern.

Eine Möglichkeit ist, die 'ausgabe' String mit X zu machen, der genau solange wie dein gesuchtes Wort inj 's' ist. Wenn ein Buchstabe richtig ist, so tauscht du dort das X gegen den Buchstaben aus und zeigst diesen String dem Benutzer wie bisher an.

Initialisierung einmalig bei Beginn der Runde

Code: Alles auswählen

 
for i:=1 to length(s) do
  begin
    ausgabe[i]:= 'X';
  end;
 

Abfrage und austausch

Code: Alles auswählen

 
for i:=1 to length(s) do
  begin
     if s[i]=ges then ausgabe[i] := ges;
  end;
 

und damit du weisst ob das Spiel zu ende ist, braucht man dann nur 's' mit 'ausgabe' vergleichen. Sind beide gleich so bist du fertig.

[Julix]

Ja danke erstmal aber soweit hatte ich auch schon einmal gedacht.
Bekomme dann immer nur eine Fehlermeldung:
'Incompatible types: got "AnsiString" expected "Char".'

Wenn ich dann ges als Char bei den Variablen angeben will gibt er mir eine Fehlermeldung in der Zeile aus, wo ich ges einlesen will.
Also muss ich irgendwie ges von einem String in einen Char umwandeln sofern das geht.

Abfrage und austausch

Code: Alles auswählen

 
for i:=1 to length(s) do
  begin
     if s[i]=ges then ausgabe[i] := ges;
  end;
 

[theo]

ich würde gerne Galgenmännchen in Lazarus schreiben.

Lügen haben kurze Beine.

Danke im Voraus

Immerhin schreibst du "im Voraus" nicht mit zwei "r".
Danke dafür.

[af0815]

Wenn ich dann ges als Char bei den Variablen angeben will gibt er mir eine Fehlermeldung in der Zeile aus, wo ich ges einlesen will.
Also muss ich irgendwie ges von einem String in einen Char umwandeln sofern das geht.

Vielleich hilft dir der http://wiki.freepascal.org/Character_an ... g_types/de link. Dort mal mit ShortString ansehen. Siehe auch http://wiki.freepascal.org/Shortstring/de

Andreas