Forum: Algorithmen, Datenstrukturen und Klassendesign
by Klaus01,
25. Jun 2012
Weil Du die Lösung nicht nach edit3.text kopierst.
Grüße
Klaus
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Klaus01,
25. Jun 2012
.. wird dasn eine Art von Hangman Spiel?
procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
begin
eingabe1 := edit1.text;
setLength(lösung, length(eingabe1));
wortLaenge := length(eingabe1);
for I := 1 to wortLaenge do
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Klaus01,
25. Jun 2012
Jeder ist mal angefangen ..
Bevor Du mit den Ersetzungen anfängst.
Am besten nachdem Eingabe1 gefüllt wurde.
Grüße
Klaus
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Klaus01,
25. Jun 2012
was noch fehlt ist die Länge von Lösung zu setzen.
setLength(Lösung,length(Eingabe1));
@DeddyH: Ja, da hast Du Recht.
Grüße
Klaus
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Klaus01,
25. Jun 2012
for i := 1 to length(eingabe1) do
begin
if eingabe1=buchstabe then
begin
lösung:=buchstabe;
end;
end;
Welche Delphi-Version nutzt Du >= 2009 dann hat Dein String pro Buchstaben zwei 2Byte.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Klaus01,
25. Jun 2012
for I := 1 to wortLaenge do
begin
if eingabe1=buchstabe then
begin
lösung:=buchstabe;
end;
count := count +1;
end;