Enviado em 25/12/2022 - 14:11h
Pessoal desde de já agradeço a todos. Sou iniciante no Lázarus embora já programo em Delphi a mais de uma década as vezes me aparecem umas aramadilhas aqui como essa de agora.
//// populando combobox empresa
with servicebasequery.qryListaEmpresa do
begin
Close;
Open;
cbbEmpresa.Items.Clear;
First;
while not EOF do
begin
cbbEmpresa.Items.AddObject(FieldByName('empresa_alias').AsString,
TintObjs.Create(FieldByName('id').AsInteger));
Next;
end;
end;
TintObjs =class
private
Fintvalue : PtrInt;
public
constructor create (aIntvalue:PtrInt);
property Value: PtrInt read FIntValue;
end;
implementation
{ TintObjs }
constructor TintObjs.create(aIntvalue: PtrInt);
begin
FIntValue := AIntValue;
end;
aEmpresa := PtrInt(cbbEmpresa.Items.Objects[cbbEmpresa.ItemIndex]);
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Clone de schema - Postgres (2)
Dualboot Fedora 40 e LinuxMint 21 (12)
Dificuldade em ler binário (6)
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (1)