Zufälligen Buchstaben anzeigen

[Binärbaum]

Zitat von Äfan:

Mit Binärbaum's code gehts.

Was gibt da zu grübeln? Wunderst du dich nur, dass es funktioniert, oder fragst du dich, wie es funktioniert?

[Sharky]

Zitat von Binärbaum:

So ist es vielleicht besser....

Hai Binärbaum,
bei deinem Code werden aber nur Gross oder Kleinbustaben erzeugt. Darum habe ich ja extra noch einen Zufallswert eingefügt um das zu umgehen

Aber Äfan scheint zur Zeit ja andere Probleme mit den verschiedenen Beispeilen zu haben

[Binärbaum]

Zitat von Sharky:

Zitat von Binärbaum:

So ist es vielleicht besser....

Hai Binärbaum,
bei deinem Code werden aber nur Gross oder Kleinbustaben erzeugt. Darum habe ich ja extra noch einen Zufallswert eingefügt um das zu umgehen

Ebenso könnte man bei meiner Variante einen zufälligen Wert (d.h. True oder False) übergeben, um Groß- und Kleinbuchstaben zu erzeugen. Wie man es machen will, ist letzlich jedem selbst überlassen. Realisiern kann man es mit beiden Varianten.
[Edit]
Allerdings kann man deine Methode nicht verwenden, wenn man nur Groß- oder nur Kleinschreibung haben möchte. Aber das kommt jetzt darauf an, was Äfan genau erreichen will.
[/Edit]

MfG
Binärbaum

[Äfan]

ich bekomm aber immer noch: Bild (verlinkt weil zu groß)

[Khabarakh]

Das kann eigentlich nicht an diesen Zeilen liegen . Zeig mal den Quellcode bzw. gleich das ganze Projekt (oder vielleicht auch Bereichsprüfung usw. ggf. anschalten).

@Sharky: Oh, da sind ja wirklich noch welche dazwischen, falschherum wars auch noch .

[Rastaman]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  s: String = 'abcdefghijklmnopqrstuvwxyz';
begin
  Randomize;
  Edit1.Text := s[Random(Length(s) + 1)]
end;

[Chegga]

Hi,

@ Äfan:
Es gibt noch eine Möglichkeit zufällige Buchstaben zu erzeugen.
(Diese ist zugegebener Maßen etwas sinnbefreit. )

Vereinbare eine Integer-Variable z.B.: Zahl: Integer;

Delphi-Quellcode:

bla bla bla...
Zahl := random(52) + 1;  
// jetzt kommt das Sinnbefreite
  case Zahl of
   1: Edit1.Text := 'A';
   2: Edit1.Text := 'a';
   3: Edit1.Text := 'B';
   // usw... ;-)
  end;

Kostet viel Zeit und Mühe, aber vielleicht klappt's ja so.

MfG Marc

[Rastaman]

Meines klappt doch auch wozu dann dieses 'Sinnbefreite'

[Sharky]

Zitat von Gerrit89:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  s: String = 'abcdefghijklmnopqrstuvwxyz';
begin
  Randomize;
  Edit1.Text := s[Random(Length(s) + 1)]
end;

Randomize und Random in der selben Methode? Sorry. Aber da solltest Du noch etwas die OH lesen!

@Äfan: Alle Beispiele die hier gezeigt wurden funktionieren zu 100%. Aber irgendwie bist Du nich bereit uns deinen Code zu zeigen

Darum muss ich für mich sagen: Hier hört meine Hilfe auf!

[Duffy]

Hallo Äfan
ich kann es Sharky nachempfinden.

Einen Tip hätte ich da noch, nimm als Ablage für dein Programm mal einen normalen Ordner und nicht den Desktop!

bye
Claus