Entwickler-Ecke
Multimedia / Grafik - replace - Funktion
CrOc - Sa 27.12.03 19:04
Titel: replace - Funktion
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 - Sa 27.12.03 19:27
so mal auf die schnelle
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; |
CrOc - Sa 27.12.03 19:33
thanks
auf so was muss man erst mal kommen ....
TomT - Sa 27.12.03 20:02
jederzeit wieder ;-)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!