"Objekt: Keller" geht nicht...

[ArchaicSeraphim]

Hoi,

"m" ist bei mir doch in der procedure. Sonst nirgendwo. Und das "end;" habe ich auch gesetzt. Hilft nicht.

Pls hlp!!

edit: Hab's jetzt so gemacht:

Delphi-Quellcode:

unit Keller;

interface

type
  TKeller = class
    constructor create;
    procedure push(m:string);
    procedure pop;
    function top:string;
    Keller: array of Char;
  end;

var
  n: integer;
  oKeller: TKeller;

implementation

constructor TKeller.create;
begin
  inherited create;
  n:=1;
end;

procedure TKeller.push(m:string);
begin
  inc(n);
  setlength(Keller,n);
  Keller[n-1] := m;
end;

procedure TKeller.pop;
begin
  dec(n);
  setlength(Keller,n);
end;

function TKeller.top:string;
begin
  result := Keller[n-1];
end;

end.

Geht aber immer noch nicht. Wieso?