Строки, извлечение числа из сроки Опции

[Maximka]

Добрый день!!! Помогите пожалуйста решить такую задачу:
Допустим дана такая строка (13121123123-123123123). Как извлечь из нее число до первого знака опереции (*,-,/,+) b и поместить его в другую строку.
Конечно если знать что посли числа идет знак - то можно ипользовать эту реализацию.

function QWERTY(s : string):string;
var
  i,p : byte;
  sum : string;
begin
  sum :='';
  p := pos('-',s);
  for i :=1 to p-1 do
    sum := sum + s[i];
  QWERTY := sum;
end;
begin
Writeln(Qwerty('100528749-300'));
end.

.
А если я не знаю, какой знак операции идет после числа. Как поступать в такой ситуации?????!!

[Maximka]

HELLLLLLLP!!!!!!!!!!!!!!!!!!!!! Мне задачу завтра сдавать!!!!! Очень хочется продолжать учиться!!!!!

[Malice]

Чего кричишь? Сам виноват. Ошибки то простые:
В процедуре Result ты при встрече в строке пробела пытаешься засунуть в стек число. Это было бы логично, если бы пробелы стояли только после чисел, а ты их лепишь и после знаков и после скобок. Всязи с этим проще всего заменить блок в case out[i]

         '0'..'9' : begin
                  if (out[i]>='0') and (out[i]<='9') then 
                    begin 
                       out2:=out2+out[i];
                    end;
          end;

на

'0'..'9' : begin out2:='';
 while (out[i] in ['0'..'9']) and (i<length(out)) do begin
  out2:=out2+out[i]; inc(i);
   end; val(out2,num,error);   dec(i);
     InstackR(s3,num);
 end;

Немного не корректно, но пойдет.
ps: case с пробелом убрать вообще.

Сообщение отредактировано: volvo - 3.11.2006 20:26

[Maximka]

Malice, спасибо что откликнулся - добрая душа!!!! Но я уже сам все исправил..Если кому надо то кину исходники...