Delphi TstringList Stringlist的特殊用法
阿新 • • 發佈:2019-01-22
procedure TForm1.btn1Click(Sender : TObject);
var
m : Integer;
s : string;
strlst : TStringList;
begin
strlst := TStringList.Create;
strlst.Add('張三=80');
strlst.Add('張四=90');
strlst.Add('張五=100');
strlst.NameValueSeparator := '='; //設定Name、Value分隔符!
m := strlst.IndexOfName('張四'); //根據Name獲取Index
s := strlst.Values['張五']; //根據Name獲取Value
strlst.Free;
end;
var
m : Integer;
s : string;
strlst : TStringList;
begin
strlst := TStringList.Create;
strlst.Add('張三=80');
strlst.Add('張四=90');
strlst.Add('張五=100');
strlst.NameValueSeparator := '='; //設定Name、Value分隔符!
m := strlst.IndexOfName('張四'); //根據Name獲取Index
s := strlst.ValueFromIndex[m]; //獲取Name的值
strlst.Values['張五'] := '101'; //根據Name設定Values := strlst.Values['張五']; //根據Name獲取Value
strlst.Free;
end;