FreePascal.ru

svk12

Проблем не обнаружено :
Double Commander
Version: 1.2.0
Revision: 133
Commit: 946341b39
Build: 2026/01/25
Lazarus: 4.4.0.0
Free Pascal: 3.2.3
Platform: x86_64-Linux-qt6
System: ALT Workstation K 11.2 (Nemorosa)
Desktop Environment: KDE (wayland)
Widgetset library: Qt 6.9.3

svk12

Использовал в одном проекте года 4 назад. А откуда брал - уже не помню.

svk12

https://github.com/taazz/EvsSimpleGraph

svk12

AlexEr81 писал(а):Открыл richmemopackage.lpk

Этот пакет не для установки, его нужно просто скомпилировать. А потом установить /ide/richmemo_design.lpk.

svk12

{$IFDEF WINDOWS}
SimpleIPCServer1.StartServer(False);
{$ELSE}
SimpleIPCServer1.StartServer;
{$ENDIF}

Вот такое приходилось использовать при сборке под Win32 (64 - не пробовал). Не хотел TSimpleIPCServer работать в многопоточном режиме.
Ну и ещё:
{$IFDEF WINDOWS}
LHelpConnector1.LHelpPath ...

svk12

Попробуйте TStringList.LoadFromFile.

svk12

Кажется, я понял что вызвало недоумение ТС. В Си цикл for управляется условием продолжения (входа). В Паскале - условием завершения (выхода). Что-то вроде:

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

i:=0;
repeat
....
i:=i+1;
until i=8;

Подобная логика отсутствует в Си, а потому непривычна для ТС.

svk12

ZWolol писал(а):Вопрос стоял в том: почему результат i нельзя использовать.

Условие продолжения цикла for проверяется до выполнения тела цикла,
поэтому на последнем шаге переменная цикла достигнет предельного значения, случился ли там break или нет.

svk12

Вечная память.

svk12

Неужели что-то подобное обязательно надо вытворять в Linux регулярно? И все таким занимаются?
Ну лично я разрабатываю кроссплатформные приложения на FPC/Lazarus. Работаю на Линуксе(он мне удобней), копирую на Винду и там собираю той же версией FPC/Lazarus. Явные вызовы какого-либо API обычно не ...

svk12

Теперь без ошибок (3.2.2 из репы Alt P10).

svk12

Собирается после правки в таком виде:

const
XMLFieldtypenames : Array [TFieldType] of String[15] =
(
'Unknown', //ftUnknown
'string', //ftString,
'i2', //ftSmallint,
'i4', //ftInteger,
'i4', //ftWord,
'boolean', //ftBoolean,
'r8', //ftFloat,
'r8', //ftCurrency,
'fixed', //ftBCD,
'date ...

svk12

Или так:

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

  uses sysutils,crt;

begin
  ClrScr;
  write('GetEnvironmentVariable("HOSTNAME") = ');
  writeln(GetEnvironmentVariable('HOSTNAME'));
end.

svk12

RTFM! По-русски звучит мягче - учите матчасть, в данном случае - FPC.
https://www.freepascal.org/docs-html/rt ... iable.html

svk12

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

procedure TForm1.LabelClick(Sender :TObject);
begin

  label_index := Self.Tag;

end;

Self - объект, которому принадлежит метод, в данном случае - экземпляр класса TForm1.
Объект, вызвавший обработчик, передаётся через параметр Sender.

FreePascal.ru

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

Re: Баги DC

Re: МнемоСхемы(структурные диаграммы ) в Лазарус

Re: МнемоСхемы(структурные диаграммы ) в Лазарус

Re: Компонент Richmemo

Re: перенос/портирование Linux to Windows (общие рекомендаци

Re: [Решено] Ошибка "File not open" при чтении файла

Re: Вопрос про цикл for

Re: Вопрос про цикл for

Re: Умер Никлаус Вирт

Re: Как искать API в Linux

Re: Где брать исходники RxLib?

Re: Где брать исходники RxLib?

Re: Как искать API в Linux

Re: Как искать API в Linux

Re: Передача параметров через указатель на функцию