|
|
- unit GameStore;
- interface
- type
- TGame = class
- private
- FName: string;
- FPrice: Double;
- public
- constructor Create(const AName: string; APrice: Double);
- property Name: string read FName;
- property Price: Double read FPrice;
- end;
- TGameStore = class
- private
- FGames: array of TGame;
- public
- constructor Create;
- procedure AddGame(const AName: string; APrice: Double);
- procedure DisplayGames;
- end;
- implementation
- constructor TGame.Create(const AName: string; APrice: Double);
- begin
- FName := AName;
- FPrice := APrice;
- end;
- constructor TGameStore.Create;
- begin
- SetLength(FGames, 0);
- end;
- procedure TGameStore.AddGame(const AName: string; APrice: Double);
- var
- Game: TGame;
- begin
- Game := TGame.Create(AName, APrice);
- SetLength(FGames, Length(FGames) + 1);
- FGames[Length(FGames) - 1] := Game;
- end;
- procedure TGameStore.DisplayGames;
- var
- Game: TGame;
- begin
- if Length(FGames) > 0 then
- begin
- for Game in FGames do
- begin
- Writeln('Game: ', Game.Name, ', Price: ', FloatToStr(Game.Price));
- end;
- end
- else
- Writeln('No games available.');
- end;
- end.
- program GameShop;
- uses
- GameStore;
- var
- Store: TGameStore;
- begin
- Store := TGameStore.Create;
- Store.AddGame('Game 1', 49.99);
- Store.AddGame('Game 2', 29.99);
- Store.AddGame('Game 3', 39.99);
-
- Store.DisplayGames;
- Readln;
- end.
|
|
发表于 2023-5-22 21:15:02
