Поиск числа в строке Опции

[marwell]

Добрый вечер
Собственно, само задание: вводится строка, найти в этой строке первое число (может быть с запятой) (учитываются и знаки '+-') в общем из строки типа +-+--+-+-123,345ывыва6254в программа должна вывести -123,345
со знаками разобрался, не получается с запятыми. Чувствую, надо полностью переделывать условие
а, да. совсем забыл. Нельзя использовать стандартные процедуры преобразования типов

procedure TForm1.Button1Click(Sender: TObject);
var s,s2,s3: string;
    m,m2,z: set of char;
  i: integer;
begin
Label1.Caption:='';
s:=Edit1.Text;
m:=['0'..'9', '+', '-'];
z:=['+','-'];
m2:=['0'..'9', '.', ','];
s2:='';
for i:=1 to Length(s) do begin
if s[i] in m then begin
if (s[i+1] in m2) and not (s[i+1] in z)  then
                begin
                s3:=s[i+1];
                s2:=s2+s[i];
                if not (s[i+2] in m2) then break;
                end
                else continue;
end;

end;
Label1.Caption:=s2+s3;
end;

[IUnknown]

Открываешь книгу Р. Хантера "Проектирование и конструирование компиляторов" на стр. 45-46, и смотришь, как строится конечный автомат, распознающий в строке вещественное число. Небольшая доработка - и получаешь функцию, которая вернет тебе первое вхождение вещественного числа в строке.

[marwell]

О_о почему то мое сообщение отправилось два раза

Сообщение отредактировано: marwell - 14.10.2011 14:05