Перейти к содержанию
Fire Monkey от А до Я

Slym

Пользователи
  • Постов

    165
  • Зарегистрирован

  • Посещение

  • Победитель дней

    34

Slym стал победителем дня 21 февраля

Slym имел наиболее популярный контент!

1 Подписчик

Посетители профиля

14 619 просмотров профиля
  1. не проверял... type TSpinBoxAccess=class(TSpinBox); procedure TForm1.FormCreate(Sender: TObject); begin TSpinBoxAccess(SpinBox1).Model.InputSupport:=false; end;
  2. AValues[0] - нулевого элемента может и не быть...
  3. GPT-4 write in topic "Тема парсинья человеков": Распарсить всех кожаных ублюдков!
  4. type TForm2 = class(TForm1) у тебя форма 2 наследуется от формы 1... и все что есть на 1 будет и на 2... type TForm2 = class(TForm) - наследование от базового класса
  5. константы без кавычек ключ в uses FireDAC.Stan.Consts
  6. заметь - ругается на сетевое подключение... либо порт либо 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
  7. 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;
  8. 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;
  9. В лоб TList<Rec>, но говоришь большой список? память не резиновая - может надо класть на диск например в БД, и работать с Dataset
  10. CustomEditor не говорит? только едитор... один (1). если на много строк то что-то другое надо кастом дроу....
  11. 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;
  12. 0. нафега лишние преобразования image? 1. Не жирно битмапы в базе? пользуй png/jpeg или в формате п.0 2. streamы надо иногда перематывать... position=0
  13. Не используй много форм: одна форма - много фреймов
×
×
  • Создать...