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;
最后修改:2022 年 12 月 05 日
© 允许规范转载