Delphi 10.42 编译 Linux 控制台应用程序

这是一个线程的最小可重现示例，该线程适用于 Windows 或 Linux，无需更改源代码并使用 Delphi 10.4.2：

program LinuxThreadDemo;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils, 

  System.Classes;        // Contains TThread for both Windows and Linux

type

  TMyThread = class(TThread)

      procedure Execute; override;

  end;

var

  MyThread : TMyThread;

procedure TMyThread.Execute;

begin

  WriteLn('Hello from thread');

end;

begin

  try

    MyThread := TMyThread.Create(TRUE);

    try

      MyThread.Start;

      ReadLn;

    finally

      MyThread.Free;

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.