На главную Наши проекты:
Журнал   ·   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_
  
> Неизвестная ошибка(F2084: Internal Error: C6763)
spider13
Сообщ. #1 ,
    Full Member
    ***
    Профиль · PM
    Рейтинг (т): 9
    Если закоментировать

    ExpandedWrap disabled
      {      ADestSize := ADestSize * SizeOf(WideChar);}


    из этого куска теста то работает нормально, но если не коментировать то выдает ошибку

    F2084: Internal Error: C6763

    причем если умножение заменить сложение то все заработает нормально!!!

    ExpandedWrap disabled
        dtWideString:
          if ADestType in [dtAnsiString, dtMemo, dtHMemo] then
          begin
            ADestSize := ASrcSize;
            if ADestSize > ADestMaxSize then
              ADestSize := ADestMaxSize;
            if ApSrc <> nil then
              WideStr2AnsiChar;
          end
          else
          if ADestType in [dtWideMemo, dtWideHMemo] then
          begin
            ADestSize := ASrcSize;
            if ADestSize > ADestMaxSize then
              ADestSize := ADestMaxSize;
            if ApSrc <> nil then
              ApDest := ApSrc;
          end
          else
          if ADestType in [dtByteString, dtBlob, dtHBlob, dtHBFile] then
          begin
            ADestSize := ASrcSize;
      {      ADestSize := ADestSize * SizeOf(WideChar);}
            ADestSize := ADestSize + ADestSize;
            if ADestSize > ADestMaxSize then
              ADestSize := ADestMaxSize;
            if ApSrc <> nil then
              ApDest := ApSrc;
          end
          else
          if (ApSrc <> nil) and (ApDest <> nil) then
            WideStr2Dest;
    Profi Profi
    Сообщ. #2 ,

      Profi
      *****
      Профиль · PM
      Поощрения: 5 Dgm
      Рейтинг (т): 144
      А ADestSize какого типа?
      spider13
      Сообщ. #3 ,
        Full Member
        ***
        Профиль · PM
        Рейтинг (т): 9
        ADestSize - Cardinal
        Urich
        Сообщ. #4 ,

          Senior Member
          ****
          Профиль · PM
          Поощрения: 1 Dgm
          Рейтинг (т): 20
          Цитата spider13 @
          Cardinal

          Cardinal - 4294967295. При умножении поди превышает.
          medved_68
          Сообщ. #5 ,

            Master
            ******
            Профиль · PM
            Поощрения: 9 Dgm
            Рейтинг (т): 248
            Цитата Urich @
            Cardinal - 4294967295. При умножении поди превышает.

            Ошибаешься. Приведенное тобою число - DWORD. :)
            antonn
            Сообщ. #6 ,

              Master
              ******
              Профиль · PM
              Поощрения: 3 Dgm
              Рейтинг (т): 154
              dword не число, а тип, с таким же успехом там может быть и int64 :)
              spider13
              Сообщ. #7 ,
                Full Member
                ***
                Профиль · PM
                Рейтинг (т): 9
                а при чем здесь превышает или нет, ошибка компиляции возникает!

                тот же саймый модуль под Delphi 2007 замечательно компилиться
                Сообщение отредактировано: spider13 -
                Guru Rouse_
                Сообщ. #8 ,

                  Moderator
                  *******
                  Профиль · PM
                  Поощрения: 4 Dgm
                  Рейтинг (т): 320
                  Цитата spider13 @
                  а при чем здесь превышает или нет, ошибка компиляции возникает!

                  Потомучто F2084 это переполнение при приведении типов.
                  0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                  0 пользователей:


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