Einzelnen Beitrag anzeigen

programmer021

Registriert seit: 15. Jul 2012
7 Beiträge
 
Delphi XE Architect
 
#4

AW: Vergleich funktioniert nicht

  Alt 15. Jul 2012, 17:52
Hallo, erstmal danke für die Antworten!
Zu Sir Rufo: Ja, da steht CheckClick.
Zu haentschman: Wie macht man in Lazarus einen Breakpoint?

Zu Allen: Vielleicht hilft es ja, wenn ich euch den tatsächlichen Code zeige, der ist nämlich vieel kompilizierter:
Delphi-Quellcode:
procedure TMainWindow.CheckClick(Sender: TObject);
    
  begin
         if TextInput.text <> 'XYZthen
  begin
        ShowMessage ('Invalid serial entered!!!');
        if TextInput.text = 'XYZthen
        begin
               ShowMessage ('True serial entered!!! You are very good!!!');
              end;
        end;
  
  end;
  end.
Es ist nämlich ein CrackMe, wo man die richtige Serial eingeben muss. (In diesem Fall XYZ)
EDIT: Beim tippen ist mir grade selber aufgefallen, woran es liegt. Wen XYZ eingegeben wird, wird ja beim
ersten if schon abgebrochen...
Aber kann mir jemand sagen, wie man das lösen kann?

Viele Grüße
programmer021
  Mit Zitat antworten Zitat