определение в строке числа

[pautina]

Здравствуйте Уважаемое сообщество.
Ни подскажете какой участок кода мне использовать, чтобы в любой строке определять число. Число обязательно вещественное с 1 точкой после запятой, слева и справа от числа есть пробел.

[Роман Радер]

обязательно вещественное с 1 точкой после запятой

хм интересно на такое число посмотреть. это типа такого: 10,3.3 ?

[Kotofff]

Одно и решений "в лоб" :
если строка не пустая, выбирай из нее слова и ищи в каждом присутствие только цифр и одной точки ...

P.S.
есть такой модуль QStrings называется - он умеет делать ВСЁ со строками ... с ним и кода намного меньше и работает быстрее ...

[pautina]

чила могут быть такие 0,0 0,1 12,6 2345,0 412,9 30,0 14,0 главное слева и справа от числа пробел и одна цыфра после запятой.
var s:string; i:integer;
Условие если строка не пуста то
for i:=1 to length(s) do
begin
Ишем в строке пробел, если есть то
ишем после пробела число (012..9), если есть то
(может быть либо ещё число, либо запятая,)
после запятой может быть только 1 символ для числа
после последнего числа обязательно пробел
end
Как мне всё это описать.

[Kotofff]

как долго программируешь на Delphi ?
...

на тебе модуль ... содержимое архива положи в Lib, в своей проге объявляй в uses QStrings .... описание всех его функций очень подробно внутри самого QStrings.pas ... посмотри все функции и ты поймешь как достичь своей цели ...

[pautina]

На delphi не писал давно, в архиве не всё понял.
чила могут быть такие 0,0 0,1 12,6 2345,0 412,9 30,0 14,0 главное слева и справа от числа пробел и одна цыфра после запятой.

const
 a0 =0; a1=1; a2=2; a3=3; a4=4; a5=5; a6=6; a7=7; a8=8; a9=9;
var s:string; i:integer;
  Условие если строка не пуста то
for i:=0 to length(s) do
begin
 if (s[i]=Chr(32)) and (s[i+1]=a0 or a1 or a2 or a3 or a4 or a5 or a6 or a7 or a8 or a9)) and (s[i+2]=Chr(Аски код запятой)) then         
// Если символ строки пробел, а следующий за ним символ 0..9 после цифры запятая то 
 после запятой может быть только 1 символ для числа
 после последнего числа обязательно пробел
end

Как мне всё это описать.