Delphi PDF

Ofimega acadmies Manual Ejercicios - Programacin Borland Delphi Imp - ago-08 Pg 1
Introduccin a la Programacin En Windows. Borland DELPHI 7-2005

Delphi Versiones 7-2005 CodeGear 2007 (32 bits y plataforma .NET)
Delphi es un lenguaje de programacin de la casa Borland del tipo RAD (Diseo Rpido de Aplicaciones) para
Windows. La diferencia principal con respecto a Visual Basic (de la casa Microsoft) es que posee un control de
bases de datos y consultas en formato Xbase, compatible con Dbase 4 -5, Clipper o Paradox y su lenguaje est
basado en Pascal.
Conceptos bsicos.
PROYECTO. Un proyecto es un conjunto de mdulos de formulario, de cdigos y de archivos que
componen una aplicacin. La ventana View Project Manager muestra todos los archivos que
componen una aplicacin.
FORMULARIO. Un formulario incluye los controles y el cdigo asociado a dicho formulario.
COMPONENTES O CONTROLES. Los componentes son herramientas como cuadros, botones y
etiquetas que se disponen en un formulario para permitir la entrada de datos o para presentar
resultados. Tambin hacen ms atractivos los formularios. Para dibujar controles en un formulario
usar la Paleta de componentes.
PROPIEDADES. Usando la ventana de Object inspector (F11) se definen las propiedades de
formularios y controles. Las propiedades especifican los valores iniciales de las caractersticas,
tales como tamao, nombre y posicin.
EVENTOS: Es la respuesta a las acciones del usuario o del sistema. Para ello hay que escribir un
cdigo en lenguaje Pascal.

Concepto de cdigo:
Es el texto escrito en un programa. El programa se divide en distintos apartados o subrutinas
generalmente como respuesta a un evento y se divide en procedimientos (subrutinas) o funciones.
Procedimientos: Trozos de cdigo como respuesta a un evento o accin y no devuelven ningn valor.
Funciones: Son procedimientos que adems devuelven un valor al procedimiento desde donde se le llam
Diagrama de Flujo: Representa la esquematizacin grfica de un algoritmo, el cual muestra grficamente los
pasos o procesos a seguir para estructurar bien un programa.

Reglas de nomenclatura al declarar procedimientos o variables:
Deben comenzar por una letra
No pueden contener puntos
No puedes superar los 255 caracteres
Nombres de formularios no sobrepasar 40 caracteres
No pueden tener el mismo nombre que una palabra clave
Comentarios en el cdigo se inician con: // o entre { }

Eventos o acciones (sobre un componente):
Lista de eventos (Acciones sobre los controles)

Evento Accin
Click Al hacer clic con el mouse (o el teclado)
DragDrop Al soltar un control arrastrado con el mouse
DragOver Al Arrastrar un control con el mouse.
KeyDown Presionar una tecla mientras el objeto tiene el foco.
KeyPress Presionar una tecla y devolver su valor ASCII.
KeyUp Liberar una tecla mientras el objeto tiene el foco.
MouseDown Presionar el botn del mouse sobre el objeto.
MouseMove Mover el puntero del mouse por encima del objeto
MouseUp Liberar el botn del mouse en el objeto.
Propiedades bsicas de los objetos:
Alignment - Alineacin
BevelInner - borde interior
BorderStyle - estilo del borde
Caption - rtulo
TabStop - Salto tabulacin
Color, Cursor - Color, puntero
Enabled - Activo
Font - Tipo letra
Height - Altura del objeto
Hint - Etiqueta ayuda
Left - Posicin izquierda
Name - Nombre del objeto
PopupMenu - Men contextual
ShowHint - Mostrar etiquetas
Top - Posicin vertical
Visible - Visible
Width - Ancho del objeto
Ejercicio 1. Crear una ventana hola mundo y un botn para cerrar.

En primer lugar, antes de trabajar con Delphi, es aconsejable que crees una carpeta (subdirectorio) con tu
nombre para guardar ah los ejercicios.
Crear un proyecto nuevo: Elige del men: File New Aplication para crear un nuevo proyecto.
Te aparecer una ventana (formulario) vaca. En el inspector de objetos vers las propiedades de la ventana
Cambiar el nombre de la ventana: En la ventana del inspector de objetos, en la
ficha propiedades, haz clic en Caption y en la casilla escribe: Ventana para darle
nombre a la ventana.
Poner un texto: En la paleta de herramientas, en la ficha Standard, haz clic en el
componente Label [A] y luego un clic en el centro del formulario vaco.
Cambia la propiedad Caption de la etiqueta (label1) del inspector de objetos por:
Hola mundo.
Puedes cambiar la propiedad Color y Font para cambiar el color y tipo de letra
favorita.
Puedes arrastrar el componente con el mouse para centrarlo en la ventana.
Poner el botn de Salir: Elige el componente Button ( ) de la ficha Standard
de la paleta y haz un clic en la ventana para soltarlo encima este botn.
Cambia su propiedad Caption por: &Salir (El & subraya la hotkey)
Tambin puedes cambiar las propiedades de tamao y color con las propiedades del inspector de objetos.
Asignar la accin al botn Salir: Pulsa doble clic sobre el botn Salir para escribir el cdigo:
Para indicar una accin a un objeto escribir el nombre del objeto, un punto y su accin: Form1.close;
Si no pones el nombre del objeto, te refieres a la ventana en general: slo debers
escribir la palabra: close (cerrar la ventana) en el lugar indicado:
Procedure TForm1.Button1Click(Sender: TObject);
Begin
close; / / =>Al final de una lnea de cdigo, poner punto y coma (;)
end;
Compilar y guardar el programa: Pulsa el botn Run o elige del men: Run - run.
Comprueba su funcionamiento correcto cerrando la ventana. Para guardar el programa:
1 Guardar la ventana del formulario y su cdigo asociado elige del men: File Save as... Hola1.pas
2 Guardar el proyecto creado: elige del men: File Save project as... Hola.dpr
Ejercicio 2. Crear un contador de botones. Cambiar el nombre de botones.
Crea un nuevo proyecto. (File-New-Application).
Pon en el formulario tres botones (componente TButton ) y un panel (componente TPanel). Ambos se
encuentran en la paleta: Estandard.
Selecciona cada componente creado y en el Objet inspector (F11) cambia
las siguientes propiedades:
En el Button1.Caption: Poner a cero
En el Button2.Caption: Contar
En el Button3.Caption: Salir
En el Panel1. Caption: 0 ; Panel1.Color: clWhite (blanco)
Selecciona cada componente creado y en el Objet inspector (F11) cambia
los siguientes eventos, pulsando doble clic sobre el evento: On clic o
directamente sobre el componente:
Eventos: (pulsar doble clic en cada objeto)
En el Botn1: Panel1.Caption:='0';
En el Boton2: Panel1.caption:=IntToStr(Strtoint(Panel1.caption)+1);
En el Boton3: Close;

Comentarios al ejercicio: Algunos componentes tienen propiedades del tipo de texto, numrico o lgicas.
No se puede igualar o comparar una propiedad de un componente a otra de otro componente si son de tipos
diferentes. Para ello se debe realizar una conversin de un formato a otro:

Conversiones
Int_To_Str (Integer to String) Cambia del tipo de nmero entero a cadena de texto
Str_To_Int (String to Integer) Cambia del tipo cadena de texto a nmero entero
Otros:
StrToDate (Texto a fecha) StrToFloat (texto a decimal flotante)
InToEx (Entero a Extended) DateToStr (Fecha a Texto)
DateTimeToStr (Fecha/hora a texto) FloatToDecimal (Decimal flotante a decimal)
FloatToStr (Decimal flotante a texto) StrToTime (Texto a hora)
Cambia la variable del tipo numrico entero a cadena de texto
Panel1 Botn1
Botn 2
Ejercicio de conversin de variables. Convertidor de Euros:
Ingredientes:
Empieza un proyecto nuevo en Delphi y aade al formulario los siguientes componentes de la paleta
Estandard:

2 botones
(Button)

2 cuadros de texto
(Edit )

1 etiqueta
(Label)

Preparacin:
En el Object Inspector (F11),
Edit 1 y Edit2: Cambiar su propiedad Text al valor: 0
Botones 1 y 2: Cambiar su propiedad Caption al texto de la imagen
Label 1: Cambiar la propiedad Caption al texto de la figura y la propiedad Font a Negrita, tamao 12

Coccin:
Pulsar doble clic sobre el botn 1 para aadir al evento Onclic las siguientes lneas de comando:
(Lneas a aadir en negrita) Comentarios
procedure TForm1.Button1Click(Sender: TObject);
var
numero1,numero2:double;
begin
numero1:=strtofloat(edit1.text);
numero2:=numero1/166.386;
edit2.text:=floattostr(numero2)
end;

variables a utilizar:
nmero1 y nmero2 del tipo numricas con decimales

Nmero1 vale el texto del Edit1 convertido
Nmero2=nmero2/166,386 (poner punto decimal)
El texto del Edit2 ser el valor de la variable nmero2
convertida a string

Ejercicio Propuesto:
Pulsa doble clic sobre el botn 2 y aade el cdigo al botn2 para que multiplique el valor de Edit1 por 166,386
Variantes al programa:
Para evitar tener que crear variables que almacenen el valor temporalmente, podramos haber realizado la
conversin directamente del siguiente modo:
Edit2.text:=floattostr(strtofloat(edit1.text)/166.386)
Sin embargo, es ms seguro para su comprobacin en caso de error, dividir el cdigo en varias lneas.
Evitar errores al introducir una letra el lugar de un nmero en los edits:
Se puede controlar con un MaskEdit, usando la funcin Format, FormatFloat/FloatToStrF o evaluando si es
numrico antes de realizar operaciones matemticas: IsNan (Is Not a Number). Vanse todos en la ayuda.
Guarda el proyecto y su unidad (conversor1.pas) en una carpeta independiente, por ejemplo en
C:\Archivos de Programa\Borland\Delphi\Conversor con el nombre del proyecto: Conversor.dpr

