Delphi 将Strings合并成一个逗号分隔的字符串,用于SQL

本文整理自网络，侵删。

 
//将Strings合并成一个逗号分隔的字符串,用于SQL
function GetStrFromStrings(tmpItems:TStrings):String;
var
  icnt:integer;
  str,stemp:string;
begin
  str:='';
  for icnt:=0 to tmpItems.Count -1 do
  begin
    stemp:=trim(tmpItems[icnt]);
    if stemp<>'' then
      str:=str+''''+stemp+''',';
  end;
  str:=copy(str,1,length(str)-1);
  result:=str;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text:=GetStrFromStrings(Memo1.Lines);
end;

 

相关阅读 >>

Delphi mscomm控件串口收发程序

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi 文本转成图片

Delphi 图像文件加载到剪切板，再从剪切板绘制图像

Delphixe jpg图片压缩

Delphi form生成时的事件次序

获取网络日期

Delphi memo1自动循环上下滚屏

Delphi datasnap的线程池

Delphi 最简单的判断数字函数

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

转载请注明出处：木庄网络博客 » Delphi 将Strings合并成一个逗号分隔的字符串,用于SQL