generics in objFPC

[slai]

Hallo zusammen

Ich habe probleme bei der umsetzung von generics in fpc. Ich möchte einen generischen Stack machen :

Code: Alles auswählen

unit stack;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils;
 
type
 
    { TStack }
 
    generic TStack<T> = class(TObject)
    var private
      thisStack : array of T;
    var public
      function empty():boolean;
      function peek():T;
      function pop():T;
      procedure push(entry : T);
      procedure setEmpty();
    end;
 
implementation
 
{ TStack }
 
function TStack.empty(): boolean;
begin
     result := length(thisStack) = 0;
end;
 
function TStack.peek(): T;
begin
     result := thisStack[length(thisStack)-1];
end;
 
function TStack.pop(): T;
begin
    result := thisStack[length(thisStack)-1];
    SetLength(thisStack,length(thisStack)-1);
end;
 
procedure TStack.push(entry: T);
begin
   SetLength(thisStack,length(thisStack)+1);
   thisStack[length(thisStack)-1] := entry;
end;
 
procedure TStack.setEmpty();
begin
  SetLength(thisStack,0);
end;
 
end.

Nun habe ich in meinem Programm einen einfachen button mit der onClick procedure:

Code: Alles auswählen

procedure TFrmMain.BtnStackTestClick(Sender: TObject);
type
    TStringStack = specialize TStack<String>;
Var
   myStack : TStringStack;
begin
   //myStack := TstringStack.Create;
 
   //myStack.push('test');
 
   //ShowMessage(myStack.peek());
   //ShowMessage(myStack.pop());
   //ShowMessage(BoolToStr(myStack.empty()));
end;

Beim Kompilieren kommt nun:
stack.pas(1,1) Fatal: CompilAn unhandled exception occurred at $00450370 :

Was mache ich da Falsch?

Danke für Antworten.

[monta]

Code: Alles auswählen

result := length(thisStack) = 0;

Gibt es dieses Konstrukt wirklich?

[marcov]

Code: Alles auswählen

result := length(thisStack) = 0;

Gibt es dieses Konstrukt wirklich?

Ja, natuerlich. Eine Gleichung ist von Typ Boolean.

[monta]

logisch, da hab ich den Wald vor Bäumen nicht gesehen.

Irgendwie hab ich nur an die Vorbelegung von Variablen gedacht, sehr peinlich.

[slai]

Kann mir da niemand helfen, wie ich nun genau eine instanz der generischen klasse mit String richtig machen kann?

[marcov]

Hier (2.3.1) funktionierts. Ausgabe

test
test
-1

Dass prüft noch einmal das Generics im 2.2er Branch noch immer beta sind

[slai]

hy marcov

Danke für den hint mit fpc 2.2.2.
Habe mich kurz das Changelog von fpc angegeuckt und siehe da in 2.2.4 habe sie einen fix disbezüglich gemacht.
Habe nun Lazarus mit FPC 2.2.5 installiert, e voila es funktioniert