replace - Funktion

CrOc · Beiträge: 48 Win XP D5 Standard

Hi,
ich hab so ne Art Hangman programmiert:
Ich lass mir per Zufall ein Wort generieren und dann über die Länge Strich in einem Label schreiben.
Nun lass ich mit hilfe einer for schleife herausfinden, ob sich der gewünschte buchstabe in dem wort befindet und wenn ja an welcher stelle. Jetzt wollte ich, dass die Strich mit einer replace funktion mit dem buchstaben ersetzt werden, was aber nicht funktioniert, da er dann jeden strich durch den buchstaben ersetzt.

TomT · Beiträge: 116 Suse 9.1 WinXP D6 Pers

so mal auf die schnelle

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var a: string;
      buchstabe : char;
begin
  a:= label1.caption;
  for i := 1 to length(loesung) do
  begin
    if loesung[i] = buchstabe then a[i] := buchstabe;
  end;
  label1.caption:= a;
end;

_________________
...und da wurde mir klar, dass eine Toolbar keine Kneipe für Heimwerker ist.

CrOc · Beiträge: 48 Win XP D5 Standard

thanks

auf so was muss man erst mal kommen ....

TomT · Beiträge: 116 Suse 9.1 WinXP D6 Pers

jederzeit wieder ;-)

_________________
...und da wurde mir klar, dass eine Toolbar keine Kneipe für Heimwerker ist.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme