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! ^^