Перевод из Delpli try, finally и Clipboard

Aleator · Регистрация: 04.05.2011

Студворк — интернет-сервис помощи студентам

Прошу помощи для проверки (и возможно исправления) переведённой мной функции из Delphe:
Исходный код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure THexDump.PasteFromClipboard;
var
 MyHandle: THandle;
 TextPtr: PChar;
 MyString:string;
 Addr,i:integer;
begin
 Changed := True;
 Addr := CursorAddress shr 1;
 if WordMode then Addr := Addr and $1FFFFE;
 try
  MyHandle := Clipboard.GetAsHandle(CF_TEXT);
  TextPtr := GlobalLock(MyHandle);
  i := 0;
  while True do
  begin
   if TextPtr[i] = #0 then break;
   if TextPtr[i] <= ' ' then
   begin
    i := i + 1;
    Continue;
   end
   else
   begin
    MyString := '$'+TextPtr[i];
    i := i + 1;
    if((TextPtr[i] = #0)or(TextPtr[i] <= ' ')) then
    begin
     break;
    end;
    MyString := MyString + TextPtr[i];
    Buffer[Addr] := StrToInt(MyString);
      Mismatch[Addr] := False;
    addr := addr + 1;
    if addr > hdEndAdr then break;
    i := i + 1;
   end;
  end;
  GlobalUnlock(MyHandle);
 finally
 end;
 OnChange;
 Paint;
end;

Мой перевод:

C++ (Qt)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
void __fastcall THexDump::PasteFromClipboard() {
   THandle MyHandle;
   PChar TextPtr;
   AnsiString MyString;
   int Addr,i;
 
   Changed = true;
   Addr = CursorAddress >> 1;
   if (WordMode)
      Addr = Addr & 0x1FFFFE;
 
   Clipboard()->Open();
    try {
       MyHandle = Clipboard()->GetAsHandle(CF_TEXT);
      TextPtr = (PChar)GlobalLock((HGLOBAL)MyHandle);
      //  MyHandle = Clipboard->GetAsHandle(CF_TEXT);
       // TextPtr = GlobalLock(MyHandle);
 
       i = 0;
       while (true) {
           if (TextPtr[i] == '\0')          // #0
               break;
           if (TextPtr[i] <= ' ') {
               i = i + 1;
               continue;
           }
           else {
               MyString = "$" + TextPtr[i];
               i = i + 1;
               if ((TextPtr[i] == '\0')|(TextPtr[i] <= ' ')) {
                   break;
               }
               MyString = MyString + TextPtr[i];
               Buffer[Addr] = StrToInt(MyString);
               Mismatch[Addr] = false;
               Addr = Addr + 1;
               if (Addr > hdEndAdr)
                   break;
               i = i + 1;
           }
      }
      GlobalUnlock((HGLOBAL)MyHandle);
       // GlobalUnlock(MyHandle);
       // _finally
    
    }
    catch (...) {
      Clipboard()->Close();
      throw;
   }
   Clipboard()->Close();
 
    OnChange();
    Paint();
}

@volvo · 30.09.2015, 20:33

Ни про открытие ни про закрытие ClipBoard-а в коде на Дельфи ничего нет. Дословно - так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
void __fastcall THexDump::PasteFromClipboard()
{
    THandle MyHandle;
    PChar TextPtr;
    AnsiString MyString;
    int Addr, i;
 
    Changed = true;
    Addr = CursorAddress >> 1;
    if (WordMode)
        Addr = Addr & 0x1FFFFE;
 
    try
    {
        MyHandle = Clipboard()->GetAsHandle(CF_TEXT);
        TextPtr = (PChar)GlobalLock((HGLOBAL)MyHandle);
 
        i = 0;
        while (true)
        {
            if (TextPtr[i] == '\0')
                break;
            if (TextPtr[i] <= ' ')
            {
                i = i + 1;
                continue;
            }
            else
            {
                MyString = "$" + TextPtr[i];
                i = i + 1;
                if ((TextPtr[i] == '\0') || (TextPtr[i] <= ' ')) // Внимательнее!!! Это логическая операция
                {
                    break;
                }
                MyString = MyString + TextPtr[i];
                Buffer[Addr] = StrToInt(MyString);
                Mismatch[Addr] = false;
                Addr = Addr + 1;
                if (Addr > hdEndAdr)
                    break;
                i = i + 1;
            }
        }
        GlobalUnlock((HGLOBAL)MyHandle);
    }
    __finally
    {
 
    }
    OnChange();
    Paint();
}

@Avazart · 02.10.2015, 15:20

А понту в пустой секции __finally ? это не верно, по крайней мере не дословно.

@volvo · 02.10.2015, 15:37

Это то, что было в Дельфийской версии. Если компонент работает - не вижу смысла ничего менять.

@Avazart · 02.10.2015, 15:45

В дельфийской версии finally не пустой.

Delphi
1
2
3
4
5
finally
 end;
 OnChange;
 Paint;
end;

@D1973 · 02.10.2015, 18:39

Он там как раз пустой

Delphi
1
2
3
4
try
 //там много чего
finally
end;

А вот это

Delphi
1
2
OnChange;
Paint;

Это уже вне блока try... finally

@Avazart · 02.10.2015, 19:41

А да точно, ну тогда изначальный код беспонтовый.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	02.10.2015, 15:20
	А понту в пустой секции __finally ? это не верно, по крайней мере не дословно. 0

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	02.10.2015, 15:37
	Это то, что было в Дельфийской версии. Если компонент работает - не вижу смысла ничего менять. 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	02.10.2015, 19:41
	А да точно, ну тогда изначальный код беспонтовый. 0

Перевод из Delpli try, finally и Clipboard

Решение