ok, habe es dann so gemacht
Delphi-Quellcode:
procedure TFMain.IWGOrders_fuellen;
var
test:
string;
begin
if Assigned(Usersession)
then //er springt von hier nach
iwLabel1.Caption := '
Usersession ist da'
else
iwLabel1.Caption := '
Usersession ist nicht da';
// hier
if Assigned(Usersession.DataModule1)
then //hier kommt die Exception. Den Rest macht er dann erst gar nicht
iwLabel2.Caption := '
DataModule1.QR_orders_heute ist da'
else
iwLabel2.Caption := '
DataModule1.QR_orders_heute ist nicht da';
if Assigned(Usersession.DataModule1.QR_orders_heute)
then
iwLabel3.Caption := '
Usersession.DataModule1.QR_orders_heute ist da'
else
iwLabel3.Caption := '
Usersession.DataModule1.QR_orders_heute ist nicht da';
iwLabel4.Caption := DataModule1.QR_orders_heute.FieldByName('
orders_0800').AsString;
end;
Compilersettings im Debug-mode bei der Option "Optimierung" auf false ... Wo stelle ich das ein?? Unter Projekt/Optionen gibt es diese Einstellung nicht ich habe das mal als Bild angehangen