Und welcher Fehler wird gemeldet? Übrigens:
Zitat:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
fstack.create;
end;
Das sollte wohl
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
fstack := TStack.create;
end;
heißen. Und weshalb Du hier auf die benannte Form-Instanz zugreifst, wo Du doch extra Parameter deklariert hast, wirst wohl nur Du wissen:
Zitat:
Delphi-Quellcode:
procedure tstack.stackpush(i:integer;s:string);
begin
inc(stackpos);
//die beiden folgenden Zeilen sind doch eigentlich kompletter Unsinn
i := strtoint(form1.Edit1.Text);
s := form1.edit2.text;
Keller[Stackpos].id := i;
Keller[Stackpos].name := s;
end;