Добавить кому после каждого числа, кроме последнего числа...

[FleXik]

Вобщем мне нужно поставить кому после каждого числа, кроме последнего числа. Спасибо.

Имею такое:

1
2
3
4
5

Нужно сделать:

1, 2, 3, 4, 5

видим что после "5" комы не должно быть...


Делал так (и подобными способами):

StringReplace('где меняем', #13#10, ', ', []);

но кома в конце добавляется (что и понятно)

[Toxa]

что мешает сделать так

if copy('где меняем',length('где меняем')-1,1) = ',' then
delete('где меняем',length('где меняем')-1,1);

?

[FleXik]

Constant object cannot be passed as var parameter

у меня стринглист...

[FaTaL]

Объяви переменную типа string и сделай так например
s := '';
for i:=0 to TStringList.Count - 2 do
s := s + TStringList.Strings[i] + ', ';
s := s + TStringList.Strings[TStringList.Count - 1];

[spirit-ua]

D E l e t e

[Аватар]

s:=StringReplace(Copy(StringList.Text,1,Length(StringList.Text)-2),#13#10,', ',[rfReplaceAll]);

[STRELOK-2007]

function Implode(var aStrings: TStrings; aDelimetr: WideString): WideString;
var
 i: integer;
begin
 Result:='';
 for i:=0 to aStrings.Count-1 do
  begin
   Result:=Result+aStrings[i];
 
   if i < aStrings.Count-1 then
    Result:=Result+aDelimetr;
  end;
end;