FreePascal.ru

Тоже апну тему.
Пишу программу на нескольких разных компах. Исходники на внешнем диске. Работал на всех компах на версии Лазаря 3.6. На одном перешёл на версию 4.0. Программа собралась и работала, работал отладка. Изменил в модуле главной формы одну строку и получил ошибку "несовместимый PPU" для ...

S_Gur, если в MySQL вы используете таблицы InnoDB, то используйте компонент TSQLTransaction как обёртку для запросов. Все запросы, выполняемые в рамках одной транзакции, считаются одним действием и разночтений в запросах Insert -> Select не будет.

ДВС. Я попадал на такой баг: писал проект и у всех компонентов на форме в среде устанавливал ParentFont = TRUE. При этом правил проект на двух компах с WinXP и Win 8 32bit. Так вот при переносе исходников с одного компа на другой значения ParentFont сбрасывалось. Была версия, что это связано с ...

Вопрос из цикла "Я куда-то нажал и теперь ничего не работает"

wwswowsogon писал(а):Да, с этим кодом что-то не так. Но я, вроде бы, такого не писал в демо. Вы на что-то намекаете?

Думайте. Включите в параметрах проекта на вкладке Отладка проверку диапазона.

wwswowsogon
Посмотрел Вашу демку внимательно...
Во-первых, почему Вы удаляете 4 массива полностью, а пятый - нет?
for i := 0 to svcount - 1 do
begin

FreeAndNil(arr_svid_text[i]);
FreeAndNil(arr_svip_text[i]);
FreeAndNil(arr_svname_text[i]);
FreeAndNil(arr_svopt_text[i]);

if i = sv_index ...

wwswowsogon писал(а):...
Вот демка, поясняющая проблему.
...

У меня демка ошибок не даёт... Lazarus 2.2.4 Win XP 32bit.
Вечером проверю на Win 10 64bit.

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

Не совсем понял, в чём заключается "проблема". Накидал примерный проект. Проверьте, оно?
На форме кнопка "Создать кнопку" создаёт новые кнопки и присваивает им OnClick процедуру, которая их удаляет.
Созданные в IDE кнопки Button1? Button2 и Button3 по нажатию тоже удаляются.
Всё работает без ошибок ...

В Lazarus описание проекта находится в двух файлах *.lpr и *.lpi. В первом перечислены модули (по Unit ...), а во втором указаны конкретные файлы, содержащие Unit. Следовательно 'in' не нужен. Открываете в проекте файл с модулем 'a', затем выбираете пункт меню "Проект" - "Добавить файл редактора в ...

Mavlyudov писал(а):Сквозняк
Можно пример того, как править байты?

У TBitmap есть свойство RawImage, у которого есть свойство Data - указатель на начало массива байт (TBitmap.RawImage.Data)

sunjob писал(а):первым делом именно так и пробовал
первый раз вызывается и закрывается 2я форма нормально, следующий раз получаем ошибку (с набегу не раскурил)

Модальную форму нужно не прятать Hide, а закрывать Close. А вот первую форму перед вызовом Form2.ShowModal можно спрятать.

zub писал(а):возможно гдето есть

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

uses ...Heaptrc, ...;

если нет, то не те бинеарники запускаешь

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

Lazarus 2.0.10 FPC 3.2.0 stable.
Создаю проект и в параметрах проекта создаю предлагаемые режимы сборки Debug и Release. В режиме Debug установлена галочка на контроль утечек памяти с помощью Heaptrc, а в режиме Release - нет. При этом, после окончания работы программы, окно отчёта Heaptrc ...

Я, кажется, разобрался с Вашей проблемой, т.к. попал в аналогичную ситуацию. Какие-то картинки переводятся в текстуру нормально, а какие-то - со смещением.
norm.PNG crash.PNG
Как оказалось, у некоторых картинок реальный размер данных превышает Высоту * Ширину * Число байт. Причем это превышение ...