小编Vep*_*pir的帖子

libGDX 应用程序到 .exe?

我有一个 libGDX 项目,我希望能够从桌面上的 .exe 文件运行该项目。

到目前为止,我只能在 Android Studio 中通过 DesktopLauncher 运行它。

从我的项目中构建 .exe 文件的最简单方法是什么?

我可以构建 .jar 文件,但它不会在双击时运行。这是否意味着我需要制作一个用于展示的包装纸或其他东西?


我是 libgdx 和 android studio 的新手,我只需要将我的第一个简单应用程序作为独立文件部署在桌面上。

java build libgdx

5
推荐指数
1
解决办法
5792
查看次数

Delphi保存/加载动态数组失败

我认为这看起来像' 做我的家庭作业 '这样的问题,但我仍然在' 复制代码,使用它并尝试理解它 '阶段,这是我发布问题时最常见的事情这个主题.

我有一个记录:

type
  Card = record
    Name: string;
    Up,Right,Left,Down,Mark: Single; 
    IDNumber: Integer;
    end;
Run Code Online (Sandbox Code Playgroud)

和该记录的数组:

var
  ArrayCard: array of Card;
Run Code Online (Sandbox Code Playgroud)

我想知道如何在文件中存储/加载这种动态数组.

尝试使用这段代码:http://www.pascalgamedevelopment.com/showthread.php? 6319-save-load-a-dynamic-array 如下:

Procedure TMainFrom.WriteMyData;

  Var
    FS : TFileStream;
    I,iSize : Integer;
    TmpPath: string;

  Begin
    TmpPath:= TPath.Combine(TPath.GetDocumentsPath, 'Cards.dat');
    FS := TFileStream.Create(TmpPath, fmOpenWrite);
    iSize:= Length(ArrayCard);
    FS.WriteBuffer(iSize,SizeOf(iSize));
  For I := 0 To iSize - 1 Do
    FS.WriteBuffer(ArrayCard[I],SizeOf(Card));
  FS.Free;
  End;
Run Code Online (Sandbox Code Playgroud)

它似乎工作到目前为止,但后来我尝试加载它像这样:

Procedure TMainFrom.ReadMyData;

  Var
    FS : TFileStream;
    I,iSize : Integer;
    TmpPath: string;
    TempCard : Card;

  Begin …
Run Code Online (Sandbox Code Playgroud)

arrays delphi records firemonkey delphi-xe8

3
推荐指数
1
解决办法
603
查看次数

Delphi XE8中的数字分区算法生成器

如何在Delphi XE8中输出有效且最简单的算法来输出数字N 分区列表?

例如N=4,结果(可以说列在a中TListBox):

4
3 + 1
2 + 2
2 + 1 + 1
1 + 1 + 1 + 1 
Run Code Online (Sandbox Code Playgroud)

我尝试了一些东西,决定使用动态数组:

var
  IntegerArray: array of Integer;
Run Code Online (Sandbox Code Playgroud)

算数,三,三,......

这样就可以在一个类型中输出动态数组TListBox:

procedure TMForm.AddItem;
var
  Temp: String;
  I: Integer;
  II: Integer;

begin

  Temp:= '';
  for II:= 0 to Length(IntegerArray)-1 do
  begin

    for I := 0 to (IntegerArray[(Length(IntegerArray)-II)-1]-1) do
    begin
      Temp:= Temp+IntToStr(Length(IntegerArray)-II-1);
      Temp:= Temp+'+';
    end;
  end;

  delete(Temp,length(Temp),1);
  ListBox1.Items.Add(Temp);
end;
Run Code Online (Sandbox Code Playgroud)

并开始编写算法(到目前为止工作但仅使用数字1,2和3来编写分区),但似乎我需要重写它以使用递归(因此它将使用所有可用的数字来编写分区),这就是我的题; 如何在这里使用递归?

function …
Run Code Online (Sandbox Code Playgroud)

delphi math numbers firemonkey delphi-xe8

2
推荐指数
1
解决办法
183
查看次数

标签 统计

delphi ×2

delphi-xe8 ×2

firemonkey ×2

arrays ×1

build ×1

java ×1

libgdx ×1

math ×1

numbers ×1

records ×1