[duda Sencilla] Delphi

[Abaco]

HOla soy nuevo en este foro, acabo de empezar con delphi y tengo dudas MUY basicas:
Porque no funcionan ninguno de estos codigos?
Aviso que no tengo ni idea de Delphi

Code1:

procedure TForm1.FormCreate(Sender: TObject);
var
a:integer;
b:integer;
begin
* *a:=4;
* *b:=4;
* *if a=b then
* * *edit1.Text:= 'hola';
end.

Code2:

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

Gracias!

[rrf]

Hola.

A primera vista, creo que el problema son los asteríscos (*). Basta con que los quites y creo que te funcionará.

Saludos.

[[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