F8 wandert einfach weiter oO

**Hansa**

Hi,

man sehe sich mal folgendes an. Kanns schlecht erklären. An der Stelle im Screenshot ist was falsch. Nun wollte ich mir das mal näher ansehen und habe einen Haltepunkt gesetzt. Source :

zusammenfalten · markieren

Delphi-Quellcode:

			showmessage ('1  *'+BoolToStr (KuDS.IsEmpty,true)+'*');

//    KuDS.Close;            <--- Haltepunkt

//    KuDS.SelectSQL.Text := 'SELECT * ...

//    KuDS.Open;

    if not 1=1 (*KuDS.IsEmpty*) then begin

//      KuDS.First;

//      lblKuNr.Caption := KuDS.FieldByName ('NR').AsString;

showmessage ('2  *'+lblKuNr.Caption+'*');

      btnWeiter.SetFocus;

    end

    else begin

      showmessage ('keine Daten vorhanden !');

      edSuch.SetFocus;

    end;

Jetzt erkläre mir mal einer, wieso Delphi durch sämtliche Zeilen dieses Codefragments einfach weiterwandert, egal ob F7/F8. Es schert sich weder um die Kommentare noch, daß ein if und else Zweig vorhanden ist. Um die Showmessages auch nicht. Zeile für Zeile wird vogegangen. Ohne Rücksicht auf Verluste.

Wer es nicht glaubt : siehe Anhang in chronologischer Abfolge. 8)

F8 wandert einfach weiter oO

F8 wandert einfach weiter oO

Forumregeln