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]);
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Ajuda Pra Melhoria do NFTABLES. (7)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (4)