[DUDA SENCILLA] DELPHI

[Psyke1]

Porque no funcionan ninguno de estos codigos?
Aviso que no tengo ni idea de Delphi
Code1:

Código (delphi) [Seleccionar] Expandir

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

Código (delphi) [Seleccionar] Expandir

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!

DoEvents¡!

[Khronos14]

A mi me funcionan los 2 códigos, en la función DD te falta un ;

Código (delphi) [Seleccionar] Expandir


function DD(s:string):string;
begin
  result:= s + s + s;
end;


Tal vez lo copiaste de algún sitio y te olvidaste poner el componente TEdit en el Form.

Saludos.

[d(-_-)b]

el codigo funciona, solo que no puede compilar porque se comieron end; antes de end.

por ejemplo

Código (delphi) [Seleccionar] Expandir

procedure TForm1.FormCreate(Sender: TObject);
begin
  //..........
end;

end.

saludos...

[Psyke1]

La duda esta ya tenia tiempo [estaba solucionada ya], agradezco la ayuda.
Tengo algunos errores simples de sintaxis, porque aun me estoy acostumbrando, que yo vengo de VB.

DoEvents!