"Objekt: Keller" geht nicht...

[ArchaicSeraphim]

Hi Leutz,
Ich bin grade dabei, mir einen Keller zu bauen, aber aus irgendeinem Grund kann "die Unit Keller.pas nicht compiliert werden." Kann mir mal wer sagen, wieso? Hier ist sie:

Delphi-Quellcode:

unit Keller;

interface

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

var
  Keller: array of char;
  n: integer;

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 top:(top:string);
begin
  top := Keller[n-1];
end;

end.

Ist da irgendwas GANZ falsch? Wäre sehr erfreut über Antwort! ^^

[Dax]

Delphi-Quellcode:

type
  TKeller = class
    constructor create;
    procedure push(m:string);
    procedure pop;
    function:top:string;
  end; // <-- das muss hin!

[Klaus01]

Hast Du "m" irgendwo deklariert?

Grüße
Klaus

[mkinzler]

Weil dein Quellcode mehrere Fehler enthält:

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.

[leddl]

Zitat von Klaus01:

Hast Du "m" irgendwo deklariert?

procedure TKeller.push(m:string);

[Progman]

Ein Variablen-Name darf nie gleich dem Unit-Namen sein *mal anmerk*

[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?

[mkinzler]

Was für ein Fehler wird gemeldet?

[ArchaicSeraphim]

Hab' jetzt das array umbenannt zu "K". Hilft nix. Fehler:

[Fataler Fehler] Test.pas(7): Verwendete Unit 'Keller.pas' kann nicht compiliert werden

(Also in ner anderen Unit.)

Help! What heißt das?

[mkinzler]

Normalerweise steht vorher, genau welchen Fehler er anmahnt.