Vergleich funktioniert nicht

[blawen]

Zitat von Helmi:

warum nicht so:

Du bist ja schon fast gemein

@programmer021:
Solche und ähnliche Logikfehler lassen sich mit einer optimaleren Formatierung des Quelltextes verhindern.
Ich empfehle Dir daher, auch dieses Thema in die Ausbildung mit einfliessen zu lassen.

[Helmi]

Zitat von blawen:

Zitat von Helmi:

warum nicht so:

Du bist ja schon fast gemein

Grundsätzlich unschuldig

[programmer021]

Danke, Leute!!!!!
Mit dem Source von Helmi hat es jetzt funktioniert.
Zu haentschman: Ich habe doch eben schon gesagt, woran das Problem liegt, oder??!
Wenn XYZ eingegeben wurde, dann wird doch bei der Stelle

Delphi-Quellcode:

begin
         if TextInput.text <> 'XYZ' then
  begin

schon abgebrochen, weil die Serial ja nicht ungleich XYZ ist und somit wird die Stelle

Delphi-Quellcode:

if TextInput.text = 'XYZ' then
    begin
      ShowMessage ('True serial entered!!! You are very good!!!');
    end;

niemals aufgerufen.

Und zu blawen: Auch wenn ich mir Delphi selbst beigringe und keine Ausbildung mache, werde ich in
Zukunft mehr auf sowas achten.

Viele Grüße
programmer021

[haentschman]

Zitat:

Zu haentschman: Ich habe doch eben schon gesagt, woran das Problem liegt, oder??!

Was das Problem ist war klar. Du solltest von selbst darauf kommen mit dem neu formatierten Quelltext. Das wäre auch nicht schwer gewesen. Selbst denken ist einfach zu unbequem... Das nächste mal schmeiße ich dir den korrekten Quelltext vor die Füße und pfeife auf die Hilfe zur Selbsthilfe. Ob du es verstehst oder nicht ist mir dann wurscht !

An die Anderen: Sorry daß mir mal die Hutschnur platzt. Ich mache mir jetzt ein Fläschchen Roten auf und beruhige mich wieder.