Delphi Stack Methode programmieren - wie?

Hey,

ich muss in Delphi eine Stack-Methode programmieren, nur weiß ich leider nicht richtig, wie ich das anstellen soll. Das Grundprinzip hab ich verstanden, allerdings habe ich gerade kein Delphi auf meinem Rechner, um es mittels Fehleranalyse zu lösen.

Ich habe nur den Editor, die Implementierung hab ich schon gemacht. Sieht so aus.

Oberfläche:

// ...

procedure TForm1.Button1Click(Sender: TObject);
  begin
    var
      stack: TCharStack;
    begin // (AUFGABE)Objekt umdrehen und wieder zerstören
      stack := TCharStack.create;
      //FEHLEND
      stack.free;
    end;
// ...

Methoden Datei (projektorientiert)

// ...
//+---------------------------------------------------------------------
//|     TCharStack: Methodendefinition 
//+---------------------------------------------------------------------
//-------- push (public) -----------------------------------------------
procedure TCharStack.push (Element: TElement);
  begin
    Daten[SP] := Element; //SP steht für Stackpointer
    SP:= SP + 1;
  end;

//-------- isempty (public) --------------------------------------------
function TCharStack.isempty : boolean;
  begin
    result:= SP = 0;
  end;

//-------- isfull (public) ---------------------------------------------
function TCharStack.isfull : boolean;
  begin
    result:= SP > 100;
  end;

//-------- pop (public) ------------------------------------------------
function TCharStack.pop : TElement;
  begin
    result:= Daten[SP - 1];
  end;

//-------- top (public) ------------------------------------------------
function TCharStack.top : TElement;
  begin
    if not isempty then
      result:= Daten[SP - 1];
    end;
// ...

Ich hoffe, ihr könnt mir helfen. Ein Lösungsvorschlag mit Erklärung wäre super. Ausprobieren ist leider nicht möglich, sonst würde ich nicht fragen!

Danke im Voraus

Computer, Schule, Technik, HTML, programmieren, Coden, Java, Informatik, pascal
1 Antwort