Lazarus(FreePascal)实现运行时改尺寸并回写配置文件的求助

• 未声明slMyFileStrings变量，编译阶段会直接报未定义标识符错误
• 对TStringList的索引规则认知偏差：组件采用0基索引，你要修改的物理第6行（从1开始计数的行号）对应的索引值为5，不是6
• 加载配置文件后没有执行写回操作：TStringList加载的内容仅存在于内存，不调用SaveToFile的话所有修改都不会持久化到磁盘
• 分支逻辑错位：ComboBox不同选项的分支里手动硬编码的Faktor值和原ComboSetting里的计算逻辑不匹配，存在两处参数值不同步的隐患
• 存在几处字符串未闭合的小错误：FormCreate方法中添加的3个ComboBox项文本，最后缺少右括号，比如'Size L (2560 × 1440p'，否则无法通过编译

TStringList对文本行的操作本质是对字符串数组的操作，不需要刻意“删行再插行”，直接对目标索引的项赋值即可完成整行替换，替换完成后必须手动保存文件。

修正后的ComboBox切换逻辑 #

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  slMyFileStrings: TStringList;
  targetSize: string;
begin
  // 映射选中项对应的配置写入值
  targetSize := case ComboBox1.ItemIndex of
    0: 'size=XL';
    1: 'size=L';
    2: 'size=M';
    3: 'size=S';
    else '';
  end;
  // 无效选中项直接退出
  if targetSize = '' then Exit;

  slMyFileStrings := TStringList.Create;
  try
    slMyFileStrings.LoadFromFile(cMyFileName);

    // 容错处理：配置文件行数不足时自动补空行，避免索引越界
    while slMyFileStrings.Count < 6 do
      slMyFileStrings.Add('');

    // 替换第6行内容（0基索引为5）
    slMyFileStrings[5] := targetSize;

    // 将修改后的内容持久化回磁盘文件
    slMyFileStrings.SaveToFile(cMyFileName);
  finally
    slMyFileStrings.Free;
  end;

  // 统一调用原配置读取流程刷新窗口尺寸，不需要手动赋值Faktor
  ComboSetting;
end;

如果后续配置文件的行顺序可能变动，不要硬绑定第6行的索引，可以通过内容匹配定位尺寸配置行，逻辑会更稳定：

var
  i: Integer;
  sizeLineFound: Boolean;
...
sizeLineFound := False;
for i := 0 to slMyFileStrings.Count - 1 do
begin
  // 匹配以size=开头的行
  if Pos('size=', slMyFileStrings[i]) = 1 then
  begin
    slMyFileStrings[i] := targetSize;
    sizeLineFound := True;
    Break;
  end;
end;
// 没找到原有配置行就直接追加到文件末尾
if not sizeLineFound then
  slMyFileStrings.Add(targetSize);

• 确认配置文件路径的可访问性：当前代码用的是相对路径..\\Binaries\\conf.ini，Lazarus调试模式下默认工作目录为项目源文件目录，要确保程序运行时能正确定位到该文件，否则LoadFromFile会抛出文件不存在的异常
• 逻辑收敛：不要在切换分支时手动给Faktor赋值，所有尺寸计算逻辑统一放到ComboSetting中，避免两处维护的参数值出现偏差

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