Удалить буквы из строки

[danil123]

Пытаюсь написать программу, которая удалит все не-цифры из строки

var i:integer;
st:string;
begin
read(st);
for i:=1 to pos('.',st) do
if not (st[i] in ['0'..'9']) then
delete(st,i,1);
writeln(st);
end.

Почему данный код не работает? Пишет про выход за границы массива

[Sciv]

Потому что при удалении лучше делать обратный цикл:

for i:=pos('.',st) downto 1 do

А еще напишите:

readln(st);

и в конце

writeln(st);
readln;

а то результата не увидите. Были тут такие вопросы уже - типа не работает, а на самом деле отработало и закрылось

и кстати, что Вы будете делать, если в строке не будет точки?

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
begin
  s := 'fk7e69749695e6ue498u549865u';

  for i := Length(s) downto 1 do
  begin
    if not (s[i] in ['0'..'9']) then Delete(s, i, 1);
  end;
end;

Накой

pos('.', st)

?

[danil123]

в задании точка обязательно присутствует.
Поменял на обратный цикл, заработало.

[Sciv]

в задании точка обязательно присутствует.

ну так добавьте проверку на присутствие точки. Примерно так:

var p: integer;
...
repeat
  readln(st);
  p:=pos('.',st);
until p>0;

for i:=p downto 1 do
...

[Smitt&Wesson]

Потому, что

for i:=1 to pos('.',st) do
if not (st[i] in ['0'..'9']) then
delete(st,i,1);

Уменьшает длину строки, а фор - принимает изначальную.
В Дельфине не знаю, но если в С++, лучше использовать while{};

[Serge_Bliznykov]

Smitt&Wesson, вы правы. но этот момент уже в теме решён ( с помощью обратного цикла).

[artemavd]

Я бы решил это через StringReplace.

[Serge_Bliznykov]

Сообщение от artemavd

Я бы решил это через StringReplace.

Как это?!
я думаю, что через StringReplace данную задачу решить не получится...



p.s. artemavd, я предполагаю, что Вы условия задачи не очень внимательно прочитали...

[Аватар]

данную задачу решить не получится

если задаться такой целью, то в цикле по всем символам, за исключением цифр и точки. Прикольная прога будет