切割字符串，给一个字符串中逗号分隔的元素，加引号的小技巧

function jiaYinHao(const astr: string): string;
begin
Result := ''''+StringReplace(astr, ',', ''',''', [rfReplaceAll])+'''';
end;

procedure TForm4.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'abc,cde,efg';
Memo1.Lines.Add(jiaYinHao(s));
end;