sm

切换到宽版 登录 立即注册

服务器租用 996 无法下载点击此处反馈
/
九五至尊GM论坛,传奇一条龙,传奇版本库,GM基地»GM论坛 › 资源中心 › 游戏源码交流 › 传奇元宝商城源代码delphi代码
查看: 844|回复: 0

传奇元宝商城源代码delphi代码 [传奇源码]

[复制链接]
夜游神 实名认证 信用认证

826

主题

37

回帖

23万

积分

霸王教主

积分
237197
发表于 2023-5-22 21:15:02 | 显示全部楼层 |阅读模式
  1. unit GameStore;

  3. interface

  5. type
  6.   TGame = class
  7.   private
  8.     FName: string;
  9.     FPrice: Double;
  10.   public
  11.     constructor Create(const AName: string; APrice: Double);
  12.     property Name: string read FName;
  13.     property Price: Double read FPrice;
  14.   end;

  16.   TGameStore = class
  17.   private
  18.     FGames: array of TGame;
  19.   public
  20.     constructor Create;
  21.     procedure AddGame(const AName: string; APrice: Double);
  22.     procedure DisplayGames;
  23.   end;

  25. implementation

  27. constructor TGame.Create(const AName: string; APrice: Double);
  28. begin
  29.   FName := AName;
  30.   FPrice := APrice;
  31. end;

  33. constructor TGameStore.Create;
  34. begin
  35.   SetLength(FGames, 0);
  36. end;

  38. procedure TGameStore.AddGame(const AName: string; APrice: Double);
  39. var
  40.   Game: TGame;
  41. begin
  42.   Game := TGame.Create(AName, APrice);
  43.   SetLength(FGames, Length(FGames) + 1);
  44.   FGames[Length(FGames) - 1] := Game;
  45. end;

  47. procedure TGameStore.DisplayGames;
  48. var
  49.   Game: TGame;
  50. begin
  51.   if Length(FGames) > 0 then
  52.   begin
  53.     for Game in FGames do
  54.     begin
  55.       Writeln('Game: ', Game.Name, ', Price: ', FloatToStr(Game.Price));
  56.     end;
  57.   end
  58.   else
  59.     Writeln('No games available.');
  60. end;

  62. end.
复制代码
在上述代码中，我们定义了 TGame 类来表示游戏，其中包括游戏名称和价格的属性。TGameStore 类用于管理游戏商城，包括添加游戏和展示游戏列表的功能。

  1. program GameShop;

  3. uses
  4.   GameStore;

  6. var
  7.   Store: TGameStore;

  9. begin
  10.   Store := TGameStore.Create;
  11.   Store.AddGame('Game 1', 49.99);
  12.   Store.AddGame('Game 2', 29.99);
  13.   Store.AddGame('Game 3', 39.99);
  14.   
  15.   Store.DisplayGames;

  17.   Readln;
  18. end.
复制代码
在这个示例中，我们创建了一个 TGameStore 对象并添加了几个游戏。然后调用 DisplayGames 方法来展示游戏列表。你可以根据需要自定义和扩展这些类，以适应你的具体游戏商城需求。
传奇, 元宝, 商城, 源代码, delphi




上一篇：C#传奇源代码自动寻路源码
下一篇：传奇自动寻路源码Delphi自动寻路源码

相关帖子
回复

使用道具 举报

返回列表 发新帖

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-11-21 20:25 , Processed in 0.280007 second(s), 46 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

快速回复 返回顶部 返回列表