помогите с паскалем немножко Опции

[vjtr]

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

[kornet]

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

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

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;

Сообщение отредактировано: kornet - 12.03.2008 20:28

[andriano]

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

Сообщение отредактировано: andriano - 12.03.2008 22:46

[Гость]

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

[Client]

andriano

 while pos(',',s) do

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

Сообщение отредактировано: Client - 12.03.2008 21:41

[andriano]

тут ничего не забыл???

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

[klem4]

!

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