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

[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]

Для твоего случая достаточно:

   i := 1;
   S2 := '';
   q := H;
   repeat
      case q of
         H:
         begin
            case S1[i] of
               '.':
               begin
                  q:=B;
                  S2:=S2+S1[i];
               end;
               '+', '-':
               begin
                  q:=A;
                  S2:=S2+S1[i];
               end;
               '0'..'9':
               begin
                  q:=C;
                  S2:=S2+S1[i];
               end;
               else q:=H;
            end; // case
            Inc(i); // Это делается всегда
         end;

         A, B:
         case S1[i] of
            '0'..'9':
            begin
               q:=Succ(Succ(q)); // Вместо case A => q := C и case B => q := D
               S2:=S2+S1[i];
               Inc(i);
            end;
            else
            begin
               q:=H;
               S2:='';
            end;
         end;


         C:
         case S1[i] of
            '.':
            begin
               q:=F;
               S2:=S2+S1[i];
               Inc(i);
            end;
            '0'..'9':
            begin
               q:=C;
               S2:=S2+S1[i];
               Inc(i);
            end;
            else q:=S;
         end;

         F, D: // Эти 2 ветки у тебя вообще идентичные
         case S1[i] of
            '0'..'9':
            begin
               q:=D;
               S2:=S2+S1[i];
               Inc(i);
            end;
            else q:=S;
         end;

      end;
   until q = S;

я просто чуть-чуть упростил твой же код, объединил одинаковые (и почти одинаковые, как в случае q=A и q=B) ветки...

[marwell]

Для твоего случая достаточно:

   i := 1;
   S2 := '';
   q := H;
   repeat
      case q of
         H:
         begin
            case S1[i] of
               '.':
               begin
                  q:=B;
                  S2:=S2+S1[i];
               end;
               '+', '-':
               begin
                  q:=A;
                  S2:=S2+S1[i];
               end;
               '0'..'9':
               begin
                  q:=C;
                  S2:=S2+S1[i];
               end;
               else q:=H;
            end; // case
            Inc(i); // Это делается всегда
         end;

         A, B:
         case S1[i] of
            '0'..'9':
            begin
               q:=Succ(Succ(q)); // Вместо case A => q := C и case B => q := D
               S2:=S2+S1[i];
               Inc(i);
            end;
            else
            begin
               q:=H;
               S2:='';
            end;
         end;
         C:
         case S1[i] of
            '.':
            begin
               q:=F;
               S2:=S2+S1[i];
               Inc(i);
            end;
            '0'..'9':
            begin
               q:=C;
               S2:=S2+S1[i];
               Inc(i);
            end;
            else q:=S;
         end;

         F, D: // Эти 2 ветки у тебя вообще идентичные
         case S1[i] of
            '0'..'9':
            begin
               q:=D;
               S2:=S2+S1[i];
               Inc(i);
            end;
            else q:=S;
         end;

      end;
   until q = S;

я просто чуть-чуть упростил твой же код, объединил одинаковые (и почти одинаковые, как в случае q=A и q=B) ветки...

действительно, а я даже не заметил