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 :
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)