|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Извлечение чисел из строки
Написал функцию извлечения числа из строки:
Код:
function IsNum(c:Char):Boolean; begin If Ord(c)>=Ord('0') then begin If Ord(c)<=Ord('9') then begin IsNum:=True end else Isnum:=false; end else IsNum:=false; end; Function ExtractInteger(S:String):Integer; var i:Integer; k:Integer; s1:String; s2:String; begin for i:=0 to Length(S) do begin If IsNum(S[i]) then begin SetLength(s2,1); s2[1]:=s[i]; s1 := s1 + s2; end; end; k:=StrToInt(s1); ExtractInteger:=k; end; Теперь понадобилось, чтоб если между числами есть символы, то возвращало массив чисел, каждое отдельно. И еще, как в проверить одну символьную строку на входждение в другую? |
#2
|
|||
|
|||
по первому не понял: а вопрос в чем? понадобилось так напиши
алгоритм приблизительно такой: в ветке "если не цифра" провреяешь последний символ в результирующей строке, не пробел, то добавляешь пробел в конец результирующей строки. по второму функцию Pos смотри Последний раз редактировалось xchrom, 23.05.2008 в 15:45. |