Zitat von
DeddyH:
Setz doch einfach die Leerzeichen wieder dazwischen und werte später nur die Zeichen mit einer ungeraden Position aus.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var hilfwort:String;
var k:integer;
begin
buchstabe := Edit1.Text;
hilfwort := label2.caption;
Label3.Caption := inttostr(length(hilfwort));
for k := 1 to length(hilfwort) do
begin
if odd(k) then
begin
if ratewort[k] = buchstabe then
begin
hilfwort[k] := ratewort[k];
Label2.Caption := hilfwort;
end else
begin
ShowMessage('Daneben');
end;
end;
end;
end;
Ich habe das so probiert wie du es vorgeschlagen hast. Nur funktioniert es nicht ganz. Jetzt findet er nur noch den 1. buchstaben und das andere bleibt unbeachtet! Bin mit der Lösung bei mir völlig ab vom weg oder bin ich kurz davor, dass es funktionert?