将长字符串转换为 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

enter image description here

你可以使用那个代码

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

将长字符串转换为 Tstringlist

convert a long string into a Tstringlist

delphi

pascal

lazarus