Цитата(vjtr @ 12.03.2008 18:40)

procedure DeleteComas (var str : string);
var i : byte;
begin
        repeat
        i := pos (',', str);
        if i <> 0 then
                Delete (str, i, 1);
        until i = 0
end;

while pos(',',s) > 0 do delete(s,pos(',',s),1);

 while pos(',',s) do