Question

我对StringList有很大的问题。我的文本文件包含这样的文字：

51,179 km=Powiat Ostrzeszowski
51,179 - 61,402 km=Powiat Wieruszowski
61,402 - 64,559 km (d. DW450)=Powiat Wieruszowski
64,559 km (d. DW450)=Powiat Kępiński

我想在＆＃34; =＆＃34;之前导入此文件并显示第一个值。在RadioGroup。＆＃34; =＆＃34;之后的第二个值当用户点击RadioGroup上的正确值时，我想在Label上显示。

我想操作StrongList的名称和值。

像这样：https://i.stack.imgur.com/dkLih.png

在* .pas文件中我有：

var
  Form1: TForm1;
  list: TStringList;
  i: Integer;

在FormCreate上：

list := TStringList.Create;    
list.LoadFromFile('dat\a1pik.dat');
RadioGroup1.Visible := true;
RadioGroup1.Items.Clear;

for i := 0 to list.Count-1 do
    begin
        RadioGroup1.Items.Add(list.Names[i]);
    end;

我在RadioGroup上的第一个值。

我尝试使用RadioGroup：

procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
    Label.Caption := list.Values[list.Names[RadioGroup1.ItemIndex]];
    end;

但是没有用。我做错了什么？

P.S。对不起我的英文：）

如何在Lazarus中拆分StringList

0 个答案: