如何将多个值组合成一个字符串?

 h619718610 发布于 2023-02-13 15:39

我正在努力学习德尔福,而我正在制作游戏.我曾经知道一点Pascal,但我对Delphi一无所知.几年前我在Pascal制作了这款游戏.它包含这样一行:

writeln(turn,'  ',input,'   ',die[turn],'  ',wou[turn]);

基本上它意味着显示用户输入的计算结果,这些数字之间有一些空格(所有这些变量都是除"输入"之外的数字,这是一个字符串).

我试图在Delphi中以类似方式显示结果.虽然最好使用表格,但我不知道如何使用表格,所以我尝试使用列表框.但是items.add程序不像Pascal那样工作writeln,因此我现在卡住了.

我是一个新的,初学者,所以请让我容易理解.

1 个回答
  • 使用本机的Format功能SysUtils.它返回一个字符串,您可以在任何可以使用字符串的地方使用它:

    // Given these values for turn, input, die[turn], and wou[turn]
    turn := 1;
    input := 'Whatever';
    die[turn] := 0;
    wou[turn] := 3;
    
    procedure TForm1.UpdatePlayerInfo;
    var
      PlayerInfo: string;
    begin
      PlayerInfo := Format('%d %s %d %d', [turn, input, die[turn], wou[turn]]);
    
      // PlayerInfo now contains '1 Whatever 0 3'
    
      ListBox1.Items.Add(PlayerInfo);  // Display in a listbox
      Self.Caption := PlayerInfo;      // Show it in form's title bar
      ShowMessage(PlayerInfo);         // Display in a pop-up window
    end;
    

    当然,您可以直接转到ListBox没有中间字符串变量的情况:

      ListBox1.Items.Add(Format('%d %s %d %d', [turn, input, die[turn], wou[turn]]));
    

    %d%s在所述的第一部分Format呼叫是格式字符串,其中%d表示的整数的占位符和%s表示用于字符串的占位符.文档在这里讨论格式字符串.

    2023-02-13 15:43 回答
撰写答案
今天,你开发时遇到什么问题呢?
立即提问
热门标签
PHP1.CN | 中国最专业的PHP中文社区 | PNG素材下载 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有