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