Строки в Delphi

[Nikita++]

Привет всем!! Меня интересует такая вещь, как нахождение цифр в строке и присваивание их переменным типа integer. Нужно, чтобы для каждой цифры- своя переменная.


Пример:
Ввод:gf1rggr5rt

Нужно: a:=1;
b:=5;


Цифр всегда две.

Дальнейшие операции проведу сам. Заранее благодарен.

[Utkin]

Цифры находятся на фиксированном месте? Или их положение в строке может меняться?

[Nikita++]

Ну вроде да. Вот у меня в другой проблеме так:
'znak'цифра'znak'цифра'znak'

Это аналогичное, но лучше со 'znak'цифра'znak'цифра'znak' помогите

Но при этом цифра может быть +-1000000, a также дробь (4/7-например) может стоять.

[Риндера]

var first: boolean;
...
first := true;

for i:=1 to length(s) do
begin
if (s[i] in ['0'..'9']) and (first = true) then
   begin
   a := s[i];
   first := false;
   end;
if (s[i] in ['0'..'9']) and (first = false) then
   begin
   b := s[i];
   break;
   end;
end;

М? Что-то такое, но я пока не уверена, как оно работает)))

[Fog]

Если те надо цифры из стринга вытащить и переменным присвоить пройдись циклом по строке и отфильтруй цифры по ASCII кодам(кажется от 48=0..49=1 начинается). Если надо могу код выложить для твоей строки

А пока писал уже сделали OK

[Nikita++]

Fog, если можно,то да. Я строки только начал изучать.

[Utkin]

Риндера, здесь не обязательно из строки удалять символы .
Nikita++, доступ к символу строки, также как и в массиве - строка[индекс_символа], только нумерация от единицы начинается.
Число символов в строке Length(строка).
Преобразовать символ цифры в число - StrToInt(строка)

[i] in ['0'..'9']

Проверка входит ли символ i строки s в множество символов от '0' до '9'
Этого достаточно для решения твоей задачи.

[Риндера]

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

Риндера, здесь не обязательно из строки удалять символы .

А я люблю удалять символы :D *4-й раз переделывает код*

[Utkin]

Сообщение от Риндера

А я люблю удалять символы :D *4-й раз переделывает код*

Удаление символа из строки само по себе медленно, ладно еще с краю, с середины еще медленней.

[Риндера]

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

Удаление символа из строки само по себе медленно, ладно еще с краю, с середины еще медленней.

Чем тут оффтопить, лучше б в мою темку заглянули, у мну работа стоит)