[duda Sencilla] Delphi

[Abaco]

Graciaaaaas, ahora no da error, peeeeeeero...
Deberia devolver true con 6...
Mira asi hago en vb:

Private Sub Form_Load()
    MsgBox IsPerfectNumber(6)
End Sub

Public Function IsPerfectNumber(ByVal lNumber As Long) As Boolean
Dim x                       As Long
Dim i                       As Long
    For x = 1 To lNumber - 1
        If (lNumber Mod x = 0) Then i = i + x
    Next
    If i = lNumber Then IsPerfectNumber = True
End Function

Me podrias ayudar un pco mas?
Muchas gracias

[[egostar]]

Empezado por Abaco

Graciaaaaas, ahora no da error, peeeeeeero...
Deberia devolver true con 6...
Mira asi hago en vb:

Private Sub Form_Load()
    MsgBox IsPerfectNumber(6)
End Sub

Public Function IsPerfectNumber(ByVal lNumber As Long) As Boolean
Dim x                       As Long
Dim i                       As Long
    For x = 1 To lNumber - 1
        If (lNumber Mod x = 0) Then i = i + x
    Next
    If i = lNumber Then IsPerfectNumber = True
End Function

Me podrias ayudar un pco mas?
Muchas gracias

Hola

Código Delphi [-]

function IsPerfectNumber(lNumber:Integer):Boolean;
var
  i : Integer;
  x : Integer;
begin
//Inicializamos I en 0
  I := 0;
//Inicializamos el resultado de la función para evitar el aviso de no definida
  Result := false;
  if lnumber > 0 then
    begin
      for x := 1 to lnumber - 1 do //Te faltó restarle 1 a lnumber
        begin
          if (lnumber mod x) = 0 then
             i := i + x;
        end;
      if i = lnumber then
       Result := true; //Cambia el nombre de la función por la palabra reservada Result
    end;
end;

saludos

[[Caral]]

Hola
Es una funcion sencilla de entender y mira que soy malo con las funciones.
Saludos
PD: Que feo es Visual Basico.

[ecfisa]

Hola de nuevo.

Mi vida no tendría sentido sín números perfectos, así que teclee un poco:

Código Delphi [-]
function NumeroPerfecto( Num: Integer): Boolean;
var
 con,ac: Integer;
begin
  Result:= False;
  con:= 1;
  ac:= 0;
  while con < Num do
  begin
    if Num mod con = 0 then
      ac:= ac + con;
    Inc(con)
  end;
  if ac = Num then
    Result:= True;
end;

Saludos.

[Abaco]

Muchas gracias a todos, la duda esta resuelta!!!
Voy a pasarme mucho por aqui...