FreePascal.ru

{$H+} делает все String AnsiString.

runewalsh, попробуй разместить экземпляр класса на стеке функции/процедуры.

На заметку хацкерам:
object позволяет определить собственную (эффективную) модель управления памятью, например миллион объектов можно выделить 1-ой аллокацией как непрерывный блок памяти, в случае с class понадобится соответственно 1КК вызовов конструктора + 1КК аллокаций и все это будет иметь ...

Вычленить из аналов C структуру данных из под map, написать С функцию которая возвращает указатель на эти данные. передать в паскаль функцию указатель. Но подобные метод может быть совершенно не эффективен ввиду того что C++ генерирует в реализации методов всякую дрянь ака инкапсуляция, что крайне ...

Снег Север 7zip есть модуль/класс для нативной работы?

Уличная магия:

Астанавитесь!

const
s: single = 0.1;
d: double = 0.1;
begin
Writeln(s = d);
end.

А разгадка проста: компилятор производит операции с плавающей точкой в Extended и результат обрезает что б впихнуть в целевой тип, по этому бинарное представление разнокалиберных real типов ...

Числа с плавающей точкой - игрушка дьявола, ежжи.
Количество значащих цифр для real типов ограничено, за пределами этого ограничения находится мусор. Для double это – 15 цифр приблизительно, дальше уже идет что угодно, как эта четверка например. В бытовых ситуациях 15 цифр – хватает с головой. Для ...

Из темы от скалогрыз :
http://forum.lazarus.freepascal.org/index.php/topic,34614.msg227667.html#msg227667
Таблица с результатом тестов:

inline macro asm: Time: 10334 Sum: 46130000
inline GotoAddr call: Time: 8901 Sum: 46130000
case: Time: 11211 Sum: 46130000
case ...

Я сломал его полностью:

{$mode objfpc}{$H+}
{$inline on}
{$ASMMODE intel}
{$GoTo ON}

procedure Proc;
label l1,l2;
var k: byte;
type
TOffs = array[0..1]of pointer;
const
O: TOffs = (@l1, @l2);
begin
k:= 0;
asm
add [O], 4;
jmp O;
end;
l1: inc(k, 2 ...

Еееее, сломал:

{$mode objfpc}{$H+}
{$inline on}
{$ASMMODE intel}
{$GoTo ON}

procedure Proc;
label l1,l2;
var k: byte;
const
p1: pointer = @l1;
p2: pointer = @l2;
begin
Writeln(DWord(p1), ' ', DWord(p2)); readln;
k:= 0;
asm
jmp dword p2;
end;
l1: inc(k, 2);
l2&#58 ...

runewalsh Именно, пока доползет до последнего case можно кофе сварить. То ли дело добыть элемент массива и сделать один прыжек.
Так вот, я попытался заполнить массив смещений:

{$mode objfpc}{$H+}
{$inline on}
{$GoTo ON}

type
TOffs = LongWord;
{Jump, P1, P2, End}

var
O: TOffs;
label
Beg ...

Ассемблерный код который я выложил сгенерирован под 4 уровнем оптимизации. Компилятор не читает мысли.

Исходная задача

procedure P1(k: byte);
label L1,L2,L3;
procedure S1;inline;
begin ... end;
procedure S2;inline;
begin ... end;
procedure S3;inline;
begin ... end;
begin
case k of
1: GoTo L1; 2: GoTo L2; 3: GoTo L3;
end;
L1: S1;
L2 ...