Passwortabfrage

[angos]

Hiho,

und, sind edit1.text und edit2.text gleich?

Ich glaub genau da liegt nämlich der Fehler...

[EDIT Ich verstehe noch gar nicht genau, was letztendlich die Lösung sein soll

1.) Du möchtest einen Namen (Edit1) und ein Passwort (Edit2) eingeben.
2.) Nun soll überprüft werden, ob "der Ascii des ersten zeichens von edit1.text " dem Wert aus "Edit2,text" entspricht?!

dann sollte das ganze so aussehen:

Delphi-Quellcode:

procedure TForm1.btnClick(Sender: TObject);
var
  serie, iPW: integer;
  name: string;
begin
  if Edit1.Text = '' then
    showmessage('NEIN')
  else
    name := Edit1.text;

  serie := ord(name[1]);

  if TryStrToInt(Edit2.Text, iPW) then
  begin
    if iPW = Serie then
      showmessage('JA')
    else
      showmessage('NEIN')
  end
  else
    showmessage('NEIN');
end;