FreePascal.ru

Создал бат-файл с удалением нужных файлов и добавил файл в "выполнить перед компиляции". Вроде работает, файлы с багом (*.o и *.ppu файлы) удаляются.

Как сделать так, чтобы перед любой компиляцией удалялся один конкретный откомпилированный модуль, тем самым вызвав принудительную его компиляцию? Или может есть другой способ вызвать принудительную перекомпиляцию конкретного модуля.

PS этот модуль вызывает внутреннюю ошибку компилятора, и если ...

Потому что строки находятся в гигабайтном текстовом файле, а потомок TStrings хранит только позиции и длины строк, и загружает строку только при вызове метода Get.

Есть готовый компонент типа виртуальный Memo? Т.е. многостраничный редактор (или на худой конец показывательщик), который не загружает в себя все строки, а только запрашивает (желательно у потомка TStrings) нужные строки для показа.

функция https://lazarus-ccr.sourceforge.io/docs ... isnan.html есть. Спасибо, то что надо.

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

В консольной программе этот код вылетает с ошибкой Это так и должно быть или это баг?

Lazarus 3.8 (rev lazarus_3_8) FPC 3.2.2 x86_64-win64-win32/win64

Не помогло. Но уже не нужно, я перешёл тупо на WinAPI. Т.е. заюзал GetKeyboardState.

Lucifer писал(а):P.S. Ты б хоть ошибку привел, что у тебя там.

R<>0

Lucifer писал(а):Lazarus 3.4 x64, WinSrv 2012R2. Полет нормальный.

Спасибо.
Скиньте ваш файл (DirectInput), пожалуйста.

Запускаю вот такой минимальный код в Win7 64bit:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, DirectInput;

type

{ TForm1 }

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
DI8: IDirectInput8;
DID ...

Вот программа:
program project1;

uses
Math;

var
I: LongWord;

begin
I:= 1;
I:= I shr 31;
WriteLn(I);

I:= 1;
I:= I shr 32;
WriteLn(I);

ReadLn;
end.
Она у меня выдаёт результат:
0
1
Т.е. shr с параметром до 32 работает с отсечением, с 32 и более циклически. Это так и должно ...

Shleps писал(а):И граждане капиталисты, находясь в депрессии по поводу неминуемого разорения, с радостью взяли из рук тов. Сталина деньги

Граждане капиталисты брали золото, алмазы и пшеницу, деньги они не брали.

Алелуя! Оказалось, что Builder.BildInit(ComboBox1.ItemIndex) тоже работает медленно. Из-за этого ошибочно создавалось впечатление, что TMemo не обновляется. Поменял логику выводя строк. Теперь достаточно одного Application.ProcessMessages для обновления.
Вопрос решён.

Не думаю, что основной код прояснит ситуацию. Но вот он
procedure TForm1&#46;Button6Click(Sender&#58; TObject);
var
AK&#58; TArrayStr;
K&#58; TKernelCL;
I&#58; Integer;
begin
Memo4&#46;Clear;
Builder&#46;BildInit(ComboBox1&#46;ItemIndex);
Memo4&#46;Lines&#46;Add('Compile ''%s''&#46;&#46;&#46 ...

Вывожу последовательно строки в TMemo и пытаюсь их обновить. Но пока процедура не закончится, строки не появляются. Использую вот такой код
Memo4&#46;Width&#58;= Memo4&#46;Width+1;
Memo4&#46;Width&#58;= Memo4&#46;Width-1;
Memo4&#46;Refresh;
Memo4&#46;Repaint;
Memo4&#46;Refresh;
Memo4&#46 ...

pupsik писал(а):версия лазаря и фпс какая?

1.6.4 и 3.0.2.
Но у меня этот глюк еще на две версии Лазаря ранее появился.