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单元文件基本结构

Delphi 防止系统睡眠

Delphi winapi: shellexecute - 打开外部程序或文件

Delphi实现屏幕截图、窗口截图、指定区域截图

Delphi 获取android id 号

Delphi 强制删除文件 zwdeletefile

Delphi 判断文件扩展名函数

Delphi 获取当前鼠标指针位置文本

Delphi idhttp中application/x-www-form-urlencoded字符说明

Delphi制作外挂的操作技巧

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

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