FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#6
|
|||
|
|||
bueno con un for podria ser asi
procedure TForm1.Button1Click(Sender: TObject); var x:byte; cad:string; begin cad:=Edit1.Text; Edit1.Clear; for x:=0 to length(cad) do begin Edit1.Text:=Edit1.Text+uppercase(cad[x]); end; end; o tambien Edit1.Text:=uppercase(Edit1.Text);
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe) |
|
|
|