Passwortabfrage

**Sylux**

Hallo,
ich bin noch ein Delphifrischling^^ und
ich will ein Programm schreiben bei dem man einen Namen eingeben muss und dann das richtige Passwort dafür.

markieren

Code:

			unit Keygen;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

     serie: integer;

     name:string;

begin

     if Edit1.Text = '' then

       Form4.Showmodal

else

     name:= Edit1.text;

     serie:= ord(name[1]);

if

   edit2.text=edit1.text then

   Form5.Showmodal

   else

   Form4.Showmodal

end;

end.

Also der 1. Buchstabe von "name" soll in den ASCII Wert umgewandelt werden und dieser Wert soll dann die "serie" sein.
Aber irgendwie klappt das nicht. Es wird fehlerfrei "compiliert".
Aber wenn ich z.B. A als "name" eingebe und "65" als Serie dann kommt auch immer das Fenster mit der Fehlermeldung: falsch.

Woran liegt das?
Wo liegt der Hund begraben.

Danke schonmal

Passwortabfrage

Passwortabfrage

Forumregeln