[Denisonin]

Имеется код

Код:

uMem.GetAppStr(edApp.Text,StrToInt( '$'+edit1.Text + edit2.Text + edit3.Text));

Но в edit2 могут быть и числа и буквы.
Если числа, то все работает хорошо, если буквы/буквы+числа, то ошибка.
Как можно исправить чтобы работало с буквами?

[Denisonin]

Еще интересным фактом будет то, что edit3 равен 'ED88' - буквы/числа, но не выдает ошибку при цифрах в edit2.

[lmikle]

HextToInt???
А еще есть набор тех же функций, но начинающийся с Try (TryStrToInt, например).

[M.A.D.M.A.N.]

Как вариант — писать перед "буквами" нуль.

[Denisonin]

Сообщение от M.A.D.M.A.N.

Как вариант — писать перед "буквами" нуль.

Или я что-то делаю не так?

Сообщение от Imikle

HextToInt???
А еще есть набор тех же функций, но начинающийся с Try (TryStrToInt, например).

Можете помочь кодом? Уже не варит голова.

[Aristarh Dark]

Странно как-то, у меня вот такой код работает на ура:

Код:

var
  s:string;
  n:Integer;
begin
  s:='0C3';
  n:=StrToInt('$'+s);
  ShowMessage(IntToStr(n));
end;

возможно у вас не тройка а буква "З".

[Denisonin]

Сообщение от Aristarh Dark

Странно как-то, у меня вот такой код работает на ура:

Код:

var
  s:string;
  n:Integer;
begin
  s:='0C3';
  n:=StrToInt('$'+s);
  ShowMessage(IntToStr(n));
end;

возможно у вас не тройка а буква "З".

Код:

var
i: integer;
...
i:= StrToInt('$' + edit1.Text + edit2.Text + edit3.Text);
Button1.Caption:= uMem.GetAppStr(edApp.Text,i);

[Aristarh Dark]

Ну вот такое еще приходит на ум: попробуй сделать вызов так SysUtils.StrToInt

[M.A.D.M.A.N.]

Код:

s := '$'+edit1.text+edit2.test+edit3.text;
i := strtoint(s);

проверь, чему равен s

[Denisonin]

Сообщение от M.A.D.M.A.N.

Код:

s := '$'+edit1.text+edit2.test+edit3.text;
i := strtoint(s);

проверь, чему равен s

Значение Edit2 выводит ошибку.

[M.A.D.M.A.N.]

Не увидел чтоли что я опечатался и вместо text написал test?

[icWasya]

Есть ещё старая ламповая функция VAL

Код:

var
  i:integer;
  s:string;
  c:integer;



  s:='$' + 'ab0' + 'qwerty';

  val(s,i,c);
  if c <> 0  then begin // значит в строке есть неправильный символ
     s := copy(s,1,c);
     val(s,i,c);
  end;

[Aristarh Dark]

Сообщение от icWasya

Есть ещё старая ламповая функция VAL

StrToInt именно ее и вызывает

[icWasya]

>Есть ещё старая ламповая функция VAL
>StrToInt именно ее и вызывает
Но важно, что делать, когда в строке есть неправильные символы.
StrToInt выдаёт Exception , TryStrToInt просто сообщает, что ошибка была , а у меня пытается преобразовать в число начало строки до первого ошибочного символа.