Distribucin e instalacin del programa:
Crear un icono: Delphi 7: Elige del men: Tools Image Editor: New Icon File (*.ico). 32x32 16 colores
(Puedes utilizar tambin el programa Microangelo (www.microangelo.us)
Elige del men: Proyect Options - Solapa: Aplication
Rellena el ttulo al programa y Carga el Icono correspondiente (Load Icon) que previamente has guardado.
En la solapa VersionInfo: Rellenar la Versin 1.0 y el nombre de la compaa.
Vuelve a compilar el proyecto y sal del programa Delphi guardando todos los cambios.
Comprueba cmo ha cambiado el archivo de la aplicacin (conversor.exe). Es el nico archivo que necesitas
para el funcionamiento del programa, ya que el proyecto no incorpora ningn componente de paletas
adicionales.
Instalacin:
Utiliza el Programa InstallShield o InstallShield Express para crear el programa de instalacin: Indicando
en este, dnde se encuentra el proyecto Conversor.dpr. La versiones Delphi 4 y Delphi 2005 suelen adjuntar
la aplicacin Installshield Express de Installsoftware corporation. (www.macrovision.com)
Teora: Conceptos bsicos de programacin.
Procedimientos y funciones:
Un Procedimiento (procedure) es una subrutina o subprograma que puede ser llamado desde varias partes
del programa principal. A diferencia de una funcin, ste no devuelve ningn valor de respuesta, pero s
puede recoger datos o parmetros del lugar desde el que se llam utilizando el Sender como paso de
parmetros.
o Funcin: Es un procedimiento o subrutina que adems devuelve un valor de respuesta (Result)
o Parmetro: Es una variable o un valor que es pasado a un procedimiento o funcin.
o Sender: Es un parmetro que informa a un procedimiento o funcin desde qu componente
(objeto) ha sido llamado. Se utiliza mucho para agrupar varios botones con un procedimiento
parecido (lneas de cdigo comunes).
Ejemplo de sender:
En este ejemplo, si es llamado desde el botn1
entonces la ventana de acerca de... muestra el
ttulo del programa, si no, no muestra el ttulo.

Ejemplo de funcin:
La funcin evala si un nmero es primo (divisible
por otro menor).
Se especifica en su declaracin el tipo y valor de
retorno. En este caso el tipo es boolean

Luego puedes ser llamada desde cualquier
procedure si se declara en la seccin pblicas o
privadas.

Bucles y bifurcacin:
Bifurcacin:
If ... Then ... Else:
Equivale al SI condicional
No se aade ; de final de lnea antes del
Else. Si la condicin ocupa varias lneas
es necesario aadir Begin End

Case:
Bifurca las acciones dependiendo de diversos
resultados de un parmetro del tipo ordinal.
(Nmero o carcter ordenado alfab.)

Bucles:
Infinitos:
While: Repite la ejecucin infinitas veces hasta que
se cumpla la condicin.

Bucles finitos (Contadores):
For ... To, For ... Downto:
Ejecuta una accin un nmero determinado de
veces.
o To: Incrementa una vez el bucle
o Downto: Decrementa una vez el bucle.
Procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender = Button1 then showmessage(Has pulsado el boton 1)
else if Sender = Button1 then showmessage(Has pulsado boton 2)
else showmessage(Has pulsado boton 2) ;
end;
Function EsPrimo (N: Integer): Boolean
var; //----- Funcin Nmeros Primos----->
i: Integer; //Para contador del bucle
begin
EsPrimo := True;
For i := 2 to N - 1 do
if (N mod Test) = 0 then //mod resto de la division es cero
begin
EsPrimo := False;
break; //salta fuera del bucle
end;
end;
end;
Llamada a la funcin:
If Isprime(n) then showmessage(Es primo);
(* if statements *)
IF edad >= 18 THEN label1.caption:=Mayor de edad
ELSE label1.caption:=Mayor de edad;
For I:=1 to 100 do
Begin
Label1. caption:=Paso nmero + I;
Beep // tono sonoro
End;

case edad of
0..9: Label1.caption:=nio;
10..18: Label1.caption:=joven;
18..60: Label1.caption:=adulto;
60..99: Label1.caption:=anciano;
else
Label1.caption:=no vale;
end;

while Ch = ' ' do Ch := GetChar;

procedure TForm1.Timer1Timer
begin
ProgressBar1.Position:=ProgressBar1.Position-1;
if ProgressBar1.Position=0 then
begin
showmessage('Se acab el tiempo');
timer1.enabled:=false;
close;
end;
end;
Ejercicio Else If y variables. Adivina un nmero.
Ingredientes:
2 Labels
1 Edit
1 Button

Preparacin:
Creamos 2 variables en la seccin de
variables pblicas: Bueno e Intentos:
var
Form1: TForm1;
Bueno: integer;
Intentos: integer;

Inicializacin:
Al crearse el formulario se genera un nmero aleatorio del 1 al 100 y se guarda en la variable bueno:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize; //baraja
bueno:=random(100); //crea un num aleatorio entre 0 y 100 y lo guarda en la variable bueno
intentos:=0; //pone intentos a cero
end;
Acciones: Al pulsar el botn Vale, se crea una variable num y se evala si la variable num es igual o mayor a la
variable bueno:
var
num:integer;
begin
intentos:=intentos+1;
If Edit1.text=' ' then showmessage('Escribe un nmero') // -> si no escriben nada
else
begin
num:=strtoint(Edit1.text); //-> Variable num guarda el dato del Edit1
if num>bueno then showmessage('Es ms bajo')
else if num<bueno then showmessage('Es ms alto')
else if num=bueno then acierto;
Edit1.text:=' '; //-> borra el nm del Edit1
end;
end;

Se crea un procediminto manual llamado acierto sin parmetros:
procedure Tform1.acierto;
var
i:integer;
begin
Edit1.visible:=false;
Label2.Caption:='Acertaste, es el '+inttostr(bueno);
Label1.Caption:='Te ha costado ' + inttostr(intentos)+' intentos y has tardado '+ inttostr(60-
ProgressBar1.position)+' segundos';
for i:=1 to 100 do // Bucle finito: repite el bucle 100 veces
begin
with TButton.Create(self) do //se autocrea un botn que aparecer aleatoriamente en el form
begin
SetBounds (Random (panel1.Width-100), Random (Panel1.Height-50), 100, 50);
Parent := Panel1;
Caption := Label2.Caption;
end;
end;
Mejoras:
Aadir una barra de progreso: progressbar1
(paleta win32) Progressbar: Max: 60 Position: 60
Aadir un Temporizador: Timer (paleta system)
Interval: 1000 (Repetir el evento cada 1 segundo)
En el evento del timer OnTimer aadir el cdigo de la
derecha para evaluar el tiempo tardado en acertar y
decrementar la barra de progreso.
Guarda la unidad (Adivina1.pas) y el proyecto (Adivina.DPR)
Ejercicio calculadora. Uso del parmetro sender y de las variables
Creamos un nuevo formulario. File New - Application

Ingredientes: (Componentes)
3 Labels: Valor 1 Valor 2 - Resultado
2 Edits: Edit1 Edit2
4 botones:
Button1: Sumar
Button2: Restar
Button3: Multiplicar
Button4: Dividir
1 Panel: Caption: 0

Acciones:
- Pulsar doble clic en el botn 1 para escribir la accin
dentro del procedure:
panel1.caption:=edit1.text + edit2.text; da error

- Escribe el cdigo correcto en negrita:
Comprueba que funciona el botn, (pulsar
Run F9)

- dem deberamos escribir los otros tres
botones, pero en lugar de ello vamos a crear dos variables pblicas para cada
nmero. Busca la seccin Var al inicio de la unit1.pas y escribe el cdigo en
negrita:

- Ahora cambia el cdigo del botn 1 por este otro:
Comprueba que funciona el
botn, (pulsar Run F9)

Llamada al mismo procedure:
dem deberamos escribir los
otros tres botones, pero en
lugar de ello vamos a utilizar
el mismo procedure para todos
los botones, utilizando el
parmetro sender y evaluando
cul es el botn pulsado con la
funcin IF ELSE IF
Cambia el cdigo por el que se
muestra.
Luego escogemos para los
otros tres botones el evento
On clic y le asignamos el
mismo procedure que para el
botn 1:

De este modo, los tres botones realizan el mismo procedure pero utilizamos
el parmetro Sender con IF else if para evaluar qu botn se ha pulsado
en cada caso.

Mejoras: Qu pasa si dividimos un nmero por cero? devuelve un error el programa.
Escoge del men: Program Reset para desbloquear el programa.
En el caso de dividir deberamos evaluar que si numero2=0 entonces muestre un mensaje de que no se puede
realizar la operacin. Para ello, aadir la siguiente lnea:
If nmero2=0 then showmessage(No se puede dividir por cero);
(Sin olvidar poner un begin end cuando escribimos varias lneas de cdigo dentro de un IF)
Guarda este proyecto en tu carpeta con el nombre: Calculadora.DPR y su unidad pas: Calculadora1.PAS
begin
panel1.caption:=inttostr(strtoint(edit1.text) +
strtoint(edit2.text));
end;
var
Form1: TForm1;
numero1:double;
numero2:double;
begin
numero1:=strtofloat(edit1.text); // convierte a decimal flotante el edit1
numero2:=strtofloat(edit2.text); // convierte a decamal flotante el
edit2
panel1.caption:=floattostr(numero1+numero2);
end;
begin
if sender=button1 then
panel1.caption:=floattostr(numero1+numero2)
else if sender=button2 then
panel1.caption:=floattostr(numero1-numero2)
panel1.caption:=floattostr(numero1*numero2)
panel1.caption:=floattostr(numero1/numero2)
end;
Ejercicio While. Factorial en la calculadora.
While: Repite la ejecucin infinitas veces hasta que se cumpla la condicin.
En matemticas, factorial o permutacin multiplica un nmero por el siguiente inferior hasta 1.
Ejemplo: 5! = 5 * 4 * 3 * 2 * 1 = 120
Abre el proyecto anterior: CALCUALDORA y aade el siguiente botn: Button5. Aade el cdigo que se muestra
y comprueba su funcionamiento:
Guarda este proyecto en tu carpeta con el nombre: CALCULADORA2

Ejercicio FOR. Exponencial en la calculadora.
For ... To: Ejecuta una accin un nmero determinado de veces.
En matemticas, exponencial multiplica un nmero por s mismo tantas veces como diga el exponente.
Ejemplo: 5^3 = 5 * 5 * 5 = 625
Abre el proyecto: CALCUALDORA2 y aade el siguiente botn: Button6. Aade el cdigo que se muestra y
comprueba su funcionamiento:

Guarda este proyecto en tu carpeta con el
nombre: CALCULADORA3

Mejora en el aspecto de los componentes:

Botones planos con imgenes:
Sustituye los botones del tipo button por los del
tipo SpeedButton de la paleta adicional.
Pon su propiedad Flat: True.

Cambia el texto del botn por una imagen
(propiedad Gliph) diseada por t en Paint.

Aadir incrementadores de valor:
Aade dos componentes UpDown de la paleta
Win32 y cambia las propiedades que se indican
en la figura para incrementar los valores del edit
con flechas.

var
resultado:double;
begin
resultado:=strtofloat(edit1.text);
numero1:=resultado-1;
while numero1>0 do
begin
resultado:= resultado*numero1;
numero1:=numero1-1;
end;
panel1.caption:=floattostr(resultado);
end;
var
resultado:double;
x,veces:integer;
begin
resultado:=strtofloat(edit1.text);
numero1:=resultado;
veces:=strtoint(edit2.text);
for x:=1 to veces do
begin
resultado:= resultado*numero1;
end;
panel1.caption:=floattostr(resultado);
end;
Ejercicio de Captura y pulsacin de teclado. Tecla

En los eventos on key press y on key down. Los
procedures nos informan, con la variable key, del cdigo
de tecla pulsada.

Crear un proyecto llamado: Tecla.dpr que contenga en
el formulario, tres labels como en la figura:

Aadir al evento on key press del formulario:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
label1.caption:=key;
label2.caption:=IntToStr(Ord(key)); //Ord(key) devuelve el nmero de orden (ordinal) de la tecla pulsada
if key = #27 then close;
end;

Variante al ejercicio de la calculadora:
Capturar la tecla operador con el teclado:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
num: integer;
begin
case key of
#13, #61:operarClick(opeigual);{teclas intro}
#43 : Button1Click(mas);
#45 : Button1Click (menos);
#42 : Button1Click (por);
#47 : Button1Click (div);
end;

Ejercicio de Captura y pulsacin de botn de ratn:

En los eventos del ratn (mouse):
On mouse down, On mouse up y On mouse Move,
los parmetros X y Y son automticos y nos devuelven
la informacin de la posicin del mouse.

En los eventos del ratn (mouse) On mouse down y
On mouse up, tambin existe el parmetro Button que
nos informa del botn pulsado o liberado.

Para este ejercicio, le aadiremos al formulario anterior:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
label1.Caption:='Izquierdo:' +inttostr(X); //guarda posicin X del ratn
label2.Caption:='Izquierdo:' +inttostr(Y); //guarda posicin Y del ratn
end
else if Button = mbRight then
begin
label1.Caption:='derecho:' + inttostr(X);
label2.Caption:='derecho:' + inttostr(Y);
end;
end;
Recupera la calculadora y aade el
procedure de la derecha al evento on
key press del formulario.

La propiedad KeyPreview debe estar
en true.

Ejercicio 2. Lanzar un dado en un juego:
En este ejercicio al pulsar el botn Lanzar se activa
el timer y al pulsar el botn Parar desactiva el
timer y muestra el dato del timer. Por lo tanto, el programa
dispondr de tres eventos o acciones:
1. procedure botonLanzarClick(Sender: TObject);
2. procedure botonpararClick(Sender: TObject);
3. procedure Timer1Timer(Sender: TObject);

Necesitamos crear antes de los procedures una
variable X que es la que contendr el valor del dado. Ser del tipo
numrica entera (Integer) y la declararemos en el apartado VAR al principio del programa.

Los comentarios:
Puedes apuntar comentarios en tus programas utilizando:
// - La doble barra: Para una lnea
{ } - Las llaves para varias lneas

En los tres procedimientos siguientes, slo tendremos que escribir el texto en negrita El resto se escribe
automticamente al pulsar doble clic en el componente o sobre el evento adecuado del componente (F11)

Uso de una variable como Flag (bandera de permiso)
Utilizar el mismo botn para lanzar y parar:

Borra el botn 2, haciendo clic en l y pulsando Suprimir
Crea otra variable llamada lanzar del tipo integer, por defecto, esta variable valdr 0: Lanzar:integer;
La variable lanzar es un flag o bandera que al comparar con ella, el mismo botn realizar una accin u
otra. Cambia el cdigo del botn lanzar por este otro: (se aconseja escribir tambin los comentarios)

Variantes y mejoras:
1.- Aade el componente Imagelist (W32) al que se le aaden (add) las imgenes bmp de las 6 caras de un
dado.(que previamente has dibujado con la aplicacin: Tools - Image Editor File - New - Bitmap)
2.- Aade un componente Image1 (additional) y aade al timer: imagelist1.GetBitmap(x, image1.picture);
procedure TMainForm.botonLanzarClick
begin
timer1.enabled:=true;
end;

procedure TMainForm.botonpararClick
begin
timer1.enabled:=false;
label1.caption:='has sacado un '+ inttostr(x);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
{poner interval del timer1 a 50}
{poner en el var general x: integer}
begin
if x<6 then x:=x+1 else x:=1; {Si X es menos que 6 suma 1 y si pasa de 6 valdr 1 }
label1.caption:=inttostr(x); {Ponemos al texto de la etiqueta el valor de x }
end;

var
MainForm: TMainForm;
x:integer; //variable para contador
implementation

procedure TForm1. TMainForm.botonLanzarClick (Sender: TObject);
begin
if lanzar=0 then // Si lanzar vale cero ...
begin
timer1.enabled:=true; // Activa el timer
button1.caption:='Parar'; // En el botn 1 pondr Parar
lanzar:=1; // y sube la bandera
end
else // Y si no...
begin
timer1.enabled:=false; // Desactiva el timer
button1.caption:='Lanzar'; // En el botn 1 pondr Lanzar
lanzar:=0; // y baja la bandera
end
end;

Ejercicio 3. Crear un contador de tiempo. Practicar con tipos de variables.

Se crea una variable para almacenar un dato, Si esta variable va a ser utilizada en todo el programa, se crea al
principio, en el apartado var, si no se crea el apartado var dentro del procedure.
ejemplo:
var
Form1: TForm1;
horainicio: double; //no existe el tipo time, se elige el tipo numrico doble (permite decimales doble precisin
horafin: double;
I: Integer; (numrico entero)
S: string; (identificador del tipo cadena de texto)
otros tipos de variables:
Integer Shortint SmallInt Longint Byte Word
Cardinal Boolean ByteBool WordBool LongBool Char
Prctica:
Crear una nueva aplicacin llamada CRONO. Aade al formulario (ventana) los siguientes componentes:
3 botones
3 paneles de color blanco como se muestra en la figura:

Aadir las siguientes variables al inicio de la unidad:

Aadir las lneas de cdigo a los procedures:

Variantes y mejoras: Aade el componente: XPManifest (Win32): permite a los botones tener tema-estilo
visual de Windows XP.
Tipo de componente: TButton
Name: button1
Caption: Empezar
Tipo de componente: TButton
Name: button2
Caption: Parar
Tipo de componente: Tbutton
Name: button3
Caption: Salir
Tipo de componente: TPanel
Name: Panel2
Caption: Hora fin
Name:Panel1
Caption: Hora inicio
Name: Panel3
Caption: Crono
begin
horainicio:=time;
panel1.Caption := 'Hora de inicio: ' + TimeToStr(Time);
end;

begin
horafin:=time;
panel2.Caption := 'Hora de paro: ' + TimeToStr(Time);
panel3.caption:= 'Crono: ' + TimeToStr(horainicio-horafin);
end;

procedure TForm1.Button3Click (Sender: TObject);
begin
close;
end;
Nivel avanzado
Cmo crear un archivo INI que guarde la hora
de entrada.

- Es necesario aadir INIFILES a la seccin USES
de la unidad.
var
datosini:TIniFile;
HORAENTRADA:STRING;
begin
HORAENTRADA:=TIMETOSTR(TIME);
datosini:= TIniFile.Create('DATOS.INI');
-->crea el archivo datos.ini
datosini.WriteString('Eduardo', 'Entrada',
HORAENTRADA); -->aade a la seccin
[Eduardo] entrada=12:15
DATOSINI.FREE; --> cierra el archivo datos.ini
end;

var
Form1: TForm1;
horainicio: double;
horafin: double;

Ventanas de Mensajes y cuadros de dilogo directos.
Ventanas de mensaje:
Modo Delphi: Showmessage('Mensaje);
MessageDlg(Mensaje', mtInformation, [mbOk], 0)
Modo Windows: Application.MessageBox(Mensaje, 'Textoventana', MB_OK);
Ventana de pregunta:
Application.MessageBox('Pregunta', 'Textoventana', MB_YESNO)
MessageDlg(Mensaje', mtConfirmation, [mbYes, mbNo], 0) Devuelve: mrYes o mrNo
InputBox('Nombre_ventana', 'Texto_Dato', 'Respuesta_predeterminada'); Devuelve Var String
InputQuery('Identificate!', 'Pon tu nombre, por favor...', Nombre); Devuelve Var Bolean
Otros mensajes:
ShowMessageFmt(const Msg: string; Params: array of const);
CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons)

Ejercicio-ejemplo: Crea en un formulario nuevo 5 botones y asigna a cada uno de ellos el siguiente cdigo:
var
Dato: string;
begin
Dato:= InputBox('Nombre ventana', 'Nombre:', 'Antonio');
showmessage('Hola, '+ Dato);
end;

var
Nombre:string;
PulsoOk:boolean;
begin
PulsoOk:= InputQuery('Identificate!', 'Pon tu nombre, por favor...', Nombre);
if PulsoOk=true then ShowMessage('Vale,'+Nombre) else ShowMessage('Has de pulsar Ok...');
end;

begin
if (Application.MessageBox('Eres tonto?', 'Tontera', MB_YESNO) = IDYES) then showmessage('Lo saba')
else showmessage('Respuesta incorrecta')
end;

begin
Application.MessageBox('Este es un mensaje con botn Aceptar', 'Informacin', MB_OK);
end;
var
Nombre:string;
PulsoOk:boolean;
pregunta:pchar;
begin
PulsoOk:=false;
while PulsoOk=false do
begin
PulsoOk:= InputQuery('Identificate!', 'Pon tu nombre, por favor...', Nombre);
if PulsoOK=false then ShowMessage('Has de pulsar Ok...');
end;
Pregunta:=Pchar('Hoye ' + Nombre + ' , eres tonto?');
while Application.MessageBox(Pregunta, 'Tontera', MB_YESNO) = IDNO do
begin
MessageDlg('Respuesta incorrecta', mtError, [mbOk], 0);
end;
MessageDlg('Respuesta correcta', mtInformation, [mbOk], 0);
end;
Control: Combobox
Name: Producto
Control: ListBox
Name: Sabor
Control:
RadioBox
Name: Tamano
Controles: Chexbox (3)
Textbox
Name:
BitBtn1
Panel 1
Ejercicio 5. Prcticas con controles de lista y eleccin.
1.- Crear el formulario Helados.frm con
los nombres y controles que se indican en
la figura.

2.- Crear la variable pblica:
precio:integer;

3.- Crear un segundo formulario llamado
Envio y mostrarlo al hacer clic en enviar:
envio.showmodal;

Al hacer clic en el botn Ver Precio:
procedure THelados.Button2Click(Sender: TObject);
begin
precio:=0;
if producto.text='Helado' then precio:=200;
if producto.text='Batido' then precio:=150;
if producto.text='Refresco' then precio:=100;
if nueces.State=cbChecked then precio:=precio+50;
if almendras.State=cbChecked then
precio:=precio+50;
if pasas.State=cbChecked then precio:=precio+50;
case tamano.itemindex of
0:precio:=precio+100;
1:precio:=precio+50;
2:precio:=precio;
end;
panel1.caption:=inttostr(precio)+' Pts';
end;
Al hacer clic en el botn caloras:
procedure THelados.Button1Click
var calorias, calorias1:integer;
begin
if sabor.itemindex=-1 then
begin
ShowMessage('elige un sabor');
calorias:=0;
end
else
begin
Button2Click(Sender);
calorias:=precio*10;
case sabor.itemindex of
0:calorias1:=10;
1:calorias1:=50;
2:calorias1:=100;
3:calorias1:=150;
4:calorias1:=200;
5:calorias1:=250;
6:calorias1:=300;
7:calorias1:=350;
8:calorias1:=0;
end;
calorias:=calorias+calorias1;
panel1.caption:=inttostr(calorias)+'
Caloras';
end;
end;
Al enviar el pedido:
procedure Tenvio.BitBtn1Click(Sender: TObject);
begin
if nombre.text = '' then
ShowMessage('Haga el favor de rellenar sus datos, gracias')
else
begin
ShowMessage('Seor ' + nombre.text + ', su pedido ha sido
enviado a ' + poblacion.text + ', en breves minutos recibira el
producto. Gracias');
end
end;
Al cancelar el pedido:
procedure Tenvio.BitBtn2Click(Sender: TObject);
begin
ShowMessage('Su pedido ha sido cancelado');
close;
end;
Llamada extena al enviar el pedido: ShellExecute
(Manejador, Operacin, NombreFichero, Parmetros,
Carpeta, Mostrar)
ShellExecute(GetDesktopWindow(), nil, pChar('mailto:'+
E_MAIL), nil, nil, SW_SHOWNORMAL);
Ejercicio 4. Visor de imgenes.
Cmo crear un programa visor de imgenes *.pcx;*.cur;*.gif;*.ani;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf.
Nota: Versiones anteriores de Delphi slo permiten formatos de imagen;*.bmp;*.ico;*.wmf
Paso1. Poner los componentes y establecer las propiedades.
Crear Nuevo proyecto con un formulario.
En la ventana principal del formulario aadiremos los componentes de la figura y modificaremos las siguientes
propiedades:

Paso 2. Escribir los cdigos de los eventos
Al hacer clic en una unidad de disco (Drive combobox) se cambian los directorios (DirectoryListbox) porque le
hemos dicho que Dirlist: DirectoryListBox1, lo mismo ocurre al cambiar de directorio, se cambia la lista de
archivos (Componente: FileListBox) y en la lista de archivos slo aparecern los archivos del tipo que se
pongan en la mscara (Mask: *.bmp;*.ico;*.wmf).
La parte ms difcil de cdigo est al hacer clic en un archivo de la lista:
procedure TImageForm.FileListBox1Click(Sender: TObject);
var
FileExt: string[4]; {creamos la variable FileExt que ser de tres letras ms el punto}
begin
FileExt := UpperCase(ExtractFileExt(FileListBox1.Filename)); {detecta la extensin del archivo en maysc}
if (FileExt = '.BMP') or (FileExt = '.JPG') or (FileExt = '.GIF) or (FileExt = '.WMF) then {Si es BMP o JPG o GIF}
begin {empezar}
Image1.Picture.LoadFromFile(FileListBox1.Filename); {Carga el archivo en la imagen}
Label1.Caption := ExtractFilename(FileListBox1.Filename); {Cambia el texto de la etiqueta}
end; {terminar}
end;
Cdigo al pulsar el botn de Salir: (SalirClick)
close;
Cdigo al pulsar en ajustar imagen (StretchCheck)
Image1.Stretch := StretchCheck.Checked;
Paso 3. Ejecutar y comprobar. Pulsa en el botn Run o en el men: Run, comprueba y ya est.
Guarda el proyecto en tu carpeta con el nombre Visor.
Mejoras: Uso de las JVCL:
Si tienes instaladas las libreras gratuitas JEDI-VCL 3 (http://jvcl.sourceforge.net), sustituye los componentes
anteriores por los de la ficha: JVList, combos, trees: TjvFileListBox, TjvDriveList, TjvDirectoryListBox, ms
potentes y compatibles con sistema XP-Vista.
En JVFilelistbox: Activa Filetype: ftHidden (para ver imgenes ocultas) y Showgliphs a true (Ver iconos).
Sustituye Image1 por JvSpecialImage1 (Paleta: JVimages, animators) y aade junto a la casilla de ajustar la de
Reflejo (Flip) y un deslizador para el brillo (Brightess).

Name:ImageForm
Caption: Visor

Componente: Drivecombobox
Name:DriveComboBox1
Dirlist: DirectoryListBox1
(nombre de la lista de directorios)
Componente: DirectoryListBox
(en la paleta System)
Name:DirectoryListBox1
Filelist: FileListBox1
Componente: FileListBox
(en la paleta System)
Name:FileListBox1
Mask: *.bmp;*.ico;*.wmf

Compo: Bevel
Name: Bevel1
Style:bsLowered
Compo: Panel
Name: Panel1
Compo: Image1
Name: Image1
Componente: CheckBox
Name:StretchCheck
Checked:False
Caption: Ajustar
Componente: Button
Name:Salir
Caption: Salir
Compo: Label
Name: Label1
Delphi multimedia: Ejercicio 6 . Reproductor multimedia

Ejercicio propuesto 1: Aade al proyecto Visor anterior la posibilidad de ver archivos de vdeo y msica a
dems de imgenes utilizando un componente mediaplayer.
Ejercicio propuesto 2: Si tienes instaladas las libreras gratuitas JVCL 3 Puedes crear un capturador de vdeo
fcilmente con el componente: JvAVICapture1 (Paleta: JVimages, animators).
Ejercicico 7 Dibujar: Controles de los botones del mouse y variable Flag

Creamos una variable de estado lgica y
pblica(Tipo Flag o permiso) llamada Pinta:
public
var
Form1: TForm1;
Pinta: Boolean;

procedure TForm1.FormMouseDown
begin
Pinta := True; //Permiso para pintar
Canvas.MoveTo(X, Y);
//Mueve el origen CP al punto X, Y
end;

procedure TForm1.FormMouseUp
begin
Pinta := False; //Quita permiso para pintar
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
If Pinta=True then Canvas.LineTo(X, Y); //Si la variable Pinta es True entonces linea desde el CP al puntoXY
end;
procedure TForm1.Button1Click
begin
If Colordialog1.execute then Form1.Canvas.Pen.Color := colordialog1.color; //Abre ventana color y asigna
end;
Name: MainMenu1

Name: Abrirdialogo
Filter:AVI|*.avi|WAV |*.wav|MIDI |*.mid

Componente: Panel
Name: Videopanel
Formulario
Name: MultimediaDemo
Caption: Reproductor multimedia
procedure TMultimediaDemo.Abrir1Click(Sender: TObject);
begin
with Abrirdialogo do
if Execute and (FileName <> '') then
begin
Player.Close;
Player.Filename := FileName;
Player.Open;
end;
end;
Otros datos en la unidad Main:
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, Menus, Mplayer;

var
MultimediaDemo: TMultimediaDemo;
Evento: Abrir1click
Panel1
Button1
Button2

Name: Form1
Eventos:
Onmousedown: FormMouseDown
Onmouseup: FormMouseUp
OnmouseMove: FormMouseMove
Componente: Mediaplayer
Name: Player
Display: VideoPanel
AuotoOpen: False
ColorDialog1
Propiedades de los formularios y del mouse. Arrastrar y soltar (Delphi 7)
Crear un proyecto nuevo llamado: CARAS.DPR. Aadir al formulario los ingredientes que se muestran:

Poner el formulario transparente:
1. En las propiedades del formulario, poner un color que no vayas a usar, como por ejemplo, el oliva.
2. Cambiar las propiedades del formulario: TransparenteColor=True y TransparentColorValue=el oliva.
Adems quitar el borde de la ventana (BorderStyle=bsNone) y poner siempre encima: (StayOnTop).
3. Aadir otra imgen o botn para salir cuyo cdigo sea: Close;
4. Compilas y corre el programa (F9) observars que slo se muestras las imgenes sobre el escritorio.

Para arrastrar las imgenes sobre la cara:
En los eventos del ratn (mouse), los parmetros X y Y son automticos y nos devuelven la informacin de
la posicin del mouse.
Al mover el mouse, deberemos detectar si el botn izquierdo el mouse est apretado o no. Para ello
crearemos una variable de permiso(flag) del tipo booleriana, llamada: Mover

Creamos las variables pblicas:
var
Form1: TForm1;
Xdiff,Ydiff :integer; // Guardar la posicin del ratn al apretar
Mover : boolean; // Variable de permiso (flag) para arrastrar o mover la imgen

Seleccionamos la imagen 2 y en sus eventos, escribiremos el cdigo al apretar, al soltar al mover el
mouse:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: .
begin
if Button = mbLeft then
begin
Xdiff := X; //guarda posicin X del raton
Ydiff := Y; //guarda posicin Y del raton
Mover := true; //da permiso para arrastrar
end
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:
begin
Mover := false; //quita el permiso para arrastrar
Screen.Cursor := crdefault;
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Mover = true then
begin
Screen.Cursor := CrHandPoint;
if sender=image1 then
begin
image1.Top := image1.Top + Y - Ydiff; //mueve pos esquina imagen menos pos del ratn
image1.Left := image1.Left + X - Xdiff
end
else if sender=image2 then
begin
image2.Top := image2.Top + Y - Ydiff; //mueve pos esquina imagen menos pos del ratn
image2.Left := image2.Left + X - Xdiff
end
end;

Podemos aprovechar los mismos procedures, para las oras imgenes, aprovechando el parmetro: Sender

Juego Stress: Cargar archivo de recursos (res). Formulario semi-transparente
Busca en la carpeta delphi7\Demos\Swat de el archivo de recursos: extrares.res. brelo con el editor de imgenes de
delphi: Tools Image Editor. Observa los iconos e imgenes cargadas. (puedes cambiar la imagen Live por una rotura de
cristal)
Crea un Proyecto nuevo en una carpeta nueva, llamado Stress.dpr.
En el formulario, nicamente pondremos una imgen o botn para
salir. Pero utilizaremos la propiedad AlphaBlend a 100 para variar la
transparencia del formulario.

var
Form1: TForm1;
Live : TBitmap;

implementation

{$R *.DFM}
{$R extrares.res} // <- aqu se incluye el recurso

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[5] := LoadCursor(HInstance, 'Malet'); //carga el cursor n 5 del recurso Malet
Screen.Cursors[6] := LoadCursor(HInstance, 'MaletDown'); //carga el cursor n 6 del recurso MaletDown
Screen.Cursor := TCursor(5); // Al pulsar el mouse aparece el cursor 5 (martillo)
Live := TBitmap.Create; // Crea una imgen imagen Bitmap: Live
Live.LoadFromResourceName(HInstance, 'Live'); // Carga la imagen Bitmap Live del recurso: Live
Live.Transparent:=true;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor := 6; // Al pulsar el mouse aparece el cursor 6 (martillo bajado)
Canvas.Draw(x-50, y-35, Live); //Al pulsar el mouse Dibuja la imagen Live en los pixels de canvas
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor := 5;
end

Animacin. Protector de pantalla (Uso del estamento CASE)
Ingredientes:
- Shape (Paleta Additional): Name: Bola; Shape: stCircle
- Timer (paleta system): Timer1 Interval: 50
- Botones: 2 (Empezar y parar)
Formulario: Si lo deseas, puedes asignar color transparente.
Variables:
Mover: integer;
Acciones:
En el Button1: Empezar : Timer1.enabled=true ;
En el Button2: Parar : Timer1.enabled=false;
procedure TForm1.FormCreate(Sender: TObject); //Al crearse el formulario
begin
mover:=1; // -> importante: La variable: Mover, debe tener cualquier valor
end;
procedure TForm1.Timer1Timer(Sender: TObject); //En el timer1
begin
case Mover of
1: // Mueve la bola a la izquierda y hacia arriba
begin
Bola.left:=Bola.Left - 20;
Bola.Top:=Bola.Top - 20;
// Si el grfico alcanza el borde izquierdo del formulario, se mueve a la derecha y hacia arriba.
If Bola.Left <= 0 Then Mover := 2
// Si el grfico alcanza el borde superior del formulario, se mueve a la izquierda y hacia abajo.
Else If Bola.Top <= 0 Then Mover := 4;
End;
2: // Mueve la bola la derecha y hacia arriba
begin
Bola.left:=Bola.Left + 20;
Bola.Top:=Bola.Top - 20;
// Si el grfico alcanza borde derecho del formulario, se mueve a la izquierda y hacia arriba. Se determina el borde
derecho del formulario restando el ancho del grfico del ancho del formulario.
If Bola.Left >= (Form1.Width - Bola.Width) Then Mover := 1
// Si el grfico alcanza el borde superior del formulario, se mueve a la derecha y hacia abajo.
Else If Bola.Top <= 0 Then Mover := 3;
end;
3: // Mueve la bola a la derecha y hacia abajo
begin
Bola.left:=Bola.Left + 20;
Bola.Top:=Bola.Top + 20;
// Si el grfico alcanza el borde derecho del formulario, se mueve a la izquierda y hacia abajo.
If Bola.Left >= (Form1.Width - Bola.Width) Then Mover := 4
// Si el grfico alcanza el borde inferior del formulario, se mueve a la derecha y hacia arriba. Se determina el borde
inferior del formulario restando la altura del grfico de la altura del formulario menos 680 twips debido a la altura de la
barra de ttulo la barra de mens.
Else If Bola.Top >= (Form1.Height - Bola.Height) Then Mover := 2;
End;
4: // Mueve la bola a la izquierda y hacia abajo
begin
Bola.left:=Bola.Left - 20;
Bola.Top:=Bola.Top + 20;
// Si el grfico alcanza el borde izquierdo del formulario, se mueve a la derecha y hacia abajo.
If Bola.Left <= 0 Then Mover := 3
// Si el grfico alcanza el borde inferior del formulario, se mueve a la izquierda y hacia arriba.
Else If Bola.Top >= (Form1.Height - Bola.Height) Then Mover := 1;
End;
Variantes y mejoras:
Este protector de pantalla puede convertirse en un juego de habilidad (mezclado con el anterior) si al pulsar doble clic sobre
el objeto (que puede ser una imagen) cuenta los golpes y a su vez se acelera el objeto.
Delphi. Ejercicio 5 . Movimientos y contadores. Juego
En la figura se muestran los componentes y sus propiedades principales.

Preparacin:
var
MainForm: TMainForm;
subir:integer; // => Variable pblica para controlar el sentido subir ser numrica entera

Acciones:
El timer1 se encarga de desplazar la flecha hacia la derecha y comprueba si su posicin est cerca de la
bombilla:
procedure TMainForm.Timer1Timer(Sender: Tobject); {solo funciona si el timer1 est activado}
begin
if (flecha1.left=460{bombilla.left})and (flecha1.top<bombilla.top+10) and (flecha1.top>bombilla.top-10)
then
begin
bombilla.picture:=bombilla2.picture; {si flecha toca bombilla cambia picture a bombilla2}
puntos.caption:=inttostr(strtoint(puntos.caption)+1); {suma un punto y convierte en cadena}
end;
if flecha1.left<500 then
flecha1.left:=flecha1.left+5 {avanza de izquierda a derecha 5 pixels a cada pulso del timer}
else
begin
timer1.enabled:=false; {descativa el temporizador timer1}
flecha1.left:=10; {si la flecha pasa de largo empieza de nuevo en posic. izquierda a 10}
end
end;

Comp: Image
Name: Bombilla1
PictureImages\buttons\bulboff.bmp
Comp: Image
Name: Bombilla2
Picture: \Images\buttons\ bulbon.bmp
Comp: Image
Name: Bombilla
Picture:
Images\buttons\bulboff.bmp
Comp: Label
Name: Label1
Caption: Enciende la luz
Comp: Panel
Name: Panel1
Color: Azul
Onclick:flecha1Click
Comp: Image
Name: Flecha1
Picture:Arrow1r.bmp
Onclick: flecha1Click

Comp: Timer
Name: Timer1
Interval: 10
OnTimer: Timer1Timer
Comp: Timer
Name: Timer2
Interval: 10
OnTimer:
Timer2Timer
Comp: Panel2
Align: alBottom
Comp: Panel3
Align: alLeft
Bevelouter: bvLowered
Caption: Aciertos
Alignment: taLeftJustify
Comp: Label
Name: Label2
Caption: 0
taRightJustify
BitBtn1
El timer2 se encarga de desplazar arriba y abajo la bombilla, (segn si la variable subir est a 0 o 1):
procedure TMainForm.Timer2Timer(Sender: TObject);
begin
if subir=0 then {si no est activado subir}
begin
if bombilla.top<200 then {si no pasa de 200 de profundidad que siga bajando}
begin
bombilla.top:=bombilla.top+1;
bombilla.picture:=bombilla1.picture; {por si est encendida, que se apage}
end
else {si pasa de 200 de fondo...}
subir:=1 {que se active subir}
end
else {si est activada subir..}
begin
if bombilla.top>0 then {y si an no est arriba...}
bombilla.top:=bombilla.top-1 {que siga subiendo}
else {si ya ha llegado arriba...}
subir:=0 {que se descative subir}
end
end;

Al empezar el programa, la variable subir debe de valer algo (cero por ejemplo)
procedure TMainForm.FormCreate(Sender: TObject);
begin
subir:=0; {empieza con subir desactivado}
end;

Al hacer clic sobre la flecha se activa el timer (o tambin se puede hacer sobre un botn)
procedure TMainForm.flecha1Click(Sender: TObject);
begin
timer1.enabled:=true; {al hacer clic con el ratn que se active el timer1}
end;

Variantes y mejoras: Conexin a Internet.
1.- Crea un botn que nos conecte con la pgina web de soporte del programa:
Aade la siguiente lnea de cdigo:

ShellExecute(GetDesktopWindow(),nil, pChar('www.ofimega.es/oficalc/index.htm'), nil, nil, SW_SHOWNORMAL);

2.- Crea un botn que nos abra un archivo web de ayuda:
Aade el componente webbrowser de la paleta Internet. Asignar propiedad visible false
Aade las siguientes lneas de cdigo:
var
dire:string;
begin
dire:=ExtractFilePath(ParamStr(0)); //Detecta la ruta del programa
WebBrowser1.visible:=true;
WebBrowser1.Navigate('file://'+dire+'instrucciones.htm')
end;
Crea previamente el archivo web: 'instrucciones.htm' (con Microsoft Word o Dreamweaver), explicando el funcionamiento
del programa. Este archivo debe guardarse en el mismo directorio o carpeta que el ejecutable (.exe).

Cmo ejecutar un programa externo:
var
dire:string;
begin
dire:=ExtractFilePath(ParamStr(0));
ShellExecute(Form1.Handle,nil,PChar(dire+'programa.exe'),'','',SW_SHOWNORMAL)
end;

Ejercicio 7. Control de direccin y velocidad de un objeto
Completa este programa esqueleto para disear un juego de aterrizaje lunar de una nave espacial:

Procedures:

Variantes:
El fondo de la ventana ser de color negro y se aadirn shapes de estrellas blancas
El objeto ser el dibujo de una nave en un picture box.
(En el programa esqueleto el objeto es un shape de forma circular.)
Se aadirn asteroides que resten puntos y/o desven la nave de su ruta.
Finalizar el juego al coincidir el objeto con las coordenadas de la base lunar.

Timer 1
Interval=50
Shape1
stCircle
Panel1
Name: Salir
Name:Inicio
Name: Empezar
Name:Parar
Pamel2. Bottom
Panel3.Bottom
Componente:
Tbiagauge
Name: Nivelh
Max-Min: +10 -10
Biagauge o progressbar
Name: Nivelv y nivelh
Max-Min: +10 -10
Bigauge o progressbar
Name: Energa
0 - 100
Shape2
Tscrollbar
vertical
Name: Barrav
Max: 10
Min: -10
Tscrollbar
Horizontal
Name: Barrah
Label 1
Procedures de los botones:
EmpezarClick
timer1.enabled:=True;
PararClick
timer1.enabled:=False;
InicioClick
shape1.top:=124;
shape1.left:=184;
SalirClick
Close;
Procedure de las barras de
desplazamiento:
barravChange
nivelv.value:=barrav.position;
energia.progress:=energia.progress-1;
barrahChange
nivelh.value:=barrah.position;
energia.progress:=energia.progress-1;
Procedure del timer
Timer1Timer
Shape1.Left := Shape1.Left + barrah.position;
Shape1.Top := Shape1.top + barrav.position;
Variante para que no se salga la nave de los lmites de la ventana a incluir en el procedimiento del timer:
If Shape1.Left<0 then Shape1.Left:=299;
If Shape1.Left>300 then Shape1.Left:=1; ->Idem para control arriba y abajo con la propiedad top

Bloc de notas. Editor de textos.
Uso de los cuadros de dilogo Abrir - Guardar imprimir...

procedure TForm1.Nuevo1Click(Sender: TObject);
begin
Memo1.Clear;
OpenDialog1.Filename := '';
Caption := 'Text Demo - [Untitled]';
end;

procedure TForm1.Abrir1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
begin
Memo1.Lines.LoadFromFile(FileName);
Caption := 'Text Demo - ' + ExtractFilename(FileName);
end;
end;

procedure TForm1.Guardar1Click(Sender: TObject);
begin
if OpenDialog1.Filename <> '' then
begin
Memo1.Lines.SaveToFile(OpenDialog1.Filename);
end
else Guardarcomo1Click(Sender);
end;

procedure TForm1.visorwebClick(Sender: TObject);
var
dire:string;
begin
dire:=ExtractFilePath(ParamStr(0)); //devuelve el path actual
WebBrowser1.Navigate('file://'+dire+'instrucciones.htm');
end;
procedure TForm1.Guardarcomo1Click(Sender: TObject);
begin
with SaveDialog1 do
if Execute then
begin
Memo1.Lines.SaveToFile(Filename);
Caption := 'Text Demo - ' + ExtractFilename(FileName);
OpenDialog1.Filename := Filename;
end;
end;

procedure TForm1.Salir1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var
CanClose: Boolean);
var
MsgResult: Word;
begin
if Memo1.Modified then
MsgResult := MessageDlg(Format('Archivo %s
modificado. Guardar?',
[OpenDialog1.Filename]), mtWarning, mbYesNoCancel,
0);
case MsgResult of
mrYes:
begin
Guardarcomo1Click(Sender);
CanClose := True;
end;
mrNo: CanClose := True;
mrCancel: CanClose := False;
end;
Ingredientes
1 texto memo (memo1)
1 cuadro abrir (opendialog1)
1 cuadro guardar (savedialog1)
1 menu (mainmenu1)
Ejercicio de aplicacin Delphi. Procesador de textos. Ventanas madre e hija

Una ventana Madre (MDI) contendr varias ventanas hijas (Child). Esta es la ventana Madre:

Aqu aparece la ventana Hija:

GroupIndex: 0
Salir: (GroupIndex: 9)
Ventana:
(GroupIndex: 9)
Cascada: Cascade;
Mosaico: Tile;
Organizar iconos:
ArrangeIcons;
Name: Madre
FormStyle:fsMDIForm
OpenFileDialog
Archivo nuevo:
procedure TMadre.Nuevo
THija.Create(Self);
end;
Archivo abrir:
procedure TMadre.Abrir1;
if OpenFileDialog.Execute then
with THija.Create(Self) do
Open(OpenFileDialog.FileName);
Mainmenu1
Procedures ventana:
Cascadaclick:
Cascade;
Mosaicoclick:
Tile:
Organizarclick:
ArrangeIcons;
Archivo: (GroupIndex: 0) Mismo que madre
Editar: (GroupIndex: 1)
Texto: (GroupIndex: 1)
Archivo salir (madre)
procedure TMadre.Salir1
Close:
end;
Archivo salir (hija) {groupindex:0}
procedure THija.Salir1
MadreSalir1(Sender);
end;
Aqu estn los procedures de la ventana Hija:
procedure THija.SetFont
begin
FontDialog1.Font := Memo1.Font;
if FontDialog1.Execute then
Memo1.Font := FontDialog1.Font;
SetEditRect;
end;
procedure THija.AlinearClick
begin
Left1.Checked := False;
Right1.Checked := False;
Center1.Checked := False;
with Sender as TMenuItem do Checked := True;
with Memo1 do
if Left1.Checked then
Alignment := taLeftJustify
else if Right1.Checked then
Alignment := taRightJustify
else if Center1.Checked then
Alignment := taCenter;
end;
procedure THija.Open(const
AFilename: string);
begin
Filename := AFilename;

Memo1.Lines.LoadFromFile(FileNam
e);
Memo1.SelStart := 0;
Caption :=
ExtractFileName(FileName);
Position := poScreenCenter;
procedure THija.Abrir1Click
begin
madre.Abri1(Sender);
end;

procedure Hija.Salir1Click;
begin
madre.Salir1Click(Sender);
end;

procedure THija.Imprimir1Click;
var
if PrintDialog.Execute then
memo1.Print(FileName);
end;

procedure THija.Impresora1Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
end;

Procedure Guardar
if (Filename = '') or IsReadOnly(Filename) then
GuardarcomoClick(Sender)
else
begin
Memo1.Modified := False;
procedure THija.Guardarcomo1Click(Sender:
TObject);
begin
SaveFileDialog.Filename := Filename;
if SaveFileDialog.Execute then
begin
Filename := SaveFileDialog.Filename;
Caption := ExtractFileName(Filename);
Modifica.Caption:=' ';{retira mensaje}
Save1Click(Sender);
end;
end;
procedure THija.Save1Click(Sender: TObject);
begin
if PathName = DefaultFileName then
Guardarcomo1Click(Sender)
else
begin
Editor.Lines.SaveToFile(PathName);
Editor.Modified := False;
end;
procedure THija.Nuevo1Click
begin
Modifica.Caption:='Otro documento nuevo';
madre.Nuevo(Sender);
end;

procedure THija.Cerrar1Click
begin
Close;
end;
procedure THija.FormClose(al cerrar la ventana hija)
begin
Action := caFree; (para que pueda ser cerrada por la
madre)
end;

procedure THija.FormCloseQuery(accin antes de
cerrar)
var
DialogValue: Integer;
FName: string;
begin
if Memo1.Modified then
begin
Confirma.showmodal; ->Muestra ventana confirma
FName := Caption;
Confirma.Label2.Caption:='Grabar '+Fname;
case Confirma.Modalresult of
mrOK: Save1Click(Self);
mrCancel: CanClose := False;
end;
procedure THija.NegritaClick(Sender: TObject);
begin
if Negrita.Down then MEMO1.Font.Style :=
MEMO1.Font.Style + [fsBold]
else MEMO1.Font.Style := MEMO1.Font.Style -
[fsBold];
end;
Bases de Datos en Delphi.
Teora:
Delphi y C++ Builder tienen mtodos de acceso a bases de datos nicos en la industria por su flexibilidad y
facilidad de uso. Se basan en TDataSet. Componente abstracto que, como su nombre lo indica, es un "set de
datos". El set de datos abstracto no especifica el origen de la base de datos .
Los componentes Table y Query son los componentes mas comnmente usados para acceso bsico a bases
de datos (pero no los nicos). Estos componentes representan una tabla y un query de SQL, respectivamente.
Para mantener el acceso de datos compatible con los diferentes productos de Borland, se desarroll una serie
de libreras redistribuibles llamada "Borland Database Engine" (BDE). Esta librera debe ser instalada en la
mquina del cliente para que TTable y TQuery funcionen correctamente. El instalador Installshield de Delphi4
las instala automticamente.
Driver o libreras de acceso a datos:
BDE: Como resultado, usted puede programar de una manera muy parecida (casi idntica!), ya sea que usted
utilice tablas de dBase (a traves de una parte del BDE conocido como Local SQL) o bases de datos grandes
como Oracle, Sybase o Interbase.
ODBC: Es un producto de Microsoft que es utilizado para accesar datos con Office, Visual Basic y otras
aplicaciones de Microsoft y de terceros. Es analogo al BDE en el sentido de que tiene drivers que actuan como
intermediarios entre los datos y conexiones, pero es diferente porque se limita a traducir llamadas SQL.
Componentes No Visuales de Acceso a Datos:
Session: Un alias se conecta a una "sesin", representada por el componente TSession. Esta sesin es una
conexin Fsica a la base de datos. Los programas de Borland pueden compartir sesiones globalmente, y cada
programa puede tener cualquier nmero de sesiones simultneas.
Database: Es la representacin de una base de datos. Delphi entender por base de datos el directorio donde
se encuentran los DBFs en cuestin, y las Tablas sern cada uno de los DBFs. Puede mezclar tablas Paradox y
dBase en el mismo directorio sin problemas.
Table (Tabla): Representa una tabla entera en Delphi. TTable
contiene informacin acerca del tipo de tabla (que solo se usa
en tablas locales - paradox, dbase, etc) y del nombre del
ndice, as como filtros. TTable tiene entre sus mtodos, First,
Next, Last, etc.

Query (Consulta): Se comporta como una tabla, pero al mismo tiempo es un comando de SQL.
Porqu SQL?: La respuesta es sencilla: COMPATIBILIDAD. Si bien es cierto que muchas compaas tienen
su propio "tipo" de SQL, la especificacin SQL-92 es soportada por todos y cada uno de los lenguajes de bases
de datos grandes. Ademas, Microsoft y Borland han aadido soporte SQL para todos sus lenguajes.
DataSource: Es una representacin del "origen de los datos". El hacer un componente intermedio es
importante porque de este modo podemos tener varias representaciones de los mismos datos
UpdateSQL: En un Query en Delphi, no podremos editar el resultado. UpdateSQL permite editar un query.
Todos los queries tienen un Edit, Insert y Delete. En el Edit, podemos poner un SQL UPDATE, en Insert
podemos poner un SQL INSERT.
TStoredProc: Permite ejecutar un comando SQL sin esperar ninguna respuesta. Es un procedimiento escrito
en lenguaje SQL. Puede ser tan sencillo como un Select con variables y un "join" de tablas, o tan complicado
como un procedimiento Batch que calcula los salarios de todos los empleados y los pone en la tabla de nmina.
Componentes Visuales de Acceso a Datos
Los componentes de este tipo son llamados "Data-aware", y tienen el prefijo "DB". De este modo, un
componente de edicin "Edit" en su versin "Data Aware" es llamado "DBEdit". ComboBox se convierte en
"DBComboBox".
DBgrid es una tabla de datos y DBControlGrid equivale a formularios contnuos.
Ademas, existe un componente llamado "DBNavigator", que es una serie de botones "mapeados" a los
comandos Next, Prior, Last, Edit, Delete, etc., de cualquier DataSource.
En Clipper (area) En Delphi (dataset)
GO TOP Dataset.First;
GO BOTTOM Dataset.Last;
Skip Dataset.Next;
Skip -1 Dataset.Prior;
Ejercicio 8. Bases de datos. Agenda de telfonos.
En Delphi escoge: Tools Database Desktop (DBD) para crear el archivo que contendr los datos Data Base File
Escoge del men del DBD: File New Table: Dbase for Windows. Crear la siguiente estructura de tabla en formato
DBF: Agenda.dbf:

Crear los ndices: APELLIDOS y
NOMBRE.
Guardar tabla (*.dbf) e ndices
(*.mdx) en el directorio del
programa.

En el formulario principal aadir los componentes de la imagen:
Aadir los componentes: Table1(Paleta BDE) y Datasource1(Paleta Data Access)
Asignar a la Datasource1 la propiedad dataset: Table1
En la Table1: La propiedad TableName es el nombre del archivo de datos: Agenda.dbf ; Name es el nombre de la
Tabla: Table1 y Databasename es la ruta donde se encuentra el archivo de datos.

Mainmenu1
Table1
DatabaseName: c:\delphi\edu
TableName: Agenda.dbf
IndexFieldNames: Apellidos
Active: True
Datasource1
Dataset: Table1
Dbgrid1
Datasource: Datasource1
DBNavigator1
Datasource:Datasource1
Label1
Edit1
Evento OnChange:
Edit1change
Procedures:
CreateForm
Table1.DatabaseName:= ExtractFilePath(ParamStr(0));
//Datos en la misma ruta donde se encuentre el programa
Application.OnHint :=muestrahints;
Edit1Change
Table1.SetRangeStart;
Table1.FieldByName('Apellidos').AsString:=Edit1.Text;
Table1.ApplyRange;

Salir1Click
Close;

StatusBar:
Name: Barraestado
visibleClick:
if visible.Checked then Form1.FormStyle :=
fsStayOnTop
else Form1.FormStyle := fsNormal;
end;
//ojo: algunas versiones de XP error del S.Op.
Cambios al ejercicio:
Aade una segunda bsqueda Edit2 para buscar por el Nombre
Aade una ventana tipo Pasword que pida la clave antes de entrar: File New Other Dialogs Password dialog
En (Project - Options - Autocreate forms): Passworddlg. Cambiar el orden para que se muestre primero la ventana de
Password antes que la principal (main). Si la respuesta es correcta, habilitar el botn OK que mostrar la principal.
//=>Mostrar infomacin en barra de estado:
Procedure muestrahints
Barraestado.Caption := Application.Hint;
PasswordChange:
If Password.text='edu' then Okbtn.enabled:=true;
Okbtnclick:
Application.CreateForm(Tform1, form1);

Panel1
PROGRAMA DE RECETAS DE COCINA PARA DELPHI. (Uso de Datos y los TabsSheets)
Crea una carpeta llamada recetas. En Delphi escoge: Tools Database Desktop para crear el archivo Data Base File
Escoge del menu del DBD: File New Table: Dbase for Windows. Crear la siguiente estructura de tabla en formato
DBF (exportable a Excel) y guardarla con el nombre: RECETAS.DBF (y su ndice Recetas.mdx) en la carpeta Recetas.

Aadir el formulario de base datos: New Form Datamodule. Llamada dm
Aadir al datamodule DM, los componetes: Table1(BDE) y Datasource1(Data Access)
Asignar a la Datasource1 la propiedad dataset: Table1
Asignar a la table1 la propiedad TableName: Recetas.dbf (nombre del archivo)
Pulsar doble clic sobre la table1 y aadir todos los campos como variables (con el botn derecho: Add fields)
En el formulario principal (File New Form) asignar la propiedad Name: Receta. Y modificarlo como la figura:

En l aadir:
- Una Toolbar y una Statusbar
(Win32)
- Un panel alineado a la derecha con
un Splitter (Additional) a su
izquierda.
- Un Pagecontrol (win32) a la
izquierda alineado al cliente.

PageControl1

Sobre el Pagecontrol, pulsar el botn
derecho del mouse y escoger: New page
y crear 9 solapas (TabSheets).
Asignar a la propiedad caption de cada
TabSheet los nombres que se muestran:
Entrantes, Vegetales, Pasta, etc

CODIGO FUENTE del programa de recetas:
var
Receta: TReceta;
var filtro: string;

procedure TReceta.PageControlChange(Sender: TObject);
begin
DM.table1.filtered:=true;
Edit1.text:='';
DM.Table1.CancelRange;
if PageControl1.activepage =tabsheet1 then Filtro:='''Entrantes''';;
if PageControl1.activepage =tabsheet2 then Filtro:='''Vegetales''';
if PageControl1.activepage =tabsheet3 then Filtro:='''Carnes''';
if PageControl1.activepage =tabsheet4 then Filtro:='''Pescados''';
if PageControl1.activepage =tabsheet5 then Filtro:='''Mariscos''';
if PageControl1.activepage =tabsheet6 then Filtro:='''Varios''';
if PageControl1.activepage =tabsheet7 then Filtro:='''Postres''';
if PageControl1.activepage =tabsheet8 then Filtro:='''Pastas''';
if PageControl1.activepage =tabsheet9 then
Begin
DM.table1.filtered:=False;
Filtro:='''Completo''';
end;
DM.table1.filter:='Tipo='+Filtro;
Panellistado.caption:='Listado '+filtro;
contar('Recetas');
end;

procedure contar(Sender: TObject);
begin
Receta.StatusBar1.panels[1].text:=inttostr(dm.Table1.RecordCount);
end;

procedure TReceta.SpeedButton1Click(Sender: TObject);
begin
if MessageDlg('Nueva receta?',mtConfirmation,[mbYes, mbNo], 0)= id_Yes then
begin
DM.table1.insert;
if PageControl1.activepage =tabsheet1 then DM.Table1TIPO.value:='Entrantes';;
if PageControl1.activepage =tabsheet2 then DM.Table1tipo.value:='Vegetales';
if PageControl1.activepage =tabsheet3 then DM.Table1tipo.value:='Carnes';
if PageControl1.activepage =tabsheet4 then DM.Table1tipo.value:='Pescados';
if PageControl1.activepage =tabsheet5 then DM.Table1tipo.value:='Mariscos';
if PageControl1.activepage =tabsheet6 then DM.Table1tipo.value:='Varios';
if PageControl1.activepage =tabsheet7 then DM.Table1tipo.value:='Postres';
if PageControl1.activepage =tabsheet8 then DM.Table1tipo.value:='Pastas';
DM.Table1TITULO.value:='';
end;
end;

procedure TReceta.SpeedButton2Click(Sender: TObject);
begin
if MessageDlg('Borrar receta?',mtConfirmation,[mbYes, mbNo], 0)= id_Yes then DM.table1.delete;
end;

Impresin:
Imprimir el formulario (ventana) : Aadir componente: Printdialog de la paleta Dialogs y en el botn imprimir escribir
el cdigo: if PrintDialog1.execute then print;
Imprimir informe de datos: Utilizar el diseador de informes Rave report o Qreport explicados en el siguiente tema.

Guarda el proyecto con el nombre: Recetas (tambin la ventana/unidad recetas1 y la ventana/datamodule dm)
procedure
TReceta.TabSheet9Enter(Sender
begin
contar('recetas');
procedure
TReceta.PageControl1Enter(Sender
begin
contar('Recetas');
procedure TReceta.contar(Sender:string);
begin
Receta.StatusBar1.panels[1].text:=sender+ ':
' + inttostr(dm.Table1.RecordCount);
end;
procedure TReceta.Edit1Change(Sender
Var
Campobusca: string;
begin
Campobusca := 'TITULO';
DM.table1.SetRangeStart;
DM.Table1.FieldByName(Campobusca).AsString:=Edit1.Text
;
DM.Table1.ApplyRange;
end;
CREACIN DE INFORMES DE IMPRESIN
Crear un informe con Rave Reports 5.0

Aadir al programa de rectas, los componetes:
RVDataSetConnection y RvProject
Con las propiedades de la figura->

En el botn para imprimir, aadir:
DM.TABLE1.refresh;
RvProject1.execute;

Pulsa doble clic sobre el objeto RvProject para
abrir el programa generador de informes: Rave
Report.

Pulsa el botn: New data Object, escoge: Direct data View
Puedes aadir las regiones, bandas y componentes Datatext de la figura,
y que se encuentran en la paleta: Report.
Recuerda especificar la propiedad Datafield a cada DataText.

Guarda al finalizar el informe con el nombre: Project1.rav en la misma
carpeta donde tienes tu proyecto de Delphi.

Truco: Cambiar el formulario de vista previa a espaol: Busca en la carpeta: Rave5\Lib los formularios:
RPFormPreview.FRM y RPFormSetup.FRM y brelos desde Delphi. Puedes cambiar el contenido de las
propiedades Caption por su equivalente al espaol. (Aconsejable hacer antes una copia de seguridad de los
formularios).

Opcional: Puedes aadir tambin un componente: RVSystem al formulario de recetas y que
enlazar con la propiedad Engine del objeto RaveReport. Este componente te permitir especificar
los parmetros de impresin y vista previa deseados.

Crear un Informe con QReport.

Otra opcin es instalar el paquete Qreport en Delphi 7. Con la opcin: Component Install Packages
Add y buscar en la carpeta: DELPHI\BIN: DCLQRT70.BPL Aparecer al final, la paleta: QReport
Crea un formulario nuevo (New form) y sueltas en el el componente de la paleta Qreport: QuickRep
Dentro de este, pon dos QRBand y cambia el tipo de banda a: Page header y Detail respectivamente.
Suelta en estas bandas los objetos: QRLabel y QrDBText.

Para ejcutarlo escribe el cdigo:
if(Application.MessageBox('Imprimir esta receta?', 'Imprimir registro - Print', MB_YESNO) = IDYES) then
Informe.QuickReport1.Print; //-> Informe.QuickReport1.Preview //-> para vista previa

Truco: Para cambiar la ventana de vista previa a espaol, abre el formulario: QRPrev.DFM que se
encuentra en la carpeta: DELPHI\LIB

INSERT INTO FACTURAS
( FACNO, NOMBRECLIENTE, CIUDAD, ESTADO )
VALUES ( 99, 'Winston Churchill', 'Londres', 'La Mera Capital' )
INSERT INTO FACTURARENGLON
( FACNO, NOMBRECLIENTE, CIUDAD, ESTADO )
SELECT 99, ITEMNO, DESCRIPTION, PRECIO_USD FROM
FACTURARENGLON WHERE FACNO = 2
SELECT
FACTURAS.FACNO,
FACTURAS.NOMBRECLIENTE,
FACTURAS.CIUDAD
ARTI.NUMARTI,
ARTI.DESCRIPCION,
ARTI.PRECIO,
FROM FACTURAS LEFT JOIN ARTI ON
FACTURAS.FACNO = ARTI.FACNO
WHERE FACTURA.FACNO = 1
LENGUAJE SQL EN DELPHI
Manipulacin de Datos mediante lenguaje SQL: SELECT, INSERT, UPDATE, DELETE

SELECT: Extrae datos de una o ms tablas indicando una lista de campos (columnas) separados por comas.
El asterisco (*) sustituye a todos los campos

FROM: Especifica la tabla o tablas (separadas por comas)
de la cual se extraen los datos.
JOIN: Junta varias tablas a travs del campo indice, que
existe en las dos tablas.

WHERE:Reduce al nmero de registros que cumplan el
criterio de bsqueda. Estos pueden utilizar los operdadores
de comparacin ( =, <, > ... ) o predicados adicionales IN,
ANY, ALL, EXISTS.

ORDER BY: La clusula Order by especifica el rden de exctraccin.

GROUP BY: Especifica cmo se agrupan las filas o registros.
UNION: Combina el resultado de dos o ms SELECTS para convertirla en una sola tabla. (JOIN)

INSERT: Aade datos de dos formas:
1.- Aade una fila (registro) a la tabla asignando valores
a dos columnas:

2.- Especifica valores a insertar mediante el estado
SELECT:
este INSERT se combina con otro SELECT para
copiar los renglones de la factura nmero dos y
ponerlos en la factura nmero 99.

UPDATE: Modifica datos de la tabla. Ej: UPDATE GOODS SET CITY = 'SANTA CRUZ' WHERE GOODS.CITY = 'SCOTTS
VALLEY'
DELETE: Borra datos de la tabla. Ej: DELETE FROM GOODS WHERE PART_NO = 'AA0093'

Funciones agregadas a SQL
SUM(), Total
AVG(), Promedio de valores no nulos
MIN(), mnimo valor
MAX(), mximo valor
COUNT(), cuenta el n de valores segn un criterio.
De fecha: Pemite extraer de una fecha: YEAR, MONTH, DAY, HOUR, MINUTE y SECOND

Substitucin de variables:
En Delphi, cuando se aade una palabra precedida por un signo de dos puntos (:), la palabra es
automticamente convertida en un parmetro, el cual es agregado a la propiedad: Params
SELECT * FROM "CLIENTS.DBF" CLIENTES WHERE Last_Name LIKE :Apellido
LIKE: devuelve todos los registros que se parezcan a la cadena. La lnea que asigna el parmetro aade un
signo de porcentaje (%) al final:
qryClientes.ParamByName('Apellido').AsString := dlgConsulta.edtApellido.Text+'%';
Sintaxis (frmula):
SELECT {Campo1 AS NombreCampo1,
Campo2, ...CampoN }
FROM {Tabla/Vista}
[ WHERE {Condicin} ]
[ LEFT JOIN OtraTabla ]
Ejemplo:
SELECT * FROM CLIENTES
WHERE CIUDAD = "MEXICO" AND ESTADO = "DF"
SELECT * FROM PARTS WHERE PART_NO > 543
SELECT * FROM PARTS ORDER BY PART_NAME ASC
SUM( Field * 10 )
SUM( Field ) * 10
SUM( Field1 + Field2 )
Ejercicio de consulta de datos con SQL
Crea una aplicacin nueva en Delphi. File New Aplication.
De la pgina: Data Access, inserta los componentes: Query y DataSource que representan las partes "no
visuales" del acceso a base de datos.
Ahora, vaya al TQuery y cambie la propiedad "Databasename" a Dudemos, que es un alias local que apunta al
directorio de Demos de Delphi.
Selecciona el Datasource. En la propiedad Dataset, selecciona: Query1
Selecciona el Query1, haz doble-click en su propiedad: SQL Escribe lo siguiente:
SELECT * from animals where upper(NAME) like :nombre order by NAME
A continuacin, vaya a la propiedad "RequestLive" de su Query y pngala en "True". Esto es importante porque
SQL siempre devuelve resultados "Read-Only", o "muertos" (dead) a menos que especifiquemos que nuestro
query debe ser "vivo" (live)
Haz doble-click en el query1. A continuacin vers una ventana vaca. Haz click con el boton derecho del mouse
y selecciona: "Add Fields". Nos aparece la lista de las "columnas" (campos) disponibles. As que simplemente
presiona {Enter} para aceptar el aadir todos los campos.

Arrastra" desde la lista de campos del query1, hasta el formulario. Cuando "sueltes" cada campo, Delphi crear
un componente TLabel y un DbEdit, listos para recibir los datos adecuados.
Para ver los datos vamos a abrir el query1 (active = true).

Completamos el formulario con los objetos que se muestran en la figura.
En la propiedad Params del Query 1 le aadimos el valor: % para que por
defecto aparezcan todos.

En el botn Filtrar, aadimos el cdigo:

En el botn Todos, escribimos:

Upper en el SQL y Uppercase en el procedure, convierten
ambos a maysculas para que no haya distincin entre
maysculas y minsculas.
El botn de radio: Edicin, cambia la propiedad del query1: RequestLive a true.
Los botones aadir y borrar aadir el cdigo: Query1.Append; y Query1.Delete; respectivamente.
Para consultar por rea, aadir otro query2 con este campo como parmetro en el SQL. Con el mismo
datasource, cambiar de uno a otro, segn se active uno u otro botn de radio.
begin
query1.active:=false;
Query1.Params[0].Value :=
UpperCase(edit1.Text)+'%';
query1.active:=true;
end;
query1.active:=false;
Query1.Params[0].Value := '%';
query1.active:=true;
Nivel Avanzado. Control de Base de datos. Relacionar dos tablas (facturacin)

Cmo crear una consulta (Query) SQL para relacionar dos tablas por un campo en comn:
Pasos previos para el ejercicio:
Crear un directorio C:\FACTU ( o similar)
Utilizar la herramienta Data Base Desktop para crear previamente las tablas de bases de datos: FACTURA.DBF y
ARTI.DBF cuyo campos mnimos sean:

Esta accin es automtica con File - New - DataBase Form.
Es conveniente usar un data module para las Datasources y las querys.
Relacionamos las facturas con sus artculos por el campo num_fact comn a los dos.
Recordar que: Query1NUM_FACT: TFloatField;
Ejercicio. Facturacin

Mtodo 2: En esta otra ventana se utilizan directamente tres tablas: Facturas Artculos y Clientes.
Lneas SQL para la Query1. :
Select
FACTURA."NUM_FACT",
FACTURA."NUM_PRES",
FACTURA."FECHA_FAC",
FACTURA."COD_CLIENT",
FACTURA."BASE_IMPON",
FACTURA."IVA",
FACTURA."TOT_FACT"
From "C:\FACTU\FACTURA.DBF"
As FACTURA
Lneas SQL para la Query2:
Select
ARTI."REFER",
ARTI."DESCRIPCIO",
ARTI."CANT",
ARTI."DESC",
ARTI."PRECIO",
ARTI."IMPORTE",
ARTI."PVP"
From "C:\FACTU\ARTI.DBF"
As ARTI
Where
"C:\PRG\FACTU\ARTI.DBF"."NUM_FACT" =:"NUM_FACT"
On Form create:
Query1.Open;
Query2.Open;
Query1

DataSource1
DataSet: Table1
Name:Table1
Data Base Name: c:\factu
TableName: FACTURA.DBF
DataSource2
DataSet: Query2
Campos
Calculados
Nota: En esta aplicacin es posible aadir y modificar datos en factura, pero no en artculos.
Para ello es necesario crear un botn para aadir artculo, que utiliza la table 2.
Las consultas SQL no permiten modificaciones en la tabla relacionada si no tenemos
RequestLive a true. Por eso trabajaremos directamente sobre las tablas en pgina siguiente.
Table2
Data Base Name: c:\factu
TableName: ARTI.DBF
Query2
ARTI."REFER",
ARTI."DESCRIPCIO",
ARTI."CANT",
ARTI."DESC",
ARTI."PRECIO",
ARTI."NUM_FACT",

FACTURA."NUM_FACT",
FACTURA."FECHA_FAC",
FACTURA."COD_CLIENT",
FACTURA."IVA",
Vase lenguaje SQL
en este manual

Para realizar la unin necesitamos un campo ndice comn
(NUM_FACT) para las dos tablas, y en la tabla de artculos, la
propiedad master fields (campo ndice maestro) se realiza la
unin de la figura.

Pulsar el botn Add y en Joined Fields (campos de unin)
aparecer:
NUM_FACT->NUM_FACT

Aadir factura
Botn calcular
Cmo borrar la ltima factura
procedure TFormfactu.EliminarClick
begin
table1.last;
numero:=table1num_fact.value;
if MessageDlg('Eliminar la factura ' + floattostr(numero)+ '?',
mtInformation, [mbYes, mbNo], 0) = mrYes
then table1.delete;
end;
procedure TFormfactu.Table1AfterDelete;
begin
ShowMessage('Eliminada la factura num. ' + floattostr(numero));
end;
Procedure para aadir una nueva factura:
Antes De estos procedures crear la
Variable numero:DOUBLE (del tipo flotante)
1 saber cul es la ltima factura

procedure TFormfactu.Table1BeforeInsert
begin
table1.last;
end;

2 sumar 1 al nmero de la ltima factura y ponrselo
a la nueva, tambin preparar la fecha de la factura
con el da de hoy:

procedure TFormfactu.Table1AfterInsert
begin
table1num_fact.value:=numero+1;
table1fecha_fac.value:=date;
table1iva.value:=16;
estado.caption:='Aadida la factura num. ' +
floattostr(numero);
end;
Botones de nuevo y borrar artculos:
procedure TFormfactu.nuevoClick -> table2.insert;
procedure TFormfactu.borraartClick -> table2.delete;
Table1: Facturas
Table2:
Artculos
Table3:Clientes
Table4:Empresa
Ejercicio Facturacin. Cmo crear un campo calculado para el IMPORTE:

Supongamos que tenemos una tabla cuya Table Name sea Articulos.dbf y que posee entre otro el campo CANT (cantidad) y
el campo PRECIO:
Pulsa doble clic encima de la tabla para activar el Fields Editor.
Pulsa el botn derecho encima y elige aadir campos (coge todos). De esta manera se declaran en la unidad PAS todos
los campos y sus tipos.
A continuacin elige New Field. Nuevo campo cuyo nombre ser IMPORT, del tipo FLOAT y CALCULATED.
Termina con OK.
Pulsa doble clic en el evento ONCALCFIELDS de la tabla. Debemos introducir una frmula para el campo.
Presta atencin al nombre que tiene los campos en el apartado TYPE de la unidad PAS y escribe el valor:
Table2IMPORT.VALUE:=Table2CANT.VALUE*Table2PRECIO.VALUE;
Para probar su funcionamiento, puedes crear 3 componentes DBEDIT para la cantidad, precio e importe. Recuerda
poner en la propiedad Paswordchart #0 para obligar a que sea un dato numrico.
Tambin es posible crear campos calculados uniendo campos de texto. Ejemplo:
CustomersCityStateZip.Value := CustomersCity.Value + ', ' + CustomersState.Value + ' ' + CustomersZip.Value;

Cmo calcular la base imponible: La base imponible no es un campo calculado, pues es el resultado de la suma de varios
campos de varios registros mientras un campo calculado se obtiene de operar con campos de un mismo registro.
Campo calculado importe (En la tabla 2 On calcfields)
procedure TFormfactu.Table2CalcFields(DataSet: TDataSet);
begin
table2importe.value:=table2cant.value*table2precio.value;
table2pvp.value:= table2importe.value*(1+table1iva.value/100);
end;

Mtodo 1. Base imponible (suma de varios registros) como consulta SQL
Para ello se debe crear una consulta SQL e incluir las siguientes lneas de comando Strings. (Este mtodo no es
aconsejado en este ejercicio pues las consultas SQL no permiten modificaciones sin RequestLive a true)

SELECT BASE_IMPON FROM FACTURAS
SUM(IMPORTE) FROM ARTICULOS WHERE NUM_FACT=:NUMERO
Mtodo 2: Base imponible con un bucle While que sume consecutivamente y uno a uno cada registro y lo almacene
en una variable numrica.
Como este mtodo es ms lento (pero ms flexible) es aconsejable crear un botn llamado "Calcular" cuyo
procedimiento al hacer clic sea el siguiente.
La visualizacin de la base imponible debe ser en un componente Label no Edit pues es ms fcil y adems no debe ser
modificable.
procedure TFormfactu.CalcularClick(Sender: TObject);
var
baseimpo: Real; {crea la variable numrica real donde se almacenar el resultado de la suma}
impiva: Real;
begin
baseimpo:=0.0;
impiva:=0.0;
table2.disablecontrols;
table2.first; {sita el puntero de registros al principio de la tabla}
while not table2.eof do {mientras no llege al End Of File...(final de la tabla) haz el bucle}
begin
baseimpo := baseimpo + table2importe.AsFloat; {suma la cantidad anterior ms la de este campo}
table2.next; {salta al siguiente campo}
end; {repite el bucle}
table2.enablecontrols;
impiva:=baseimpo*table1iva.value;
labelbaseimpo.Caption :=Floattostr(baseimpo);
end;
Ficha Listado de facturas. Crear un filtro entre dos fechas.

Impresin de la factura:
1. Crear una nueva ventana QuikReport1
2. Aadir los apartados: QrBand, QrSubdetaill y GroupFooterBand1
3. Aadir los componentes: QRLabel para etiquetas o ttulos y QRDbtext para los campos
4. Aplicar un filtro para que slo se imprima una factura

Otros procedimientos de inters:
procedure TFormfactu.FiltrarClick(Sender: TObject);
begin
if filtrar.checked=true then
begin
table1.active:=false;
consulfactu.active:=true;
consulfactu.IndexFieldNames := 'Fecha_fac';
with consulfactu do
begin
SetRangeStart; { inicio indice }
FieldByName('Fecha_fac').AsString :=
datetostr(inicio.date);
SetRangeEnd; { final indice }
FieldByName('Fecha_fac').AsString := datetostr(fin.date);
ApplyRange; { establece el rango al Dataset }
end;
end
else
begin
{no hay que poner filtrar.checked:=false;}
consulfactu.CancelRange;
consulfactu.active:=false;
ChekBox: Filtrar
Aadir 2 componentes del tipo
DateTimePickers:
Names: Inicio y Fin
QrBand. Tipo: Qtdetaill
QrSubdetaill
GroupFooterBand1
Al pulsar el botn Imprimir:

procedure
TFormfactu.SpeedButton2Click(Sende
r: TObject);
var
textofiltro:string;
begin
textofiltro:='num_fact='+floattostr(tabl
e1num_fact.value);
table1.filter:=textofiltro;
table1.filtered:=true;
quickreport1.preview;
table1.filtered:=false;
Crear un componente tabla y un datasource:

Propiedades de la tabla:
Name: Consulfactu
Table name: Factura.dbf

Propiedades del Datasource:
Dataset: Consulfactu
Por ltimo: Crear el programa de Instalacin:
Para ello utilizar el programa anexo InstallShield y seguir los pasos para crear el disco de instalacin del programa.
Recuerda que tambin debes aadir a los archivos de instalacin el control de Base de datos DBE
Cdigo fuente base de ejemplo para programa de facturacin:
unit factu1;

interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ComCtrls, ExtCtrls, Menus, DBTables,
DB, DBGrids, Mask, DBCtrls, dialogs, math, Grids;

var
Formfactu: TFormfactu;
numero:double;
baseimpo: Real;

uses empresa1, CLIENTES, Imprime1, Acerca;

procedure TFormfactu.FormCreate(Sender: TObject);
begin
table1.open;
table2.open;
table3.open;
table4.open;
table1.last;

procedure TFormfactu.Table1AfterInsert
begin
table1num_fact.value:=numero+1;
table1fecha_fac.value:=date;
table1iva.value:=16;
estado.caption:='Aadida la factura num. ' +
floattostr(numero);
end;

procedure TFormfactu.Table1BeforeInsert
begin
table1.last;
end;

procedure TFormfactu.Table1AfterDelete
begin
estado.caption:='Eliminada la factura num. ' +
floattostr(numero);
ShowMessage('Eliminada la factura num. ' +
floattostr(numero));
end;

procedure TFormfactu.EliminarClick(Sender
begin
table1.last;
if MessageDlg('Eliminar la factura n ' +
floattostr(numero)+ '?', mtInformation, [mbYes, mbNo],
0) = mrYes
then
begin
table1.delete;
table2.first;
while not table2.eof do
begin
table2.delete;
table2.next;
end;
table2.last;
table2.delete;
end;
end;

procedure TFormfactu.nuevoClick(Sender: TObject);
begin
table2.insert;
end;

procedure TFormfactu.borraartClick(Sender: TObject);
begin
table2.delete;
end;

procedure TFormfactu.Table2CalcFields
begin
table2importe.value:=table2cant.value*table2precio.valu
e;
table2pvp.value:=
table2importe.value*(1+table1iva.value/100);
end;

procedure TFormfactu.calcula1Click(Sender: TObject);
var
impiva: Real;
totfact:Real;
toteuros:Real;
begin
baseimpo:=0.0;
impiva:=0.0;
totfact:=0.0;
toteuros:=0.0;
table2.open;
table2.first;
begin
baseimpo := baseimpo + table2importe.AsFloat;
table2.next;
end;
{TFormfactu.Table1CalcFields;}
{table1base_impon.value:=baseimpo;}
impiva:=baseimpo*table1iva.value/100;
labelbaseimpo.caption:=Floattostr(baseimpo);
labelimpiva.caption:=Floattostr(impiva);
totfact:=baseimpo+impiva;
{if totfact>0 then toteuros:=totfact/table1euro.value;}
labeltotal.caption:=Floattostr(totfact);
labeleuros.caption:=Floattostr(toteuros);
end;

BUSQUEDAS DE DATOS
Bsquedas blandas desde un edit o Dbcombo.
{el Edit se llama busca y la variable Campobusca: String;}
procedure TFichero.buscaChange(Sender: TObject);
begin
Campobusca := 'Apellidos';
table1.SetRangeStart;
Table1.FieldByName(Campobusca).AsString:=busca.Text;
Table1.ApplyRange;
end;
Bsquedas duras
Table1.Open; // abrir la tabla
Table1.SetKey; // Ponemos el DataSet en situacin dsSetKey
Table1.FieldByName('Autor').AsString := 'Borges';// Damos valor al campo
Table1.GotoNearest; // Nos posicionamos en ese valor o el ms cercano
showmessage(table1.FieldbyName('Autor').AsString);
Table1.close;

var
temp:integer;
opcion:TLocateOptions;
begin
Table1.Locate('NOMBRE',Edit1.Text,[]);
end;

Los parmetros del mtodo Locate(), son;
Locate("Columna de bsqueda" ,"Dato a buscar" , [loCaseInsensitive, loPartialKey]);
cuando opcin = loCaseInsensitive ignora diferencia entre maysculas y minsculas
cuando opcin = loPartialKey resultado parcial, ejemplo si se busca "ju" se posesiona en el primer rengln donde ese
campo empiece con "ju", ejemplo Juan, juvenal, etc.

Contar el nmero de registros:
Se puede utilizar este ejemplo en el ejercicio anterior para calcular el nmero de facturas totales.
numero.caption:=IntToStr(table1.recordcount)+' fichas';

FILTROS EN TABLAS DELPHI
Existen dos maneras de poner filtros o condiciones para una tabla, ellas son:
1.- Interna, En el componente Table, modificar las propiedades: propiedad Filter = condicin y propiedad Filtered = true
Ejemplos para la tabla de clientes:
ClaveCliente < 3 , Ciudad <> Tarragona , ClaveCliente > 2 and Ciudad = Tarragona

2,- Externa, es el usuario quien construye el filtro o condicin, usando un componente Edit para el filtro y un botn de
ordenes (OK) para que se ejecute y despliegue la tabla filtrada, el cdigo en dicho botn es;
onclickbutton1()
Table1.Filter = Edit1.Text;
Table1.Filtered = true;
Ejmplo:
procedure TForm1.botonfiltroClick(Sender: TObject);
begin
if botonfiltro.Down=true then
begin
CalcularClick(Sender);
table1.Filter:='PROVINCIA ='+StaticTextaProv.Caption;
table1.Filtered:=true;
end
else table1.Filtered:=false;
Ofimega Manual Ejercicios - Programacin BORLAND DELPHI Rev - ago-08 Pg 37
Programa facturacin Pasos bsicos.
1. Crear las tablas:
2. Crear un nuevo form (New Form) Datamodule1, con el nombre: DM.
3. Insertar el el DM las tablas para Facturas y artculos: Table_facturas y table_articulos, asignarles los
indexnames creados y aadir dos datasources: Datasource_facturas y Datasource_articulos.
4. Aadir: All fileds al la table facturas y artculos.

5. Seleccionar
todos los
campos de
tablefacturas y
soltar sobre el
form principal
llamado:
Facturacin

6. Crear un
DBgrid con
Align al bottom
y asignarle la
datasource de
articulos.
Luego aadir
todos los
campos al
dBGrid de
artculos.

7. Para relacionar
facturas con
artculos
debemos
volver al DM y
elegir en
mastersource
de artculos el
Datasource de
facturas.
Luego, en el
MasterFields,
relacionar los campos NUM_Fact de cada tabla. Activar ambas tablas (active=true) para ver el
funcionamiento.
8. Aadir en el form principal un DBNavigator para las facturas.
9. Crear el campos calculados:
Asignar a un campo existente un calculado: Para el importe: En la table_articulos poner en el evento:
onCalcfileds: Table_articulosimporte.Value:=Table_articuloscant.Value*Table_articulosprecio.Value;
Luego poner en el campo Importe su propiedad: FieldKind: fkCalculated

Crear un campo
calculado nuevo:
llamado PVP (como
referencia):
En la table_articulos
anadir un New field
del tipo: Flota y
calculado.

Aadir al evento: On
CalcFileds: Table_articulosPVP.Value:=Table_articulosprecio.Value*(1+Table_facturasiva.Value/100);

10. Crear un botn: Calcular para calcular la base imponible.

Procedure TForm1.Calcular1Click(Sender: TObject);
var
baseimpo:double; //-> variable temporal de baseimponible
num_rec:pointer; //-> puntero de registro
begin
with dm do
begin
table_articulos.disablecontrols; //-> evita cambiar registro el usuario
num_rec:=table_articulos.GetBookmark; //-> coge num de registro
table_articulos.first;
while not table_articulos.eof do {mientras no llege al End Of File...(final de la tabla) haz el bucle}
begin
baseimpo := baseimpo + table_articulosimporte.AsFloat; {suma la cantidad anterior }
table_articulos.next;
end;
table_articulos.enablecontrols;
table_facturas.Edit;
Table_facturasBASE_IMPO.Value:=baseimpo;
Table_facturasIMP_IVA.Value:=baseimpo*table_facturasiva.value/100; //->importe del IVA
Table_facturasTOTAL.Value:=baseimpo*(1+table_facturasiva.value/100); //->Total factura
table_facturas.post;
table_articulos.GotoBookmark(num_rec); //-> vuelve al registro que estaba
end;
end;

Clculo automtico: Por ltimo, para calcular automtico, aadir al evento del la table_articulos: AfterPost:
Table_articulosAfterPost: Form1. Calcular1Click(nil); // llama al procedure sin sender

Mejoras:
Aadir el componente DBCombobox al % de IVA con los items: 0,7,12,16. En el campo IVA del DataModule
cambiar su DefaultExpression = 16.
Para autoincrementar el nmero de factura: Como no existe del tipo Autonumerico en Dbase, no vale con
cambiar el Autogeneratevalue a AutoInc sino escribir el cdigo:
Var pblica en el Data module: Numero:single:
Table_facturasBeforeInsert: Table_facturas.last;
Numero:=Table_facturasNUM_FACT.value;
Table_facturasAfterInsert: Table_facturasNUM_FACT.value:=numero+1;

Control de registros de una base de datos.Navegator manual.

Aadir al formulario los botones: Adelante , atrs primero ltimo, aadir y borrar.

procedure TForm1.primeroClick(Sender: TObject);
begin
with table1 do
begin
if sender=primero then first
else if sender=anterior then prior
else if sender=siguiente then next
else if sender=ultimo then last
else if sender=nueva then
begin
if(Application.MessageBox('Crear nuevo registro?', 'Agregar registro', MB_YESNO) = IDYES) then
begin
table1.append; //-> Inserta
table1.Post; //-> Guarda
end;
end
else if sender=borrar then
begin
if(Application.MessageBox('Confirma que desea eliminar este registro?', 'Confirmar eliminacin de registro',
MB_YESNO) = IDYES) then delete;
end;
Table1.Refresh;
StatusBar1.panels[1].text:='Total registros: '+ inttostr(Table1.RecordCount);
end; Table_facturasFECHA_FACT.value:=date;

ActionList y ActionManager: Procesador de textos utilizando el componente ActionList
Escoge: Archivo Nuevo proyecto
Cambia la pripiedad: Form1.caption = Editor de textos
Aadir componentes al formulario:
- Aadiremos un componente RichEdit de la paleta win32.
Una vez sobre el formulario cambiar la propiedad align a client.
- Pulsa doble clic en el componete StatusBar de la paleta win32 y este
se aadir abajo del formulario como barra de estado.
Para crear un panel en la barra de estado:
En la propiedad SimpleText -> escribir: Sin ttulo.txt.
En la propiedad Panels abrir el cuadro de Panels
Clic en el botn New para aadir un panel a la barra de estado
statusbar1. Cierra el cuadro.
- Aadir men y barra de herramientas:
De la paleta estandar escoge el componente: Mainmen1
De la paleta Win32 escoge el componente: ToolBar
Agrupar acciones mediante Action list:
Para agrupar las acciones del men y de la barra de herramientas Delphi proporciona un action manager para centralizar
ambos cdigos e imgenes.
En la paleta adicional, haga doble clic en el componente: ActionManager o en la paleta estandar: action list. Para aadirlo al
formulario. Como es un componente no visual, se puede poner en cualquier sitio.
Para ver los captions de componetes no visuales escoga: Tools - Environment Options, clic en Designer page, y seleccionar:
Show component captions, OK..
Menu Comando Herramientas? Descripcin
Archivo Nuevo S Creates a new file.
Archivo Abrir S Opens an existing file for editing.
Archivo Guardar S Saves the current file to disk.
Archivo Guardar
como
No Saves a file using a new name (also lets you save a
new file using a specified name).
Archivo Salir S Quits the editor program.
Edicin Cortar S Deletes text and stores it in the clipboard.
Edicin Copiar S Copies text and stores it in the clipboard.
Edicin Pegar S Inserts text from the clipboard.
Ayuda Contenido No Displays the Help contents screen from which you
can access Help topics.
Ayuda Indice No Displays the Help index screen.
Ayuda Acerca.. No Displays information about the application in a box.

Doble-clic en Action list para abrirlo
En Editing Form1.ActionManager1 pulsar el botn: New Action. En sus
propiedades escribir:
Caption = &New
Category = Archivo
Hint = Crea un archivo nuevo
ImageIndex = 6 (imagen 6 de ImageList)
Name = FileNew
Pulsar el botn: New Action. En sus propiedades escribir:
Caption = &Guardar
Category = Archivo
Hint = Guarda el archivo
ImageIndex = 8 (imagen 8 de ImageList)
Name = FileSave
Caption = &Indice
Category = Ayuda
Hint = Indice ayuda
Name = HelpIndex
Caption = &Acerca
Category = Ayuda
Hint = Acerca de
Name = HelpAbout
Variante: ActionManager

Similar a Actionlist, tenemos el componente:
ActionManager en la paleta Adicional. Va en
combinacin con Actionmainmen y Actiontoolbar.
Permite la apariencia Office XP y permite
personalizar las barras de herramientas y el men en
tiempo real, con el componete: CustomizeDlg.
Aadir acciones estandar al acion list (open, save as, exit, cut, copy, paste, help)
Pulsar el botn derecho del mouse a escoger del men contextual:
aadir New estndar Action: Aadir las acciones: TEditCut,
TEditCopy, y TEditPaste. Se crear la categora Edit

En la categora archivo o File aade: TFileOpen, TFileSaveAs, and
TFileExit.

En la categora Help aade THelpContents.

Guarda el proyecto: File - Save All

Aadir imagenes al image list
Truco: Abre el arcivo (Archivo abrir) : C:\Archivos de programa\Borland\DelphiX\Source\Vcl\ActnRes.pas.
Aparece un ejemplo con las imgenes estndar ya listas.
Tambin puedes Pulsar Add y buscar las imgenes en: C:\Archivos de programa\Archivos comunes\Borland
Shared\Images\Buttons

Aadir un men:
De la paleta estandar escoge el componente: Mainmen1 y pulsa doble clic,
para aadirlo al formulario.

Pulsa luego doble clic sobre el componente del formulario mainmenu1 para
editarlo.

En la propiedad: imagelist escoge :imagelist1

Puedes usar el botn derecho del mouse sobre el men para aadir
elementos al men desde la plantilla: Insert from template. O aadir los
elementos manualmente usando el botn derecho del mouse sobre el men y
escoger Insert.

Aadir barra de herramientas:
De la paleta Win32 escoge el componente: ToolBar y pulsa doble clic, para aadirlo al formulario.
En la propiedad: imagelist escoge :imagelist1
Pulsa el botn derecho del mouse para aadir botones a la barra de herramientas
En la propiedad de cada botn de Action: Busca la actionlist deseada.
Edit|Cut 0
Edit|Copy 1
Edit|Paste 2
File|New 6
File|Open 7
File|Save 8
File|SaveAs 30
File|Exit 43
Help|Contents 40
Ejercicio Delphi 7. Estadstica. Grfico con base de datos.
Ingredientes:
Crear una tabla, escogiendo del men: Tools Data base desktop con los campos
Nombre(de carcter o texto) y valor (numrico entero) guardar la tabla de datos con el
nombre: Datos.dbf.
Aadir los componentes Table y datasource al formulario.
El las propiedades de table1 y datasource 1 cambiar:

Aadir campos para variables y campos calculados:
Sobre Table1, pulsar doble clic y elegir con el botn derecho del mouse: Add all fiels.
Sobre Table1, pulsar doble clic y elegir con el botn derecho del mouse: New field -> Porciento del tipo:
Float Calculated.
De la paleta DataControls, aadir al formulario un Dbgrid, y
en su propiedad datasource: poner datasource1.
Aadir el grfico:
De la paleta Datacontrols, aadir un DBChart. Pulsar doble
clic y en la solapa series poner como en la figura.
En la solapa Chart, aadir la serie1 de la figura.
Aadir la serie (Add) tipo Bar.
Aadir un botn para calcular
Aadir un botn al formulario para calcular la
suma de valores.
Al pulsar se genera el evento:

Ejercicio propuesto: Aadir un campo calculado a la tabla Decil y cuartil . En el evento: OnCalcFields de la tabla
escribir: Table1Decil.value:=table1porciento.Value/10;
Table1Cuartil.value:=table1porciento.Value/25;
Ejercicio propuesto2: 2: Aadir un componente WebBrowser: En el Form1.Oncreate:
dire:=ExtractFilePath(ParamStr(0));
WebBrowser1.Navigate('file://'+dire+'estadistica.htm');
Propiedades de table1 Propiedades de datasource1
Table name: Datos.dbf Dataset: table1
Name: Table1
Active: True
procedure TForm1.calcula1Click(Sender: TObject);
var
suma,xmax,xmin,media:single;
antes:single;
begin
suma:=0;
dessuma:=0;
varsuma:=0;
table1.First;
antes:=table1valor.value;
begin
xmax:=max(table1valor.value,antes);
suma:=suma+table2valor.value;
table1.Next;
antes:=table1valor.value;
end;
if Table1.RecordCount<1 then
showmessage('Introduzca valores en la tabla para
calcular') else
begin
media:=suma/Table1.RecordCount;
table1.refresh;
table1.Edit;
table1.First;
table1.DisableControls; // -> ojo
begin
table2.edit;
table2porciento.Value:=roundto((table2valor.value/suma
)*100,-2);
table2.Next;
end;

Cdigos de ejemplo tpicos de eventos en Procesadores de texto y ventanas madre-hija:

Trabajar con ventanas

Salir. Cerrar ventana.
procedure TForm1.FileExitClick(Sender: TObject);
begin
Close;
end;
Pregunta para cerrar.
procedure TForm1.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
if MessageDlg('Salir del programa ?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;
Evento al cerrar hija (on close)
procedure THija.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
Action := caFree; {Close Action Permitido}
end;
Abrir ventana Acerca de...
procedure TForm1.AboutClick(Sender: TObject);
begin
AboutBox.ShowModal;
end;
Poner nombre del archvo a una ventana.
Ventana.Caption := ExtractFileName(FileName);
Ventana mosaico.
procedure TFrameForm.Tile1Click(Sender: TObject);
begin
Tile;
end;
Ventana cascada.
procedure TFrameForm.Cascade1Click(Sender:
TObject);
begin
Cascade;
end;
Ventana organizar.
procedure TFrameForm.ArrangeIcons1Click(Sender:
TObject);
begin
ArrangeIcons;
end;
Nueva ventana hija. (desde la madre)
procedure TPrincipal.Nuevo1Click(Sender: TObject);
var
Hija: THija;
begin
Hija:= THija.Create(Application);
Hija.Show;
end;
Nueva ventana hija. (desde la hija)
procedure THijaNew1Click(Sender: TObject);
begin
Ventana.Caption:='nuevo';{retira mensaje}
PrincipalForm. Nuevo1Click(Sender);
end;
Abrir ventana hija.
procedure TFrameForm.OpenChild(Sender: TObject);
var
EditForm: TEditForm;
begin
if OpenFileDialog.Execute then
begin
EditForm := TEditForm.Create(Self);
EditForm.Open(OpenFileDialog.Filename);
EditForm.Show;
end;
end;
Trabajar con textos

Abrir texto en un componente memo.
procedure TForm1.FileOpenClick(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
begin
Memo1.Lines.LoadFromFile(FileName);
Caption := 'Text Demo - ' +
ExtractFilename(FileName);
end;
end;
Guardar texto memo.
procedure TForm1.Save1Click(Sender: TObject);
begin
if OpenDialog1.Filename <> '' then
begin
Memo1.Lines.SaveToFile(OpenDialog1.Filename);
end
else SaveAs1Click(Sender);
end;
Guardar como... texto memo.
procedure TForm1.SaveAs1Click(Sender: TObject);
begin
with SaveDialog1 do
if Execute then
begin
Caption := 'Text Demo - ' +
ExtractFilename(FileName);
OpenDialog1.Filename := Filename;
end;
end;
Dilogo Buscar texto.
procedure TForm1.Find(Sender: TObject);
begin
with Sender as TFindDialog do
if not SearchMemo(Memo1, FindText, Options) then
ShowMessage('Cannot find "' + FindText + '".');
end;
Dilogo Reemplazar texto.
var
Found: Boolean;
begin
with ReplaceDialog1 do
begin
if AnsiCompareText(Memo1.SelText, FindText) = 0
then
Memo1.SelText := ReplaceText;
Found := SearchMemo(Memo1, FindText, Options);
while Found and (frReplaceAll in Options) do
begin
Trabajar con archivos.

Detectar directorio.
procedure TFMForm.DirectoryOutlineChange(Sender:
TObject);
begin
FileList.Directory := DirectoryOutline.Directory;
DirectoryPanel.Caption := DirectoryOutline.Directory;
end;
Detectar lista de archivos.
procedure TFMForm.FileListChange(Sender: TObject);
var
TheFileName: string;
begin
with FileList do
begin
if ItemIndex >= 0 then
begin
TheFileName := FileName;
FilePanel.Caption := Format('%s, %d bytes',
[TheFileName, GetFileSize(TheFileName)]);
end
else FilePanel.Caption := '';
end;
end;
Ejecutar archivo.
procedure TFMForm.Open1Click(Sender: TObject);
begin
with FileList do
ExecuteFile(FileName, '', Directory, SW_SHOW);
end;

Copiar, renombrar, mover archivos.
procedure TFMForm.FileChange(Sender: TObject);
begin
with ChangeForm do
begin
if Sender = Move1 then Caption := 'Move'
else if Sender = Copy1 then Caption := 'Copy'
else if Sender = Rename1 then Caption := 'Rename'
else Exit;
CurrentDir.Caption := FileList.Directory;
FromFileName.Text := FileList.FileName;
ToFileName.Text := '';
if (ShowModal <> idCancel) and (ToFileName.Text
<> '') then
ConfirmChange(Caption, FromFileName.Text,
ToFileName.Text);
end;
end;
Borrar archivos.
procedure TFMForm.Delete1Click(Sender: TObject);
begin
with FileList do
if MessageDlg('Delete ' + FileName + '?',
mtConfirmation,
[mbYes, mbNo], 0) = idYes then
if DeleteFile(FileName) then Update;
end;

Trabajar con bases de datos.

Abrir base de datos.
procedure TDbMainForm.OpenDbClick(Sender:
TObject);
begin
if OpenDbDlg.ShowModal = mrOk then
TDbBrowseForm.Create (Application,
OpenDbDlg.AliasName)
end;

Llamadas a procedimientos
En el men: Archivo Mover y Copiar llaman al mismo
evento Filechange

procedure TFMForm.FileChange(Sender: TObject);
begin
with ChangeDlg do
begin
if Sender = Move1 then Caption := 'Mover'
else if (Sender = Copy1) or (Sender = copiara) or
(Sender = Copiara1) then Caption := 'Copiar'
else if Sender = Rename1 then Caption := 'Renombrar'
else Exit;
CurrentDir.Caption := Statusbar.panels[2].text;
FromFileName.Text := FileList.FileName;
ToFileName.Text := '';
if (ShowModal <> mrCancel) and (ToFileName.Text
<> '') then ConfirmChange(Caption, FromFileName.Text,
ToFileName.Text);
{Llama al procedimiento confirmchange pasandole tres
variables de texto}
end;
end;

Procedure TFMForm.ConfirmChange(const ACaption,
FromFile, ToFile: string);
begin
if MessageDlg(Format('%s %s to %s?', [ACaption,
FromFile, ToFile]),
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
if ACaption = 'Mover' then
MoveFile(FromFile, ToFile)
else if ACaption = 'Copiar' then
CopyFile(FromFile, ToFile)
else if ACaption = 'Renombrar' then
RenameFile(FromFile, ToFile);
FileList.Update;
end;
end;

Cmo crear un programa de Instalacin:

Utiliza el programa Delphi Insatll Shield
Express para crear un programa de
instalacin de tu programa
Ejercicio Resumen de controles ms usuales.
Introduce los controles que se muestran en la figura
y cambia las siguientes propiedades entre otras
para que quede como en la 2 figura:
Label 8: Nombre: VerAscii
Backcolor: Blanco
BorderStyle: 1-Fixed single
Command1: Caption: &Salir
Label 1: Nombre: Carcter
Label2: Nombre: ASCII
Backcolor: blanco
BorderStyle: 1-Fixed single
Label5: Nombre: rojo
Caption: Rojo
Alignment: 2-Center
Frame1: Nombre: colores
caption: colores

Cambiar label2 (ASCII) por text1 (ASCII)

Hscroll1:
Name: Barracodigo
Max: 255
Min: 32
Hscroll2:
Name: ColorRojo
Max: 255
Min: 0
Hscroll3:
Name: ColorVerde
Max: 255
Min: 0
Hscroll5:
Name: TamCaracter
Max: 80
Min: 6
Private Sub Form_Load()
VerAscii.FontName = "Times New
Roman" //'tipo de letra
End Sub
Private Sub TamCaracter_Change()
VerAscii.FontSize = TamCaracter.Value
'tamao
Label4.Caption = "Tamao-" +
Str(TamCaracter.Value)
End Sub
Private Sub Colorrojo_Change() Nota: Idem colorverde ycolorazul
VerAscii.ForeColor = RGB(Colorrojo.Value, Colorverde.Value, ColorAzul.Value)
Rojo.Caption = "Rojo -" + Str(Colorrojo.Value)
End Sub

Private Sub Barracodigo_Change()
ASCII.Text = Chr(Barracodigo.Value)
VerAscii.Caption = Chr(Barracodigo.Value)
Label3.Caption = "Valor Ascii-" + Str(Barracodigo.Value)
End Sub
Private Sub ASCII_Change()
VerAscii.Caption = Chr(Barracodigo.Value)
If ASCII.Text <> "" Then Barracodigo.Value = Asc(ASCII.Text)
End Sub
Ejercicio . Mariposa.
A cada impulso del timer la imagen1 se intercambia con las otras dos y avanza. Las otras dos imgenes deben
estar ocultas y el timer activado (enabled).
Ejercicio . Visor de imgenes

Name: Alasabiertas
Name: Alascerradas
Name: Imagen1
Name:Timer1
Interval:200
Name:Command1
Caption: &Salir
Private Sub Timer1_Timer()
Static Flag As Integer
Imagen1.Move Imagen1.Left + 20, Imagen1.Top - 5
If Flag = 1 Then
Imagen1.Picture = alasabiertas.Picture ' Muestra la
imagen de la mariposa con las alas abiertas.
Flag = 0 ' Alterna el valor.
Else
Imagen1.Picture = alascerradas.Picture ' Muestra la
imagen de la mariposa con las alas cerradas.
Flag = 1
End If
End Sub
Drivelistbox
Name: Drive1
Dirlistbox
Name: Dir1
Filelistbox
Name: File1
Image
Name: Open
Label: Label1
Command1 - Salir
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
file1.Path = Dir1.Path
End Sub
Private Sub File1_DblClick()
' en (C:\) , Path tiene una barra (\) al final
' en cualquier otro nivel, no hay barra (\) final.
If Right(file1.Path, 1) <> "\" Then
label1.Caption = file1.Path & "\" & file1.filename
Else
label1.Caption = file1.Path & file1.filename
End If
Form1.open.Picture = LoadPicture(label1.Caption)
End Sub
Private Sub Form_Load()
Drive1.Drive = App.Path
Dir1.Path = App.Path
End Sub
Procedimientos y funciones bsicas de Delphi (alfabtico)
Abs Returns the absolute value of the
argument.
AnsiCompareStr Performs a case sensitive compare of two
strings.
AnsiCompareText Performs a non-case sensitive compare of
two strings.
AnsiLowerCase Converts characters to lowercase.
AnsiUpperCase Converts characters to uppercase.
Append Opens an existing file for appending.
AppendStr Adds a given string to an existing string
ArcTan Returns the arc tangent of the argument.
AssignCrt Associates a text file with a CRT window.
Assigned Tests to determine if a procedural, pointer,
or Delphi object variable is nil.
AssignFile Assigns the name of an external file to a
file variable.
BlockRead Reads one or more records into a variable.
BlockWrite Writes one or more records from a
variable.
Break Terminates a for, while, or repeat
statement.
ChangeFileExt Changes a file's extension.
ChDir Changes the current directory.
Chr Returns a character with a specified
ordinal number.
CloseFile Closes an open file.
ClrEol Clears all characters from the cursor
position to the end of the line without
moving the cursor.
ClrScr Clears the screen and returns the cursor
to the upper left corner.
Concat Concatenates a sequence of strings.
Continue Continues a for, while, or repeat
statement.
Copy Returns a substring of a string.
Cos Returns the cosine of the argument (x is
an angle, in radians).
Date Returns the current date.
DateTimeToFileDate Converts the Delphi date format to the
DOS date format.
DateTimeToStr Converts a value from time format to a
string.
DateTimeToString Converts a value from time format to a
string.
DateToStr Converts a value from date format to a
string.
DayOfWeek Returns the current day of the week
Dec Decrements a variable.
DecodeDate Decodes the specified date
DecodeTime Decodes the specifies time.
Delete Deletes a substring from a string.
DeleteFile Deletes the given file.
DiskFree Returns the amount of free disk space.
DiskSize Returns the size of the specified disk.
EncodeDate Returns values specified in date format.
EncodeTime Returns values specified in time format.
Eof Returns the end-of-file status.
Eoln Returns the end-of-line status of a text file.
Erase Erases an external file.
Exit Exits immediately from the current block.
Exp Returns the exponential of the argument.
ExpandFileName Expands the given file name.
ExtractFileExt Returns the file extension.
ExtractFileName Returns the file name.
ExtractFilePath Returns the complete file path.
FileAge Returns the age of the file.
FileClose Closes a file.
FileDateToDateTime Converts a DOS date format to the Delphi
date format.
FileExists Returns True if file exists.
FileGetAttr Returns file attributes
FileGetDate Returns the DOS date-and-time stamp of
the file.
FileOpen Opens a specific file.
FilePos Returns the current file position of a file.
FileRead Reads from a specific file.
FileSearch Searches through the directories for a
specific file.
FileSeek Changes the current position of the file.
FileSetAttr Sets file attributes
FileSetDate Sets the DOS date-and-time stamp of the
file.
FileSize Returns the current size of a file.
FillChar Fills a specified number (count) of
contiguous bytes with a specified
value.
FindClose Terminates a FindFirst/FindNext
sequence.
FindFirst Searches a directory for a specified file
name and set of attributes.
FindNext Returns the next entry that matches the
name and attributes.
FloatToDecimal Converts a floating-point value to a
decimal representation.
FloatToStrF Converts the floating-point value to its
string representation.
FloatToStr Converts the floating-point value to its
string representation.
FloatToText Converts the given floating-point value to
its decimal representation.
FloatToTextFmt Converts the given floating-point value to
its decimal representation.
FmtLoadStr Loads a string from a program's resource
string table
FmtStr Formats a series of arguments and the
results are returned in the parameter
Result.
Format Formats a series of arguments and returns
the result as a Pascal string.
FormatBuf Formats a series of arguments
FormatDateTime Formats a date and time using the
specified format.
FormatFloat Formats the floating-point value using the
format string given by Format.
Frac Returns the fractional part of the
argument.
Free Destroys an object instance.
FreeMem Disposes a dynamic variable of a given
size.
GetDir Returns the current directory of specified
drive.
GetMem Creates a dynamic variable of the
specified size and puts the address of
the block in a pointer variable.
GotoXY Moves the cursor to the given coordinates
within the virtual screen.
Halt Stops program execution and returns to
the operating system.
Hi Returns the high-order byte of the
argument.
High Returns the highest value in the range of
the argument.
Inc Increments a variable.
Include Includes an element in a set.
InitWinCrt Creates the CRT window if it has not
already been created.
Insert Inserts a substring into a string.
Int Returns the Integer part of the argument.
IntToHex Converts an integer to a hexidecimal
IntToStr Converts an integer to a string
IOResult Returns the status of the last I/O operation
performed.
IsValidIdent Returns true if the given string is a valid
identifier.
KeyPressed Determines if a key has been pressed on
the keyboard.
Length Returns the dynamic length of a string.
Ln Returns the natural logarithm of the
argument.
Lo Returns the low-order Byte of the
argument.
LoadStr Loads the string resource from the
application's executable file.
Low Returns the lowest value in the range of
the argument.
LowerCase Lowercases the given string
MaxAvail Returns the size of the largest contiguous
free block in the heap.
MemAvail Returns the amount of all free memory in
the heap.
MkDir Creates a subdirectory.
Move Copies bytes from source to dest.
New Creates a new dynamic variable and sets
a pointer variable to point to it.
NewStr Allocates a new string on the heap.
Now Returns the current date and time.
Odd Tests if the argument is an odd number.
Ofs Returns the offset of a specified object.
Ord Returns the ordinal number of an ordinal-
type value.
ParamCount Returns the number of parameters passed
to the program on the command line.
ParamStr Returns a specified command-line
parameter.
Pi Returns the value of Pi.
Pos Searches for a substring in a string.
Pred Returns the predecessor of the argument.
Ptr Converts a segment base and an offset
address to a pointer-type value.
Random Returns a random number.
Randomize Initializes the built-in random number
generator with a random value.
Read For typed files, reads a file component into
a variable. For text files, reads one or
more values .
ReadBuf Inputs a line from the CRT window.
ReadKey Reads a character from the keyboard.
Readln Executes the Read procedure, then skips
to the next line of the file.
ReAllocMem Deallocates a block from the heap.
Rename Renames an external file.
RenameFile Renames a file.
Reset Opens an existing file.
Rewrite Creates and opens a new file.
RmDir Removes an empty subdirectory.
Round Rounds a real-type value to an Integer-
type value.
RunError Stops program execution.
ScrollTo Scrolls the CRT window to show a screen
location.
Seek Moves the current position of a file to a
specified component.
SeekEof Returns the end-of-file status of a file.
SeekEoln Returns the end-of-line status of a file.
Seg Returns the segment of a specified object.
SetTextBuf Assigns an I/O buffer to a text file.
Sin Returns the sine of the argument.
SizeOf Returns the number of bytes occupied by
the argument.
SPtr Returns the current value of the SP
register.
Sqr Returns the square of the argument.
Sqrt Returns the square root of the argument.
SSeg Returns the current value of the SS
register.
Str Converts a numeric value to a string.
StrCat Appends a copy of one string to the end of
another and returns the concatenated
string.
StrComp Compares two strings.
StrCopy Copies one string to another.
StrDispose Disposes a string on a heap.
StrECopy Copies one string to another and returns a
pointer to the end of the resulting
string.
StrEnd Returns a pointer to the end of a string.
StrFmt Formats a series of arguments.
StrLCat Appends characters from one string to the
end of another and returns the
concatenated string.
StrIComp Compares two strings without case
sensitivity.
StrLComp Compares two strings, up to a maximum
length.
StrLCopy Copies characters from one string to
another.
StrLen Returns the number of characters in Str.
StrLFmt Formats a series of arguments and the
result contains a pointer to the
destination buffer.
StrLIComp Compares two strings, up to a maximum
length, without case sensitivity.
StrLower Converts a string to lower case.
StrMove Copies characters from one string to
another.
StrNew Allocates a string on a heap.
StrPas Converts a null-terminated string to a
Pascal-style string.
StrPCopy Copies a Pascal-style string to a null-
terminated string.
StrPos Returns a pointer to the first occurrence of
a string in another string.
StrScan Returns a pointer to the first occurrence of
a character in a string.
StrRScan Returns a pointer to the last occurrence of
a character in a string.
StrToDate Coverts a string to a date format.
StrToDateTime Converts a string to a date/time format.
StrToFloat Converts the given string to a floating-
point value.
StrToInt Converts a string to an integer
StrToIntDef Converts a string to an integer or the
default
StrToTime Converts a string to a time format.
StrUpper Converts a string to upper case.
Succ Returns the successor of the argument.
Swap Swaps the high- and low-order bytes of the
argument.
TextToFloat Converts the null-terminated string to a
floating-point value.
Time Returns the current time.
TimeToStr Converts a time format to a string.
TrackCursor Scrolls the CRT window if necessary to
ensure that the cursor is visible.
Trunc Truncates a real-type value to an Integer-
type value.
Truncate Truncates the file at the current file
position.
TypeOf Returns a pointer to an object type's virtual
method table.
UpCase Converts a character to uppercase.
UpperCase Uppercases the given string.
Val Converts a string value to its numeric
representation.
WhereX Returns the X coordinate of the current
cursor location.
WhereY Returns the Y coordinate of the current
cursor location.
Write For typed files, writes a variable into a file
component. For text files, writes one
or more values to the file
WriteBuf Writes a block of characters to the CRT
window.
WriteChar Writes a single character to the CRT
window.
Writeln
Trucos tiles para Delphi. (Vase http://www.latiumsoftware.com/es/delphi/index.php)

if ShellExecute(Form1.Handle, nil, 'c:\windows\general.txt',
nil, nil, SW_SHOWNORMAL) <= 32 then
Application.MessageBox('No se pudo ejecutar la aplicacin', 'Error', MB_ICONEXCLAMATION);

Ejecutando una aplicacin externa:
ShellExecute(Manejador, Operacin, NombreFichero, Parmetros, Carpeta, Mostrar)
Ejemplo: ShellExecute(Form1.Handle, nil, 'c:\windows\notepad.exe', nil, nil, SW_SHOWNORMAL);


Introduccin a la
Programacin En Windows.

Borland
DELPHI 7-2005-2007

DELPHI 7-2005-2007

Delphi PDF

Cargado por

Copyright:

Formatos disponibles

Delphi PDF

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Delphi PDF

Cargado por

Copyright:

Formatos disponibles

Ofimega acadmies Manual Ejercicios - Programacin Borland Delphi Imp - ago-08 Pg 1

Introduccin a la Programacin En Windows. Borland DELPHI 7-2005

También podría gustarte