将长字符串转换为 Tstringlist

Question

我有以下字符串 A 类型字符串。

A = 'flagA=0,flagB=0,flagC=1'

我还想

B:TStringList.

将其转换为 TStringList，以便通过检查 B.Values['flagC'] 来查看 flagC 是否设置为 1。

也许我需要将字符串拆分为 '=' 和 ',' ？

欢迎任何其他想法，谢谢。

Answer 1

这应该有效

B := TStringList.Create;

B.Delimiter := ',';
B.DelimitedText := 'flagA=0,flagB=0,flagC=1';

ShowMessage(B.Values['flagC']);

cars.Free;

Answer 2

您可以使用该代码，

procedure TForm1.Button1Click(Sender: TObject);
var
b,a:string;
i:integer;
list:TStringList;
begin
list:=TStringList.Create;
a := 'flagA=0,flagB=0,flagC=1';
for i:=0 to length(a) do
 if a[i]='f' then
 begin
  b := copy(a,i,7);
  list.Add(b);
  ListBox1.Clear;
  ListBox1.Items.Assign(list);
 end;
end;

您可以像这样使用 edit1

a:= edit1.text //that consider the contain as string