Foros Club Delphi - Problemas con string, word... de facil solucion seguro

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Problemas con string, word... de facil solucion seguro (https://www.clubdelphi.com/foros/showthread.php?t=58922)

cslbcn

06-08-2008 10:01:05

Problemas con string, word... de facil solucion seguro

Buenos dias. Aviso que soy muy noob en delphi. con etse codigo:

Código Delphi [-]var
  Form1: TForm1;
  Dia,Mes,Ano:word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(DateTimePicker.DateTime,Dia,Mes,Ano);
Edit1.name := Dia;
Edit2.name := Mes;
Edit3.name := Ano;
end;

Me sale este error:

Incompatible types: string and word

qué puede pasar? Alguna solucion?
Graciaaas

tcp_ip_es

06-08-2008 10:06:07

Código:

var

  Form1: TForm1;

  Dia,Mes,Ano:word;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

DecodeDate(DateTimePicker.DateTime,Ano,Mes,dia);

Edit1.name := inttostr(Ano);

Edit2.name := inttostr(Mes);

Edit3.name := inttostr(Dia);

end;

cslbcn

06-08-2008 10:16:23

Ha funcionado! Mil gracias. Pero cuando ejecuto el programa me sale este error:

Project xx.exe raised exception class EComponentError with message "2008": is not a valid component name. Process stopped.

Con este codigo, cuando le doy a button, la fecha del DateTimePicker la descompone en 3 casillas. Pero parece que da fallo con el campo año no?

A que puede ser debido?

tcp_ip_es

06-08-2008 10:19:49

Supongo que si lo que quieres es que te aparezca el dia, mes y año en los tres edits, la propiedad a la que se lo tienes que asignar es Text, ya que el nombre de un componente no puede ser un número, de tal manera que :

Código:

var

  Form1: TForm1;

  Dia,Mes,Ano:word;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

DecodeDate(DateTimePicker.DateTime,Ano,Mes,dia);

Edit1.Text:= inttostr(Ano);

Edit2.Text := inttostr(Mes);

Edit3.Text := inttostr(Dia);

end;

cslbcn

06-08-2008 10:25:17

Si señor!
Muchisimas gracias tcp_ip_es. Agredezco tu ayuda.

hasta luego!

La franja horaria es GMT +2. Ahora son las 22:13:21.