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