FreePascal.ru

If F is a text file, or refers to standard I/O (e.g : '') then it is opened read-only, otherwise it is opened using the mode specified in filemode.
Спасибо, буду знать. Я как-то раньше с текстовыми файлами работал, и с таким поведением функции reset не сталкивался.

Добавлено спустя 2 часа 13 ...

Для начала хорошо бы указать в какой версии фрипаскаля это получалось.

Lazarus 1.4.2, FreePascal 2.6.4

Добавлено спустя 16 минут 44 секунды:
с дин.Массивами необходимо быть аккуратным. У них присутствует хитрая система подсчета ссылок и несколько запутанные правила передачи в параметрах (то ...

В рамках тестирования считывателей флеш-карточек мною была сделана процедура чтения, поскольку выяснилось что ни copy ни xcopy не принимают в качестве параметра файла-приёмника NUL , как я делал обычно в FAR'е. Процедура тривиальнейшая, ничего особенного:
procedure DoReadFile(FileName:string ...

ОЧЕВИДНО, что 2*2=4!

Я добился того, что мне требовалось получить от модального окна.
Как?
по созданию формы присваиваю переменной FirstRun значение True , а в событии созданной формы onActivate - если FirstRun , то FirstRun := False и затем DoSomething (собственно процедура импорта).

Добавлено спустя 14 минут 50 ...

Я не хочу работать в основном окне - не для того я импорт делал отдельным модулем. Я добился того, что мне требовалось получить от модального окна. Просто у меня возникли сомнения, правильно ли(оптимально ли) я это делаю. Судя по ответам, сомнения были напрасны.

Всем спасибо большое за ответы!

данные обновляются

ToolWindow? Тогда как главную форму можно на время расчётов сделать нерабочей

Проблема в том, что после .ShowModal ни счётчик прописать, ни сделать главную форму нерабочей(я это и безо всяких инструментов могу) не-по-лу-чит-ся !
А Application.ProcessMessages я и так каждый ...

А где этот счётчик прописать? Как он управление получит?
P.S. Наверное, всё-таки (iCycle mod 100) = 0 ?

Оно даже не диалоговое, скорее - информационное. И прерывать его я не даю, ибо нефиг.
По нажатию(клавиши или мышки) - не вариант, а вдруг не нажмут? Ну и таймер - излишен, зачем огород городить? Моё решение с on_activate изящнее выходит.

И не изобрёл ли я велосипед?

Суть вопроса: в программе есть достаточно длительная процедура(импорт данных из файла(ов)). Я вынес её в отдельный модуль, к нему - форма с отображением процесса(прогрессбар, лейблы с именем файла/количеством строк в нём/номером текущей(обрабатываемой) строки ...

Thanks!!!

Спасибо, помогло! А в чём дело было? Ведь и переменных никаких не объявлялось сверх тех, что были. А пример работы с окнами взят с этого сайта, http://www.freepascal.ru/article/lazarus/20050523080000.

Создал пример для объяснения проблемы. В нём тупо создаю меню для изменения размеров окна 4 label, которым присваиваются исходные и текущие значения width & height. Всё без проблем - меняются из меню размеры окна, на label отображаются актуальные значения. Когда вызываю вторую форму, размеры из меню ...

Судя по поиску, в SqlIte нет функционала StepAndReset. Таки это программная обертка над SQLite API. А ведь я Вас спрашивал об этом.
Я, конечно, некропостер. Но вот недавно дошли руки в обёртке поковыряться. И вот что там есть:
function TSQLite3Statement.Step: Integer;
begin
Result &#58 ...

Хорошо, тогда я сформулирую вопрос иначе: знаете ли Вы, что именно надо "включить ручками", чтобы StepAndReset генерировал exception о нарушении уникальности индекса при добавлении записей в базу(а не молча ничего не делал)? И как Вы считаете, должен ли этот exception генерироваться в описанной мною ...