Версия для печати темы

Автор: vjtr 12.03.2008 23:40

подскажите как удалить из строки все запятые пожалуйста

Автор: kornet 13.03.2008 0:28

Воспользовавшись такой процедурой:

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;

Автор: andriano 13.03.2008 0:36

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

Автор: Гость 13.03.2008 1:19

а как сделать вывод

Автор: Client 13.03.2008 1:40

andriano

 while pos(',',s) do

тут ничего не забыл???
а вывод строки writeln'ом

Автор: andriano 13.03.2008 2:48

Забыл.
Поправил. ;)

Автор: klem4 13.03.2008 13:23

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...