На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Ошибка в коде
Dialup5
Сообщ. #1 ,

    Junior
    *
    Профиль · PM
    Рейтинг (т): нет
    Прога не комплируцо :wall: Я еще не встречал таких ошибок, да и дебагер сломался :angry: , Поэтому прошу помощи.
    Я переводил с 1 языка на другой.
    1-ая зона Var Eu,ET5: integer;
    ExpandedWrap disabled
       Eu:=ET5-(ET5/62)*62;
       Ew[10]:=DB(Eu);
       Eu:=ET5/62;
       Eu:=Eu-(Eu/62)*62;
       Ew[1]:=DB(Eu);
       Eu:=ET5/62;
       Eu:=Eu/62;
       Eu:=Eu-(Eu/62)*62;
       Ew[8]:=DB(Eu);
       Eu:=ET5/62;
       Eu:=Eu/62;
       Eu:=Eu/62;
       Eu:=Eu-(Eu/62)*62;
       Ew[4]:=DB(Eu);

    2-ая зона Var Те же и EU1: array [0..255] of integer;
    ExpandedWrap disabled
       Ev:=EU1[1]+EU1[2]+EU1[3]+EU1[4]+EU1[6]+EU1[7]+EU1[8]+EU1[9]+EU1[10]+EU1[11]+EU1[12];


    Тут ошибка [Error] Unit1.pas(768): Incompatible types: 'Integer' and 'Extended'

    3-я зона var d9: integer; Da: string; DA1: string; Db: string; aJ: array [0..255] of
    ExpandedWrap disabled
      if Length(IntToStr(SL))=StrToInt(aJ[42]) then begin d9:=Random(2);
      if d9=1 then Da:=aJ[37] else Da:=aJ[33];
      if intToStr(SL):=aJ[42] then d9:=Random(2);
      if d9=1 then DA1:=aJ[16]
       else DA1:=aJ[9];
      if IntToStr(SL)=aJ[7] then begin d9:=Random(2);
      if d9=1 then DA1:=aJ[32]
      else DA1:=aJ[53];
      end;
      if IntToStr(SL)=aJ[58] then begin d9:=Random(2);
       if d9=1 then DA1:=aJ[21]
       else DA1:=aJ[49];
      end;
      if IntToStr(SL)=aJ[62] then begin d9:=Random(2);
       if d9=1 then DA1:=aJ[13]
      else DA1:=aJ[58];
      end;
      if IntToStr(SL)=aJ[14] then begin d9:=Random(2);
      if d9=1 then DA1:=aJ[5]
      else DA1:=aJ[29];
      end;

    [Error] Unit1.pas(116): Type of expression must be BOOLEAN

    Помогите плз, я незнаю что тут делать, я все перепробовал...
    --Ins--
    Сообщ. #2 ,

      Profi
      *****
      Профиль · PM
      Поощрения: 1 Dgm
      Рейтинг (т): 149
      Цитата
      if intToStr(SL):=aJ[42]


      Двоеточие убрать.
      Dialup5
      Сообщ. #3 ,

        Junior
        *
        Профиль · PM
        Рейтинг (т): нет
        СПС! Как я сам не заметил :\
        Domino
        Сообщ. #4 ,

          Master
          ******
          Профиль · PM
          Поощрения: 11 Dgm
          Рейтинг (т): 101
          Цитата Dialup5 @
          да и дебагер сломался

          Что дебажить, если
          Цитата Dialup5 @
          е комплируцо

          :blink:
          Dialup5
          Сообщ. #5 ,

            Junior
            *
            Профиль · PM
            Рейтинг (т): нет
            Дебагер показывает на другие абсолютна строчечки :\
            WildBear
            Сообщ. #6 ,
              Senior Member
              ****
              Профиль · PM
              Рейтинг (т): 47
              Цитата
              ошибка [Error] Unit1.pas(768): Incompatible types: 'Integer' and 'Extended'

              Дробное число пытаешься писать в целую пременную. Имеется в виду ,что при делении число может получиться дробным.
              Так что приводи частное к целому типу.

              Цитата
              [Error] Unit1.pas(116): Type of expression must be BOOLEAN

              ExpandedWrap disabled
                if intToStr(SL):=aJ[42] then d9:=Random(2); // здесь проверка должна быть, не присваивание !!
              Dialup5
              Сообщ. #7 ,

                Junior
                *
                Профиль · PM
                Рейтинг (т): нет
                ExpandedWrap disabled
                   d6(d7);
                   Ew[Et]:=d5;
                   bj_forLoopAIndex:=bj_forLoopAIndex+1;
                   Ew[7]:=SubStringBJ(d8(SL5),1,1);
                   Ew[2]:=SubStringBJ(d8(SL5),2,2);
                   Eu:=mod(ET5,62);// Eu:=ET5-(ET5/62)*62;                           //[Error] Unit1.pas(757): Expression expected but 'MOD' found
                   Ew[10]:=DB(Eu);
                   Eu:=ET5/62;
                   Eu:=mod(Eu,62);// Eu:=Eu-(Eu/62)*62;
                   Ew[1]:=DB(Eu);
                   Eu:=ET5/62;
                   Eu:=Eu/62;
                   Eu:=mod(Eu,62);//Eu:=Eu-(Eu/62)*62;
                   Ew[8]:=DB(Eu);
                   Eu:=ET5/62;
                   Eu:=Eu/62;
                   Eu:=Eu/62;
                   Eu:=mod(Eu,62);//Eu-(Eu/62)*62;
                   Ew[4]:=DB(Eu);
                   bj_forLoopAIndex:=1;
                   bj_forLoopAIndexEnd:=12;
                  if (Ew[bj_forLoopAIndex]=aJ[1]) then EU1[bj_forLoopAIndex]:=0.26;   //[Error] Unit1.pas(775): ';' expected but 'IF' found


                Теерь так :\
                Сообщение отредактировано: Dialup5 -
                Voice
                Сообщ. #8 ,

                  Profi
                  *****
                  Профиль · PM
                  Рейтинг (т): 15
                  ExpandedWrap disabled
                    Eu := ET5 mod 62; //mod(ET5,62);// Eu:=ET5-(ET5/62)*62;
                    // и так везде
                  0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                  0 пользователей:


                  Рейтинг@Mail.ru
                  [ Script execution time: 0,0339 ]   [ 16 queries used ]   [ Generated: 4.12.25, 14:14 GMT ]  
                  Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.