Kellerspeicher

[DeddyH]

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;