delphi - midaslib を含めるとリソース文字列テーブルが上書きされる

Question

midaslibuses 句に含めると、リソース文字列テーブルが「0: 正常終了」と 15 個の空の文字列でオーバーライドされます。

コンパイル済みの .Res ファイルを含めます。

元のテスト プログラム:

program tesresources;

{$R BKHTEKSTEN.RES}

uses
  System.StartUpCopy,
  FMX.Forms,
  main in 'main.pas' {Form1};

  {$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
//Form1
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  astr:string;
begin
  MEMOtest.BeginUpdate;
  try
    MEMOtest.Lines.Clear;    
    MEMOTest.Lines.Add('Resourstrings : ');    
    for i := 0 to 255 do begin
      astr:=LoadStr(i);
      MEMOTest.Lines.Add(i.ToString+' : '+aStr);
    end;
  finally
    MEMOtest.EndUpdate;
  end;
end;

結果 ：

リソースストリング : 0 : 1 : Pingwin 5 - Fout! 2 : わかりました！3 : Pingwin 5 - ベリヒト ! 4 : カンベストアンドニエオープネン！5 : Weet u het zeker ? 6 : ヴェルワイデレン！7 : 8 : 9 : Opgelet : Deze informatie gaat definitief verloren !!! 10 : 11 : Opgelet : Het geselecteerde Boekjaar zal volledig verwijderd worden !!! 12 : Opgelet : De BTW Listing zal definitief verwijderd worden !!! 13 : Opgelet : Verwijderen van de Ouderdomshistorieken !!! 14 : Opgelet : Verwijderen van de Historieken klanten/Leveranciers !!! 15 : Opgelet : Deze Klant zal Definitief verwijderd worden !!! 16 : Opgelet : Deze Leverancier zal Definitief Verwijderd worden !!! 17 : Opgelet : Deze Contactinformatie zal Definitief verwijderd worden !!!

Midaslib をインクルードすると、リソース文字列テーブルが変更されます。

program tesresources;

{$R BKHTEKSTEN.RES}

uses
  System.StartUpCopy,
  FMX.Forms,
  midaslib,
  main in 'main.pas' {Form1};

  {$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Resourstrings : 0 : 正常終了。1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : Opgelet : Deze Leverancier zal Definitief Verwijderd worden !!! 17 : Opgelet : Deze Contactinformatie zal Definitief verwijderd worden !!!

.exe を見ると、2 つの文字列テーブルが見つかります