Delphi - ValueListEditor 不添加新行

Question

我有一个程序需要从 ini 文件中读取数据，格式如下：
'Prices', [integer], [data to be read]

读取的数据包含由'/' 符号分割的两条信息。当我在下面调用我的过程时，数据已成功拆分。

我在表单上放置了一个TValueListEditor（称为ledtPrices），并希望将ini 文件中的值添加到列表编辑器中。如果我通过单击按钮调用ledtPrices.InsertRow，则会添加我输入以添加到行的值并刷新列表编辑器。

但是，当我从RefreshPList 过程中调用相同的函数时，这些值不会作为新行添加（列表编辑器为空白）。我已经用ShowMessage 对话测试了我的代码，以确保程序的每个部分都在应该运行的时候运行。我的代码如下：

procedure RefreshPList;
var
  l: TValueListEditor;
  xFile: TINIFile;
  temprow, tl, tp: string;
  tempr: TStringList;
  i: integer;
begin
  i := 0;
  l := frmSettings.ledtPrices;
  try
    tempr := TStringList.Create;
    tempr.StrictDelimiter := True;
    tempr.Delimiter := '/';
  xFile := TIniFIle.Create('C:\MData.ini');
    try
    temprow := xFile.ReadString('Prices', '0', 'xx');
    if temprow = 'xx' then
      ShowMessage('no prices saved')
    else
    begin
    repeat
      temprow := xFile.ReadString('Prices', IntToStr(i), 'xx');
      if temprow <> 'xx' then
        begin
          tempr.DelimitedText := temprow;
          tl := tempr[0];
          tp := tempr[1];
          l.InsertRow(tl,tp,true);
          //ShowMessage(tl);
          Inc(i);
        end
      else
        ShowMessage('End of list');
    until (temprow = 'xx');
    //l.Refresh;
    end;
    finally
      xFile.Free;
    end;
    LastLine := i;
  finally
    tempr.Free;
  end;
end;

LastLine 是一个稍后使用的全局整数值。我正在尝试在列表编辑器中添加、删除和编辑数据，而不直接编辑单元格。将新数据添加到 ini 文件的过程已编写并成功运行。

---

更新

我开始意识到，我创建的任何试图编辑组件值的过程都不会编辑组件值。我在这里错过了一些简单的东西吗？

例如，我在表单上创建了一个备忘录，并创建了一个将数组的内容添加到 memo.lines 的过程。从按钮单击调用此过程时未执行。但是，如果我将过程的内容直接复制到 buttonclick 中并执行它，它就可以工作。

这些过程是从按钮单击命令中调用的。该窗体是从主窗体创建的。这些组件都位于一个页面控件标签页中。

Answer 1

快速测试应用程序（XE5、VCL Forms）无法重现该问题。

我从一个新的空白应用程序开始，将TValueListEditor 和TButton 放在表单上，​​然后使用对象检查器添加两个键/值组合：

Key      Value
---      -----
A        Aaaaaaa
C        Ccccccc

在TButton.OnClick事件中，我使用如下代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  NewKey, NewValue: string;
begin
  NewKey := 'B';
  NewValue := 'Bbbbbbb';
  ValueListEditor1.InsertRow(NewKey, NewValue, True);
end;

我运行应用程序：

我点击Button1，代码成功在TValueListEditor的末尾（底部）添加了新项目。

我将最后一个参数InsertRow 更改为False，并将其插入TValueListEditor 的开头（顶部）。

这表明要么你没有从你的 ini 文件中得到你期望的值，要么插入新行的代码没有执行。

这是我创建的测试应用的完整代码：

Unit1.dfm

object Form4: TForm1
  Left = 0
  Top = 0
  Caption = 'Form4'
  ClientHeight = 178
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ValueListEditor1: TValueListEditor
    Left = 40
    Top = 16
    Width = 306
    Height = 137
    Strings.Strings = (
      'A=Aaaaaaa'
      'C=Ccccccc')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 352
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end

Unit1.pas

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.ValEdit;

type
  TForm1 = class(TForm)
    ValueListEditor1: TValueListEditor;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  NewKey, NewValue: string;
begin
  NewKey := 'B';
  NewValue := 'Bbbbbbb';
  ValueListEditor1.InsertRow(NewKey, NewValue, True);
end;

end.