问题[delphi]

如果您将其拖放到 Delphi XE2 中的表单上TImageList，它将uses自动添加到模块中Vcl.ImgList。如果您在 Delphi 11 上执行相同操作，那么。将会被添加System.ImageList。我希望该项目能够在任何版本上进行编译。具体来说，现在我可以这样做：

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

  {$IFDEF VER350}
  System.ImageList,
  {$IFEND}

  Vcl.ImgList;

但是后来我硬连线到 Delphi 11。使用这个我将其修复为：

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

  {$IF CompilerVersion > 23.0}
  System.ImageList,
  {$IFEND}

  Vcl.ImgList;

（现在我可以澄清，从哪个版本开始我需要包含这个模块uses）

但是现在当我尝试编译 Delphi 11 时，它会自动添加另一个System.ImageList

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

  {$IF CompilerVersion > 23.0}
  System.ImageList,
  {$IFEND}

  Vcl.ImgList, System.ImageList;

并拒绝编译并出现错误

[dcc32 错误] Unit1.pas(14): E2004 标识符重新声明：“System.ImageList”

此外，该条件本身{$IF CompilerVersion > 23.0}在可执行代码中完美运行。我专门创建了一个单独的代码

procedure TForm1.Button1Click(Sender: TObject);
begin
  {$IF CompilerVersion > 23.0}
  ShowMessage('CompilerVersion > 23.0');
  {$ELSE}
  ShowMessage('CompilerVersion <= 23.0');
  {$IFEND}
end;

它也可以在 XE2 中运行

编译器版本 <= 23.0

11点

编译器版本 > 23.0

我还能如何创建通用条件编译检查版本或以某种方式摆脱这个错误？

我正在编写一个在构造函数中从文件（文件中数据的包装器）初始化的类。如果可能的话，应该以读取和写入的方式打开文件，如果不可能，则仅以读取的方式打开。使用这种结构是否正确：

    constructor TMyDocument.Create(const AFileName: string);
    begin
      try
        FFile := TFileStream.Create(AFileName, fmOpenReadWrite or fmShareDenyWrite);
        Load(FFile);
      except
        on E: Exception do
          if (E is EFOpenError) and (GetLastError = ERROR_ACCESS_DENIED) then
          try
            FFile := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
            Load(FFile);
          except
            raise;
          end
          else
            raise;
      end;
    end;

1. 没有目标以这样的方式处理异常：如果无法打开文件，则创建一个空对象，并完成构造函数而不会出现错误。处理异常是调用构造函数的人的任务。
2. 尝试通过 CreateFile() 打开文件并处理错误代码是否有意义，或者使用 TFileStream 并尝试 except 是否完全可以接受？通过 TStream 进行进一步加载。
3. 嵌套的 try except 块中是否有任何点（尝试以只读方式打开文件）？或者这就足够了：

    constructor TMyDocument.Create(const AFileName: string);
    begin
      try
        FFile := TFileStream.Create(AFileName, fmOpenReadWrite or fmShareDenyWrite);
        Load(FFile);
      except
        on E: Exception do
          if (E is EFOpenError) and (GetLastError = ERROR_ACCESS_DENIED) then
          begin
            FFile := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
            Load(FFile);
          end
          else
            raise;
      end;
    end;

- - - - - 更新 - - - - - -

结果，我做出了这个决定：

constructor TMyDocument.Create(const AFileName: string);
begin
  try
    FFile := TFileStream.Create(AFileName, fmOpenReadWrite or fmShareDenyWrite);
  except
    on E: EFOpenError do
      if (GetLastError = ERROR_ACCESS_DENIED) then
        FFile := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite)
      else
        raise;
  end;
  Load(FFile);
end;

请告诉我如何在 Delphi 中扩展十六进制数字 我们有一个十六进制数字，例如：2300FFC0 我们需要扩展它：C0FF0023。

出现了一个已经相当烦人的问题，其中 IDE DELPHI代码编辑器中的选定块（通常用鼠标或按键进行选择）没有被删除（更准确地说，仅从此块中删除了 1 个字符），而不是全部，如下所示它在 Windows 中随时随地工作/

有时重新启动 IDE 会有所帮助。现在我面临这样一个事实，即使重新启动操作系统并启动任何项目（甚至是一个干净的项目）也会导致相同的错误..当然，也许这是一个功能..但请告诉我如何删除它，我尝试了一切..也许某种重置...然后在Delphi 12的设置中（我也在早期版本中不时注意到这种行为，但重新启动IDE肯定总是有效的）

主窗体显示 ini 文件中的文本。它包含第二个表单的备忘录中的设置和文本。原文中包含连字符：Контора Рога и Копыта'+#13+'работает с 12:00 до 15:00 часов'+#13+'Личные приёмы с 13:00 до 14:00'
问题是，如何将其转移到Label上？
ini 文件是逐行保存的。所有内容也都被逐行接受到变量中。但标签上只显示第一行。

添加。在静态中，当文本标签带有'+#13'.但问题是我决定附加备忘录来编辑文本。文本保存在ini 中。
那些。启动时，FormCreate，标签包含从ini读取的变量。 ini 本身有连字符。但无论是在 Memo 中还是在 Label 中，它们都不能再从 ini 中计数。
我应该怎么办？

iniF.WriteString('main_text', 'text', text1);变量 tex1 中的条目 - 字符串

输入时输入：

从ini文件查看：

结果：