1. 程式人生 > >Delphi TstringList Stringlist的特殊用法

Delphi TstringList Stringlist的特殊用法

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.ValueFromIndex[m];     //獲取Name的值

  strlst.Values['張五']  := '101';                     //根據Name設定Value 
  s                             := strlst.Values['張五'];     //根據Name獲取Value
  strlst.Free;
end;