Slym

не проверял... type TSpinBoxAccess=class(TSpinBox); procedure TForm1.FormCreate(Sender: TObject); begin TSpinBoxAccess(SpinBox1).Model.InputSupport:=false; end;

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

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