Разделение входных данных

[Леханыч]

В входных данных вводятся несколько строк, каждая из которых состоит из 4 частей, разделённых точками и двоеточием (перед последней). В 1,2 и 3 введены буквы, в 4 цифры. Нужно выделить только числовую часть. Напишите кусок алгоритма, заранее спасибо)

[Stilet]

i:=Length(s); while (i>0)and(s[i]<>':') do dec(i);
...:=copy(s,i+1,Length(s);

Идея понятна?

[Serge_Bliznykov]

ищите в строке двоеточие.
Потом берете все последующие цифры.
Всё.
примерно так:

LastPart := '';
t :=  Pos(':', s);
if t>0 then begin
  i:=t+1;
  while ( i<=Length(s) )  and (s[i] in ['0'..'9']) then begin
     LastPart := LastPart + s[i]; 
     Inc(i);
  end; 
end;

профит!

писал прямо в бразуере, в коде могут быть мелкие опечатки/неточности