4- Stelliger Integer

[Luki206]

Hi,
ich entschuldige mich an dieser Stelle für meine Überschrift nur ist mir im Moment keine Passende eingefallen. Ich habe folgendes Problem bzw. Frage. Ich habe vor das beim Start meiner Software einen vierstelligen Pin abgefragt wird. Wenn das Programm zu lange ohne Reaktion ist soll ein Fenster aufgehen wo man den Pin wieder eingeben muss. Wenn man den Pin vergessen hat soll man auf einen Knopf drücken der dann die erste und letzte Zahl anzeigt und die Zahlen in der Mitte sollen mit Punkten versteckt sein. Könnte mir da jemand einen Anhaltspunkt geben was ich googlen müsste oder einen Tipp wie das gemacht werden könnte?
Danke
Luki

[Klaus01]

Hallo,

anzeigen lassen kannst Du nur Strings.

Du musst Deine Pin (Integer) mit IntToStr in einen String wandeln.
Mit s[2]:= '.' kannst Du das zweite Zeichen des PIN mit einem '.' überschreiben.

Grüße
Klaus

[BUG]

Zitat von Luki206:

Wenn man den Pin vergessen hat soll man auf einen Knopf drücken der dann die erste und letzte Zahl anzeigt und die Zahlen in der Mitte sollen mit Punkten versteckt sein.

Du willst also eine PIN benutzen, die effektiv nur 2 Stellen lang ist.
Die hundert verschiedenen PINs kann man ja sogar per Hand durchprobieren

Abgesehen davon hast du 3 Teilprobleme:

• Finde heraus wie man Inaktivität feststellt (z.B. mit einem Timer und GetLastInputInfo).
• Finde heraus wie man einen eine PIN- bzw. Passwort-Abfrage programmiert.
• Finde heraus, wie man zwei Stellen in einem String (siehe #2) ersetzt und diesen dann anzeigt.

[Luki206]

Das mit den drei Problemen ist nicht das wilde da ich es schon habe ich habe nur einen Weg gesucht wie man das Anzeigen könnte. Aber Danke

[Bummi]

Wenn Du ein Maskedit verwenden möchtest könntest Du die EditMask mit "escapten" Zahlen für erste und vierte Stelle nehmen, so dass nur noch die zwei fehlenden Zahlen eingegeben werden können/müssen.

Delphi-Quellcode:

Const
 C_MASK='\999\9;0;.';
var
 Mask, PinStr:String;
 Pin:Integer;
begin
 Pin := Random(9000) + 1000;

 PinStr := IntToStr(Pin);
 if length(PinStr)=4 then
    begin
       Mask := C_MASK;
       Mask[2] := PinStr[1];
       Mask[6] := PinStr[4];
    end;
 MaskEdit1.Text := '';
 MaskEdit1.EditMask := Mask;
end;

[Namenloser]

Zitat von BUG:

Zitat von Luki206:

Wenn man den Pin vergessen hat soll man auf einen Knopf drücken der dann die erste und letzte Zahl anzeigt und die Zahlen in der Mitte sollen mit Punkten versteckt sein.

Du willst also eine PIN benutzen, die effektiv nur 2 Stellen lang ist.
Die hundert verschiedenen PINs kann man ja sogar per Hand durchprobieren

Wie wäre es zusätzlich noch mit einem Publikums- und einem Telefonjoker?