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;