Compiler erkennt Klasse nicht an?

[Flofu]

Hallo

Im angehängten Programm habe ich ein Problem. Beim Starten sagt mir der Compiler das in der UNit DreUnit1, in der Case Anweisung 0 die zuordnung if not assigned... der KLasse TDyForm1 nicht erlaubt ist! Warum, habe das in anderen Programmen auch so gemacht und da funktioniert es. TDyForm1 ist doch in der UNit DyForm doch als KLasse von TForm deklariert!

Vielen Dank schon mal

MIt freundlichen Grüßen.

Florian :wiejetzt:

[Steve]

Delphi-Quellcode:

procedure DrErstelleForm(Menupunkt: Byte);

begin
randomize;
  case menupunkt of

     0 : begin {of case Zeitspanungsvolumen}
           if not assigned(DrZVForm) then
                                   DrZVForm := TDyForm1.Create(NIL); // <<-- Hier stand "self", das konnte ja nicht gehen ;)
           DrZVForm.Caption := 'Zeitspanungsvolumen beim Drehen';
           DrZVForm.Show;
           DrZVForm.DyErzeugePanel(5);   // <<-- hier stand TDyForm1.DyErzeuge... Da DyErzeugePanel() keine Klassenmethode ist, kann das nicht klappen ;)
         end; {of case Zeitspanungsvolumen}
{...}

Mit den Korrekturen läufts :zwinker:

Gruß
Stephan

[Flofu]

Danke jetzt läufts.
Manchmal sieht man den Wald vor lauter Bäumen nicht mehr :wall:

Grüße Florian

[Steve]

Gern geschehen :zwinker:

PS: randomize sollte man nur einmal aufrufen, am besten bei Programmstart, nicht wie hier jedes mal, wenn die Prozedur aufgerufen wird.

Gruß
Stephan