delphi String转换成TStrings

本文整理自网络，侵删。

 

function StringsToStr(const vList:TStrings):string;
var
  i:Integer;
begin
  Result := '';
  for i:=0 to vList.Count-1 do
  begin
    if Result <> '' then
      Result := Result+'#'+vList.Strings[i]
    else
      Result := vList.Strings[i];
  end;
end;

//String转换成TStrings
function StrToStrings(const Str:string;var vList:TStrings):Integer;
begin
  Result := ExtractStrings(['#'],[' '],PChar(str),vList);
end;
 

相关阅读 >>

Delphi getforegroundwindow 与 getactivewindow 的区别

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi 递归搜索文件夹子目录

Delphi 随鼠标移动的十字线的快速画法

Delphi for 循环 to和downto的理解

elphi中取出字符串中指定位置的几个字符

tclientsocket和tserversocket用法

Delphi 金木水火土 生克用法

Delphi安卓动态切换本地主题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi String转换成TStrings