Thema: Delphi Random Probelm

Einzelnen Beitrag anzeigen

Eichhoernchen

Registriert seit: 22. Apr 2004
Ort: Hagen
322 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Random Probelm

  Alt 14. Jan 2007, 15:04
ich dachte es ist schnuppe, welchen Buchstaben er schreibt, ich denke das soll Zufall sein?

Der Befehl Ord('X'), gibt im Endeffekt 88 Zurück, was wiederum in der ASCII-Tabelle steht.
Also generierst du dir einfach eine Zahl aus der ASCII-Tabelle und das umformen sparst du dir dann, genauso wie die ganzen IF oder Case Anweisungen, weil du musst nicht mehr Prüfen, wenn 7 dann mach nen K, sondern wir generieren gleich das Ord('K').
Du kannst auch den ganzen Zeichensatz so benutzen, dazu machste dir nen Constantes Array mit allen ASCII-Werten die du willst du sprichst das dann per Random an.

Falls du aber alles einzeln machen willst, nimm Case, dass funktioniert so:

Delphi-Quellcode:
case VARIABLE of
  WERT1:
    begin
      ...
    end;
  WERT2: ...
  WERT3: ...
  ...
  WERTN: ...
  else ...
end;
Jan
  Mit Zitat antworten Zitat