Delphi-Quellcode:
// GesuchtesWort initialisieren
// die ganze Prozedure stellt Dir das gesuchte Wort als ____ ____ dar.
// also pro Buchstaben einen Unterstrich
// wobei GesuchtesWort und Wort jeweils ein String sind
GesuchtesWort:=wort; // das ist nur um die Länge des Wortes zu haben
for i:=1 to length(gesuchtesWort) do
if gesuchtesWort[i] <> ' ' then // erhalten der Leerzeichen
gesuchtesWort[i]:='_';
...
Delphi-Quellcode:
// suche Button;
//durchsuche das ganze Wort nach einem Buchstaben
// wobei Buchstabe ein Char ist, und der Buchstabe sein sollte der gerade "erdreht" wurde
for i:=1 to length(wort) do
if buchstabe = wort[i] then // Buchstaben gefunden
begin
GesuchtesWort[i]:=buchstabe; // das stellt sich dann z.B. so dar: ___e_ e___
end;
Habe es einmal ein wenig mehr kommentiert.
Wenn noch Fragen sind, bitte etwas genauer beschreiben was denn nicht geht - oder nicht zum Laufen gebracht werden kann.
Vielleicht haben wir ja verschiedene Ansätze zu dem Problem.
Grüße
Klaus