盒子论坛 v2.1

1、MAC里PD Win11 转个绿色版的 D12
2、去官网下个最新的PAServer，安装后启动
https://docwiki.embarcadero.com/RADStudio/Athens/en/Installing_the_Platform_Assistant_on_a_Mac

3、新建个工程-多平台的
4、指定编译目标位Mac Arm 64
5、运行：配置下IP
6、界面出来了

7、BUG：保存是提示文件不存在，😄😄😄

procedure TForm1.Button2Click(Sender: TObject);
var
  sFileName: String;
begin
  sFileName := SaveDialog1.FileName;
  if sFileName = '' then
    sFileName := OpenDialog1.FileName;
  if sFileName = '' then
    if SaveDialog1.Execute then
      sFileName := SaveDialog1.FileName;
  if sFileName <> '' then
  begin
    with TStrings.Create() do
    begin
      Text := memo1.Text;
      SaveToFile(sFileName);
      ShowMessage('Saved To: ' + sFileName);
    end;
  end;
end;

此帖子包含附件:

大小:134.5K

----------------------------------------------
-

信息

登陆以后才能回复