Foro de elhacker.net

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!

DoEvents¡! :P

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

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.

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

por ejemplo

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

saludos...

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. :rolleyes:

DoEvents! :P