
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]);
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
converter algoritmo C++ em C? (1)
Programa fora de escala na tela do pc (22)
Problemas com Driver NVIDIA (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)









