Das Problem ist jedoch dass das nicht klappt. tippe ich ddddd im Ratewort ein und in das 2. Editfeld d dann kommt im 3. editfeld nicht die Lösung : ddddd.
Und was passiert stattdessen?
if Raetsel.pruefen=true then begin
Von solchen Dingen solltst Du Dich schleunigst lösen!
if Raetsel.pruefen then begin
Delphi-Quellcode:
For iStelle:=1 to length(swort) do begin
busta:=copy(sWort,iStelle,1);
If busta=sBuchstabe then begin
delete(sZielwort,iStelle,1);
insert(sBuchstabe,sZielwort,iStelle);
end;
end;
end;
Abgeseh von der etwas eigenwilligen Formatierung, Ich benutze in solchen Fällen meist so etwas:
Delphi-Quellcode:
for i:=1 to length(ZielWort) do
if Suchwort[i]=Bstb then Zielwort[i]:=Bstb;
Daß beide Worte gleich lang sind, setze ich mal stillschweigend vorraus.
Gruß
K-H