Slym

AValues[0] - нулевого элемента может и не быть...

GPT-4 write in topic "Тема парсинья человеков": Распарсить всех кожаных ублюдков!

type TForm2 = class(TForm1) у тебя форма 2 наследуется от формы 1... и все что есть на 1 будет и на 2... type TForm2 = class(TForm) - наследование от базового класса

константы без кавычек ключ в uses FireDAC.Stan.Consts

заметь - ругается на сетевое подключение... либо порт либо ip неправильно указаны... мой uses FireDAC.Comp.Client, FireDAC.Comp.DataSet, FireDAC.Stan.Def, FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.Stan.Consts, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Phys, FireDAC.Phys.Intf, FireDAC.Phys.FB, FireDAC.Phys.FBDef, FireDAC.Phys.IBBase; Params.Values['S_FD_ConnParam_IB_Protocol']:='TCPIP'; Params.Values['S_FD_ConnParam_Common_Server']:='*********'; Params.Values['S_FD_ConnParam_Common_Port']:='***'; константы без кавычек ключ в uses FireDAC.Stan.Consts

const DriverName='FB'; ... FConnection.DriverName:=DriverName; with FConnection do begin Params.Database:= 'Database'; Params.UserName := 'UserName'; Params.Password := 'Password'; Params.Values[S_FD_ConnParam_IB_Protocol]:='TCPIP'; Params.Values[S_FD_ConnParam_Common_Server]:=Server; Params.Values[S_FD_ConnParam_Common_Port]:=Port; Params.Values[S_FD_ConnParam_IB_SQLDialect]:='3'; Params.Values[S_FD_ConnParam_IB_RoleName]:=Role; Params.Values[S_FD_ConnParam_Common_CharacterSet]:=CharacterSet; end; FConnection.Connected:=true;

const DriverName='FB'; var DriverLink:TFDPhysDriverLink; begin FDPhysManager().Open; DriverLink:=FDPhysManagerObj.FindDriverLink(DriverName); if not assigned(DriverLink) then DriverLink:=TFDPhysFBDriverLink.Create(nil); if DriverLink.DriverState<TFDPhysDriverState.drsLoaded then begin {$IFDEF MSWINDOWS} DriverLink.VendorHome:= ''; DriverLink.VendorLib:= ExtractFilePath(ParamStr(0))+'fbclient.dll'; {$ENDIF} {$IF DEFINED(iOS) or DEFINED(ANDROID)} DriverLink.VendorHome:= ''; DriverLink.VendorLib:= IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) + 'libfbclient.so.4.0.0'; {$ENDIF} if FileExists(DriverLink.VendorLib) then DriverLink.DriverIntf.Load; end;

В лоб TList<Rec>, но говоришь большой список? память не резиновая - может надо класть на диск например в БД, и работать с Dataset

uses Winapi.Windows;

https://delphisources.ru/pages/faq/base/is_key_down.html

CustomEditor не говорит? только едитор... один (1). если на много строк то что-то другое надо кастом дроу....

type TSpinBoxEx=class(TSpinBox) protected procedure SetData(const Value: TValue); override; end; { TSpinBoxEx } procedure TSpinBoxEx.SetData(const Value: TValue); begin if Value.IsType<string> then Self.Value := StrToFloatDef(Value.AsString,0) else inherited SetData(Value); end; procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); begin if Column.Index=1 then Control:=TSpinBoxEx.Create(self); end;

0. нафега лишние преобразования image? 1. Не жирно битмапы в базе? пользуй png/jpeg или в формате п.0 2. streamы надо иногда перематывать... position=0

Не используй много форм: одна форма - много фреймов

uses pngimage;

type TOpenForm=class(TForm) end; TOpenForm(FForm).ReleaseForm; Ты так никогда не делал? До protectedов регулярно так делаю, TOpenForm становится френдли объектом и разрешает protected

не Release а ReleaseForm

не надо глобальные переменные... делай локальные var FFrom := TFrom.Create(nil);

переменная FForm -не глобальная? тогда FForm .ReleaseForm, но оно тоже через TThread.ForceQueue работает

очищай Thread.ForceQueue(nil, procedure begin FFrom.Free; end);

вангую в что frmEditor - переменная негде не присвоенная... нужно либо при создании TfrmNewArticleList передавать ссылку на текущий frmEditor, или по Parentам искать его вниз EditorWorkFrame->Parent = EditorFrameLayout; EditorWorkFrame->frmEditor = this; EditorWorkFrame->Align = TAlignLayout::Client;

Наоборот: сначала ShowModal, в колбеке ForceQueue Free FFrom := TFrom.Create(nil); FFrom.ShowModal(procedure(Res: TModalResult) begin TThread.ForceQueue(nil, procedure begin FreeForm(FFrom); end); end);

Включай logcat и смотри логи... я тоже портировался недавно, споткнулся о Failed to register native method com.embarcadero.rtl.ProxyInterface.dispatchToNative2(Ljava/lang/String;Ljava/lang/String;[Ljava/lang/Object;J)Ljava/lang/Object; in base.apk Вылечил пересозданием проекта: создаем чистый проект с тем же названием, в рабочем подменяем все кроме dpr, заново настраиваем deploy и тп.

К счетчику Гейгера...? Что за девайс? Nokia ww3 edition?

multisoft.zip Проект jar файла, aidl+ exceptioncallback