Найдено 70 результатов

fedan
23.07.2019 12:10:54
Форум: Разное
Тема: Delphi 10.3. Synaser. Ошибка F2613 Unit 'Libc' not found.
Ответы: 4
Просмотры: 14012

Re: Delphi 10.3. Synaser. Ошибка F2613 Unit 'Libc' not found

Подскажите как можно решить эту проблему

Самое простое, конвертировать проект в Лазарус)
m

Более сложный путь. Закомментировать

{$IFNDEF NO_LIBC}
//Libc,
//KernelIoctl,
Posix.Unistd,
Posix.Fcntl,
{$ELSE}

и разбираться с импортом. Искать нужные функции и прочее в
абракадабра intall ...
fedan
10.07.2019 13:34:53
Форум: Lazarus
Тема: [Решено] JSON + "\n"
Ответы: 8
Просмотры: 10137

Re: JSON + "\n"

fedan
10.07.2019 13:27:06
Форум: Lazarus
Тема: [Решено] JSON + "\n"
Ответы: 8
Просмотры: 10137

Re: JSON + "\n"

а что получится, если строку '123#10456' обратно в json перегнать?
fedan
10.04.2019 09:24:34
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных


В Паскале есть модификатор absolute, можно через него привязать идентификатор к любому адресу памяти или адресу переменной любого типа. Что позволяет использовать одну и ту же память переменными разного типа.


absolute может свграть как баг в
x86_64(amd64)


Например var

a: integer absolute to ...
fedan
06.04.2019 09:06:11
Форум: Потрепаться
Тема: А можно позвать на другой форум?
Ответы: 46
Просмотры: 75472

Re: А можно позвать на другой форум?

Мне по лазарю и freepascal достаточно http://wiki.freepascal.org и http://freepascal.ru, а также https://www.freepascal.org/docs.var. Ну и гугл иногда, когда в тупике.
fedan
05.04.2019 19:31:28
Форум: Потрепаться
Тема: А можно позвать на другой форум?
Ответы: 46
Просмотры: 75472

Re: А можно позвать на другой форум?

Детский сад какой-то. :mrgreen:
fedan
04.04.2019 16:37:45
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных

fedan
Остаётся только вопрос, а будет ли такое работать в паскале:
Нет.
Можно как-то так попробовать:

program Project1;

{$POINTERMATH ON}
{$MODE OBJFPC}
uses
SysUtils;

const
MPI_UNWEIGHTED = PInteger(2);

var
arr: PIntegerArray;
arrLen: UInt32;
I: Integer;
begin
arr &#58 ...
fedan
04.04.2019 14:28:35
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных

Ну, вот например
можно преобразовать к такому
в C/C++ const int sourceweights[] = const int* sourceweights

{$POINTERMATH ON}
...
// sourceweights: PInteger вместо массива
// } else if (MPI_UNWEIGHTED != sourceweights && sourceweights&#91;i&#93; < 0) {
end else if (MPI_UNWEIGHTED ...
fedan
04.04.2019 12:45:02
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных

А функции возвращают указатель или целое число?

Код: Выделить всё

if myFunc1 = UNWEIGHTED then
  ...

if Pinteger(myFunc2) = UNWEIGHTED then
  ...


Что вообще за проект, он в паблике есть?
fedan
04.04.2019 12:19:34
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных

Нет. Скорее получишь Access violation. Это адрес 0x00000002 (i386)
И как бы это константа - флаг для чего-то, указывающего что оно UNWEIGHTED :)

Изображение
fedan
04.04.2019 10:21:31
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных

Код: Выделить всё

const
   UNWEIGHTED = PInteger(2);
fedan
28.03.2019 11:09:46
Форум: Free Pascal Compiler
Тема: Аналог сишного типа данных
Ответы: 36
Просмотры: 42514

Re: Аналог сишного типа данных

Vadim писал(а):int128_t


https://www.freepascal.org/docs-html/rtl/sysutils/int128rec.html

Правда единственное применение это InterlockedCompareExchange128