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

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

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

[volvo]

Maximka, ты опять неверно пытаешься делать... Смотри внимательно:

  for i := 1 to Length(out) do
    case out[i] of
      '0'..'9' : begin
        if (out[i]>='0') and (out[i]<='9') then begin
          out:=out+out[i];
          val(out,num,error);
          InstackR(s3,num); { <--- Здесь ! }
        end;
      end;
  ...

Если строка будет '123+234', сколько чисел у тебя будут занесены в стек? У тебя заносятся ЦИФРЫ! А это не нужно, надо занести именно числа... Я тебе уже говорил об этом. Кстати, зачем новую тему создал? Это же продолжение твоей предыдущей темы про "Польскую запись"...