Moin,
ich habe mal Sharkys Code benutzt und nun folgendes versucht: Es soll 6 mal ein zufälliges Zeichen ins Edit geschrieben werden, klappt auch ohne Probleme. Doch nun möchte ich verhindern das ein Buchstabe (egal ob klein oder groß geschrieben) doppelt im Edit vorkommt. Hab mal folgendes (als Anfang) versucht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
buchstabe, s: String;
i : Integer;
begin
edit1.text := '';
for i := 0 to 6 do
begin
buchstabe := Chr((Random (26) + 65));
if (Boolean(Random(2))) then
begin
buchstabe :=LowerCase (buchstabe);
end;
s := edit1.text;
if Pos(buchstabe, s) <> 0 then begin
buchstabe := Chr((Random (26) + 65));
if (Boolean(Random(2))) then
begin
buchstabe :=LowerCase (buchstabe);
end;
end
else
Edit1.Text := Edit1.Text + buchstabe;
end
end;
Klappt auch soweit, aber nur wenn doppelte Buchstaben in gleicher Größe (klein oder groß) vorkommen, wie kann ich also verhindern das ein Buchstabe egal ob groß oder klein doppelt im Edit vorkommt ?
*grad auf dem Schlauch steh*
Danke schonmal,