小编LU *_* RD的帖子

我想将1到10000之间的所有素数读入动态数组,将所有非素数读入另一个动态数组,然后读取素数数组richedit1到目前为止我有:

procedure primearrays;
var
  j, k, l, i, m: integer; // k is the number I am testing for prime number
  // j is used in the for loop to check all numbers smaller than k to see if k is dividable by j
  // l is just a variable set to k mod j to make the if run more smoothly
  // i is the length of the array anotprime
  // m is used to set the …

我有一个Firemonkey XE7安卓应用程序,它在Android 4.x上运行完美
但是我在Android 5上测试了它并且它打开了但是一段时间后它关闭了.
程序中唯一能做的就是一个简单ShowMessage();的文件.
我使用了这样的文件地址:

filePath := System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim;

问题是我的文件路径ShowMessage()还是什么？

该TWebBrowser文件中提到,

注意:TWebBrowser是一个移动组件.它不能在FireMonkey桌面应用程序中使用.

为什么这个限制？在Windows上TWebBrowser默认为Internet Explorer并且工作正常.维基是错的吗？

我有在Delphi 10.1 Berlin中编译的代码,但在Rio中引发了错误.

"不兼容的类型ByteArray和指针.

该例程使用单个ByteArray参数定义,其中ByteArray是定义为的类型

type ByteArray = array of byte;

在10.1下我可以传递指针或@arrayname [0].在10.3下,它给出了上面的不兼容错误

interface

uses Windows, SysUtils, classes, Dialogs, Messages, Controls;

type
  ByteArray = array of byte;

procedure ArrayFunc(const P : ByteArray);
function TestFunction;

implementation

procedure ArrayFunc(const P : ByteArray);
begin    
  // code....    
end;

procedure TestFunction;    
var g : ByteArray;
begin    
  ArrayFunc(g); // works    
  Arrayfunc(@g[0]); // works under 10.1, not 10.3    
end;

end.

如何从字符串中删除最后5个字符？

procedure TForm1.Button15Click(Sender: TObject);
var
str:string;
begin
str:='012345678911234567892223456789';
showmessage(str);
end;

提前致谢

我对使用混合值排序TStringList有一点问题.它类似于:

7567533575 Joe
1543779744 Ann
9757462323 Jack
6999966578 Stef

我需要对此列表进行排序以查看:

1543779744 Ann
6999966578 Stef
7567533575 Joe
9757462323 Jack

我可以使用大约3x for循环,使用字符串修剪和一个数组来完成此操作.但这是非常蹩脚的解决方案...我想,有人有最好的代码.我不懂CustomSort ......呃.请帮我.

• 我使用的是Delphi 10.

当我在记事本中创建一个文件,包含(示例)字符串1d并保存为unicode文件时,我得到一个包含字节的6字节大小的文件 #255#254#49#0#100#0.

好.现在我需要一个Delphi 6函数,它接受(示例)输入widestring 1d并返回包含#255#254#49#0#100#0(和反之亦然)的字符串.

怎么样？谢谢.d