Zufälligen Buchstaben anzeigen

[Sharky]

Zitat von Äfan:

@Sharky: Natürlich kann ich euch den code zeigen:

Delphi-Quellcode:

unit Unit1;

.
.
procedure TForm1.Edit1Change(Sender: TObject);
begin
  If Edit1.Text = Label2.Caption then
   begin
   Anschlage.Caption := inttostr(strtoint(Anschlage.Caption) + 1);
  end
  else
   begin
   Fehler.Caption := inttostr(strtoint(Fehler.Caption) + 1);
  end;
  Label2.Caption := '';
  Edit1.Text := '';

  repeat
    C := Chr(Random(127 + 1));
  until C in ['A'..'Z', 'a'..'z'];
  Edit1.Text  := C;
end;
...
end.

...

Dann schauen wir doch mal was dort passiert
Du hast ein Ereigniss welches aufgerufen wird wenn sich der Inhalt von Edit-1 ändert. Und was machst Du innerhalb dieser Methode? .... Genau! Du Änderst den Inhalt von Edit-1. Ergo -> Die Methode ruft sich selber immer wieder auf. Das Ergebniss ist ein Stacküberlauf.

P.S.: Deine repeat-Until-Schleife könnte unter umstenden Jahre laufen ohne je beendet zu werden