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]);
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
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin