Zufallspassword

[Privateer3000]

Hi folks,
ich wollte mal diesen Tipp ausprobieren:
hier
Das funktioniert aber nicht.
Das akzeptiert Delphi nicht:

Delphi-Quellcode:

type
 TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);

woran liegt das?
Ich habe das oben im Form unter type eingetragen.

Hat das schon jemand ausprobiert?

[DeddyH]

Zeig mal den interface-Teil Deines Quelltextes.

[teebee]

Das Beispiel ist völlig in Ordnung. Was genau wird von Delphi denn beanstandet?
Nur falls ich Dich richtig verstehe: die Typdefinition darf nicht innerhalb der Formdeklaration stehen.

[Privateer3000]

Danke Leute
wo muss denn dieser Teil denn hin?
TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

type
  TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);

  TFormMain = class(TForm)
  ...
  end;

[Catbytes]

Hi,

du könntest auch noch Mnemoische Wörter berücksichtigen.

Dazu mußt Du in der Regel nur große/kleine Konsonanten durch große/kleine Vokale ersetzten.

z.B.

Delphi-Quellcode:

  const
    Vokale: string[5] = 'aeiou';
if Vokal then
            if (Ord(Zeichen) > 64) and (Ord(Zeichen) < 91) then
              Zeichen := AnsiUpperCase(Vokale)[Succ(Random(5))]
            else
              Zeichen := Vokale[Succ(Random(5))];
          Vokal := not Vokal;
        end;

[xZise]

Zitat von Privateer3000:

Danke Leute
wo muss denn dieser Teil denn hin?
TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);

Über den Implementation Teil:

Delphi-Quellcode:

unit uMain;

interface

uses
  [...];

// Entweder hier:
type
  TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);

type
  // Oder hier:
  TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);  

  TForm1 = class(TForm)
    [...]
    bla : TPasswordMode;
  end;

// Oder hier:
type
  TPasswordMode = set of (pmUpper, pmLower, pmNumbers, pmExtra);

var
  [...]

implementation

{$R *.dfm}

procedure {....}

Achtung: Wenn du eine Variable für die Klasse TForm1 einsetzt, dann geht der 3. weg nicht (das "bla")

MfG
xZise

[Privateer3000]

Danke Leute,
es muss in der Tat über TFormMain!

Danke an alle!

[Privateer3000]

Zitat von Catbytes:

Hi,

du könntest auch noch Mnemoische Wörter berücksichtigen.

Dazu mußt Du in der Regel nur große/kleine Konsonanten durch große/kleine Vokale ersetzten.

Das hör ich zum erstenmal,
was ist das?