ewb 0 Denunciar post Postado Março 25, 2005 Olá Pessoal !!! Como fazer para: :wacko: --- Problem -----------------------------Preciso pegar de um ListView o MAIOR e MENOR salario listado e mostrar total em um EDIT :- Maior salario ( edit1 )- Menor salario ( edit2 )--- OK ------------------------------------- Média - codigo abaixo esta funcionando- Soma - taliza todos salarios, ok --- CODE ---------------------------------procedure TCalculaSalario_Frm.Bit_IncluirClick(Sender: TObject);var Item : TListItem; I, T : Integer; begin Item := ListView1.Items.Add; // Adiciona um Item Item.Caption := Edit_Nome.text; Item.SubItems.Add(ComboBox1_Sexo.Text); // 0 Item.SubItems.Add(Edit_Cargo.Text); // 1 Item.SubItems.Add(Edit_Salario.Text); // 2 sal_mais := StrToFloat(Edit_Salario.Text); // Soma salários Sal_Total := Sal_Total + StrToFloat(Item.SubItems[2]); // Média Sal_Media := (Sal_Total / ListView1.Items.Count); //---- { preciso saber MAIOR e MENOR salario } { apanhando kkkk ??? } end; Compartilhar este post Link para o post Compartilhar em outros sites
proteus 0 Denunciar post Postado Março 25, 2005 do jeito que está ai?acredito que algo como if ListView1.Items.Count = 1 then sal_maior := 0;if sal_maior < strtofloat(edt_salario.text) then sal_maior := strtofloat(edt_salario.text);if sal_menor > strtofloat(edt_salario.text) then sal_menor := strtofloat(edt_salario.text) Compartilhar este post Link para o post Compartilhar em outros sites