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?