readln...

[value is NULL]

Hi ist es möglich die eingabe bei Readln durch * zu ersetzen?

LG

[mkinzler]

Den Inhalt oder was? Verstehe deine Frage nicht ganz.

[value is NULL]

genau, also der user muss ein pw eingeben und das möchte ich natürlich nicht darstellen sry für die schlechte erklärung

[mkinzler]

Handelt es sich um ein Dos-Programm?

[toms]

Hi,

Habe etwas gegoogelt und bin auf eine Unit PassText gestoßen.

Delphi-Quellcode:

program PasswordTest;

{$APPTYPE CONSOLE}

uses
  PassText; // siehe Anhang

var
  Password : string;
begin
  ConsoleGetPassword('Passwort eingeben: ', Password);   Writeln;
  Write('Eingegebenes Passwort: ', Password);
  Readln;
end.

[Luckie]

Du kannst die Ausgabe verhindern:

Delphi-Quellcode:

hConsole := GetStdHandle(STD_INPUT_HANDLE);
GetConsoleMode(hConsole, ConsoleMode);
SetConsoleMode(hConsole, ConsoleMode and not ENABLE_ECHO_INPUT);
ReadLn(PW);
SetConsoleMode(hConsole, ConsoleMode or ENABLE_ECHO_INPUT);

[value is NULL]

Hi

Beide Varinten sind super, die Unit ist perfekt

DANKE!

[toms]

Habe die Unit PassText noch etwas optimiert, die BackSpace Taste funktionierte zuvor nicht.

[value is NULL]

cool danke