[duda Sencilla] Delphi

[[Caral]]

Hola
Lo que puedo ayudar:
Codigo 1:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
a, b :integer;
begin
a:= 4;
b:= 4;
if a = b then
edit1.Text:= 'hola';
end.

Codigo 2

Código Delphi [-]
Code2:

function DD(s:string):string;
begin
s:= 'h';
result:= s + s + s;
end;
//
procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
begin
a:='hhh';
if a = DD then
edit1.Text:= 'hola';
end.

Creo que por ahi va el asunto:
Saludos

[robacio_ivan]

Yo tambien soy nuevo en esto, pero basicamente por lo que vi en el código que dejaste tendrias que sacar los asterisco (*) y con eso bastaria.

[Abaco]

Gracias, lo de los asteriscos era que se me pegaron de alguna manera al copiar codigo ...
Muchas gracias!

[Abaco]

Otra dudilla rapida aprobechando:
Que hago mal aqui??

Código Delphi [-]
function IsPerfectNumber(lNumber:Integer):Boolean;
var
  i : Integer;
  x : Integer;
begin
  if lnumber > 0 then
    begin
      for x := 1 to lnumber do
        begin
          if (lnumber mod x) = 0 then
             i := i + x;
        end;
      if i = lnumber then
       IsPerfectNumber := true;
    end
end;

/////////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
if IsPerfectNumber(6) = true then
edit1.Text:= 'hola';
end.

[Abaco]

Sinceramente no veo el error, me parece todo logico...

[*Caro*]

Hola Abaco, debes mostrarnos el error que te sale para poder ayudarte mejor, por lo que veo, cambia el punto por punto y coma del end del FormCreate solo el end de la unidad lleva punto.

Código Delphi [-]
................................................................
procedure TForm1.FormCreate(Sender: TObject);
begin
 if IsPerfectNumber(6) = true then
 edit1.Text:= 'hola';
end;

Saluditos

[Abaco]

Hola caro, lo primero disculparme por los errores, quizas son muy tontos...
Mira me sigue dando error...
No se que se me escapa, estos son los errores que me saltan :

[Warning] Unit1.pas(41): Return value of function 'IsPerfectNumber' might be undefined
[Error] Unit1.pas(51): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Muchisimas gracias de verdad...

[Abaco]

Es suficiente informacion para resolverme la duda?