如何在INI文件中提取指定字符串旁文本并显示到TEdit？

嘿，我来帮你搞定这个INI字符串提取的问题！针对你说的场景——从[Section]节下的Indent=AA1:BB2ac:CC35sda:DDWord里提取CC后面的35sda到TEdit，我给你两种实用方案，其中第一种是效率最高的常规解法，第二种是不用Pos/PosEx的替代方案。

方案一：用Pos/PosEx精准定位（推荐） #

虽然你说之前没用到这两个函数，但它们是Delphi处理字符串位置的核心工具，效率高且逻辑清晰，非常适合这种精准提取的场景。步骤如下：

1. 先用TIniFile读取INI文件中Indent的值；
2. 定位CC的起始位置；
3. 从CC后面开始找下一个冒号的位置，提取中间的内容；
4. 将结果赋值给TEdit。

完整代码示例：

var
  IniFile: TIniFile;
  IndentValue, TargetContent: string;
  CCStartPos, NextColonPos: Integer;
begin
  // 初始化TIniFile，替换成你的INI文件实际路径
  IniFile := TIniFile.Create('C:\YourPath\YourFile.ini');
  try
    // 读取[Section]下的Indent值，默认返回空串防止出错
    IndentValue := IniFile.ReadString('Section', 'Indent', '');
    
    if IndentValue <> '' then
    begin
      // 找到"CC"在字符串中的起始位置
      CCStartPos := Pos('CC', IndentValue);
      
      if CCStartPos > 0 then
      begin
        // 从CC的下一个字符开始，查找下一个冒号的位置
        NextColonPos := PosEx(':', IndentValue, CCStartPos + 2);
        
        if NextColonPos > 0 then
          // 提取CC后面到下一个冒号前的内容
          TargetContent := Copy(IndentValue, CCStartPos + 2, NextColonPos - (CCStartPos + 2))
        else
          // 如果CC是最后一段（后面没有冒号），直接提取到字符串末尾
          TargetContent := Copy(IndentValue, CCStartPos + 2, Length(IndentValue) - (CCStartPos + 1));
        
        // 将结果显示到TEdit
        Edit1.Text := TargetContent;
      end
      else
        Edit1.Text := '未找到包含CC的内容';
    end
    else
      Edit1.Text := 'Indent字段为空';
  finally
    // 记得释放TIniFile资源
    IniFile.Free;
  end;
end;

方案二：字符串分割法（无需Pos/PosEx） #

如果你确实不想用Pos/PosEx，可以借助字符串分割的方式，把Indent的值按冒号拆分成数组，再遍历数组找以CC开头的元素，提取后面的内容。需要引用System.StrUtils单元来使用SplitString函数：

uses
  System.StrUtils;

var
  IniFile: TIniFile;
  IndentValue: string;
  StrSegments: TStringArray;
  I: Integer;
begin
  IniFile := TIniFile.Create('C:\YourPath\YourFile.ini');
  try
    IndentValue := IniFile.ReadString('Section', 'Indent', '');
    
    if IndentValue <> '' then
    begin
      // 按冒号分割字符串成数组
      StrSegments := SplitString(IndentValue, ':');
      
      // 遍历数组找以CC开头的片段
      for I := 0 to High(StrSegments) do
      begin
        if StartsStr('CC', StrSegments[I]) then
        begin
          // 提取CC后面的部分（从第3个字符开始）
          Edit1.Text := Copy(StrSegments[I], 3, Length(StrSegments[I]) - 2);
          Break; // 找到后立即退出循环，提升效率
        end;
      end;
      
      // 如果遍历完没找到，提示信息
      if Edit1.Text = '' then
        Edit1.Text := '未找到包含CC的内容';
    end
    else
      Edit1.Text := 'Indent字段为空';
  finally
    IniFile.Free;
  end;
end;

注意事项 #

• 记得替换代码中的INI文件路径为你实际的文件路径；
• 两种方案都处理了边界情况：比如Indent为空、找不到CC、CC是最后一段没有后续冒号的情况，避免程序报错；
• 方案一的效率更高，因为不需要生成额外的字符串数组，直接定位提取，推荐优先使用。

内容的提问来源于stack exchange，提问作者bear