Klasse/Methoden

[Sanchez]

Hallo,

Jetzt noch mal zum Verständnis:

Delphi-Quellcode:

unit UVorgaben;

interface
uses UNimm,Uform2;

type tvorgaben = class(tnimm)
     private
       
     public
       Gruppen : integer;
       Staebchen : integer;
       user : boolean;
       wert_vorgabe : boolean;
       constructor create;
       procedure set_gruppen(gruppenstr :string);
end;



implementation
uses sysutils;

constructor tvorgaben.create;
begin
  Gruppen:=0;
  Staebchen:=0;
  user:=false;
  wert_vorgabe:=false;
end;

procedure tvorgaben.set_gruppen(gruppenstr :string);
begin
  form2.edit1.text:= gruppenstr; 
  gruppen:=strtoint(gruppenstr); <---
end;
end.

Der Fehler ist in der markierten Zeile?

Du hast deine Instanz nicht auf folgende Weise erzeugt?

Delphi-Quellcode:

Var
  Vorgabe : TVorgaben;
Begin
  Vorgabe := TVorgaben.Create;  // <--- !!!!

  Vorgabe.Staebchen := 4;
  Vorgabe.Gruppen   := 17;
 
  Vorgabe.Free;
End;

Zumindest lässt deine Beschreibung darauf schließen. Man kann sehr wohl eine Funktion einer nicht erzeugten Instanz ausführen. Sobald du allerdings auf eine Membervariableder Klasse zugreifst, bekommst du den Fehler.

Zeig doch mal wie du die Instanz von TVorgaben erzeugst und wie du die Prozedur set_gruppen aufrufst.

grüße, daniel