Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 11.01.2017, 23:06   #1
e111A
Новичок
 
Регистрация: 11.01.2017
Сообщений: 1
Репутация: 10
По умолчанию Ошибка 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, 23:38   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 22,379
Репутация: 5033
По умолчанию

Цитата:
Сообщение от 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 в 23:48.
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка '[' is not a valid integer value eugenerock Общие вопросы Delphi 3 19.06.2015 20: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




01:45.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru