Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.01.2017, 22:06   #1
e111A
Новичок
Джуниор
 
Регистрация: 11.01.2017
Сообщений: 1
По умолчанию Ошибка is not a valid integer value

Добрый вечер всем!
Ошибка такая: is not a valid integer value

ниже код программы, проблема в том что если s_gamma использую только числа - все отлично,
если использую, например 0C 17 7F 0E 4E 37 , тогда выходит ошибка

Код:
procedure TForm8.Button2Click(Sender: TObject);
Var i,j,LenGamma:Integer;
    s_Rez,s_source,s_gamma,str:string;
    Gamma: array[1..100]  of string;
begin
 s_Rez:='';
 s_source:=Memo1.Text;
 s_gamma:=Edit1.Text;
 ///
 str:=s_gamma;
 j:=1;i:=0;
   while j<=Length(s_gamma) do
   begin
     if str[j]=' ' then inc(j)
      else
     begin
       inc(i);
       while (str[j]<>' ') and (j<=Length(s_gamma)) do
         begin
           Gamma[i]:=Gamma[i]+str[j];
           inc(j);
         end;
     end;
   end;
  LenGamma:=i;
 i:=1;
 While i<=Length(s_Source) do
 begin
   For j:=1 to LenGamma do
      s_rez:=s_rez+chr(ord(s_source[i+j-1]) xor StrToInt(Gamma[j]));
   i:=i+LenGamma;
 end;
 Memo2.Text:=s_rez;
end;
Заранее спасибо за помощь, знаю что это тупой вопрос и надо штрудировать литературу, исправлюсь, каюсь, но времени нет.
e111A вне форума Ответить с цитированием
Старый 11.01.2017, 22:38   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от e111A Посмотреть сообщение
0C 17 7F 0E 4E 37
это что, шестнадцатеричные числа, что ли?

нужно получить 12 23 127 14 и т.д.?

если в Edit1 всегда будут шестнадцатеричные значения,
то можно изменть ваш код так:
Код:
   For j:=1 to LenGamma do
      s_rez:=s_rez+chr(ord(s_source[i+j-1]) xor StrToInt('$'+Gamma[j]));

p.s. а разобрать (разпарсить) строку по пробелам можно намного проще..
например, через TStringList и свойство DelimitedText

Последний раз редактировалось Serge_Bliznykov; 11.01.2017 в 22:48.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка '[' is not a valid integer value eugenerock Общие вопросы Delphi 3 19.06.2015 19:52
ошибка:Is not valid integer value C++++ Помощь студентам 4 15.06.2014 18:52
ошибка: '' Is Not A Valid Integer Value / Delphi для начинающих tane Помощь студентам 2 07.02.2014 15:13
Ошибка " is not a valid integer value Htebazile Помощь студентам 1 19.09.2013 14:58
Ошибка '' is not valid integer value svobodys Помощь студентам 4 12.12.2011 22:49