么意思博客

TStringList 常用方法与属性: 置换分隔符

TStringList 常用方法与属性:

var

  List: TStringList;

  i: Integer;

begin

  List := TStringList.Create;

  List.Add('Strings1');           {添加}

  List.Add('Strings2');

  List.Exchange(0,1);             {置换}

  List.Insert(0,'Strings3');      {插入}

  i := List.IndexOf('Strings1');  {第一次出现的位置}

  List.Sort;                      {排序}

  List.Sorted := True;           {指定排序}

  List.Count;                     {总数}

  List.Text;                      {文本集合}

  List.Delete(0);                 {删除, 0是第一个数据}

  List.LoadFromFile('c:\tmp.txt');{打开}

  List.SaveToFile('c:\tmp.txt');  {保存}

  List.Clear;                     {清空}

  List.Free;                      {释放}

end;

置换分隔符

var

  List: TStringList;

begin

  List := TStringList.Create;

  List.Delimiter := '|';

  List.DelimitedText := 'aaa|bbb|ccc|ddd';

   ShowMessage(IntToStr(List.Count));  //4

  ShowMessage(List[0]);  //aaa

   List.Free;

end;