Black Lightning - So 11.08.02 20:59
Hi,
im Objektinspektor kannst du als erstes das gewünschte Zeichen für PasswordChar festlegen...im gewöhnlich ja *
beim drücken von Enter wird das Passwort dann überprüft.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
Begin
if edit1.Text = 'geheim' then
showmessage('richtig')
else
showmessage('false');
end;
end; |
so ist das CaseSensitiv, falls du das nicht willst, dann so:
Quelltext
1:
| if AnsiUpperCase(edit1.text) = 'GEHEIM' then... |
ich würd das Programm dann aber noch mit upx packen, damit einigermaßen vor disassemblern sicher ist.
gruß
Black Lightning