Já foi discutido isto uma vez e tanto precisei q
tive de desenvolver uma funcao para nao ter mais
problemas até a postei aki...
ai vai novamente caso precise:
funciona igual a strcomp mas com variaveis float
em vez de string
Function Compara(Valor1,Valor2 :Variant)
:Integer;
Var
Pos1, Pos2: Integer;
Aux1, Aux2: Variant;
Begin
Valor1 := FloatToStr(Valor1);
Valor2 := FloatToStr(Valor2);
Pos1 := Pos('.',Valor1);
If Pos1 > 0 Then Aux1 :=
StrToInt(Copy(Valor1,1,Pos1-1))
Else Aux1 := StrToInt(Valor1);
Pos2 := Pos('.',Valor2);
If Pos2 > 0 Then Aux2 :=
StrToInt(Copy(Valor2,1,Pos2-1))
Else Aux2 := StrToInt(Valor2);
If Aux1 - Aux2 < 0 Then Result := -1
Else If Aux1 - Aux2 > 0 Then Result := 1
Else
Begin
If Pos1 <> 0 Then Aux1 :=
StrToInt(Copy(Valor1,Pos1+1,2))
Else Aux1 := 0;
If Pos2 <> 0 Then Aux2 :=
StrToInt(Copy(Valor2,Pos2+1,2))
Else Aux2 := 0;
If Length(IntToStr(Aux1)) = 1
Then Aux1 := Aux1 * 10;
If Length(IntToStr(Aux2)) = 1
Then Aux2 := Aux2 * 10;
If Aux1 - Aux2 = 0 Then Result :=
0
Else If Aux1 - Aux2 < 0 Then
Result := -1
Else If Aux1 - Aux2 > 0 Then
Result := 1
Else Result := 0;
End;
End;
Leandro...
[> Mutuka <]
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
