Delphi: conceptos basicos, trucos y apuntes de interés

En este artículo es una especie de chuleta / quick reference card / resumen / recopilación de información básica y necesaría en día a día de la programación en Delphi.

Conforme lo voy elaborando intentaré mantener un estilo resumido poniendo únicamente la información más relevante (los detalles siempre se pueden consultar en la ayuda, que es bastante extensa).

Estructura de una clase

unit nombreUnit

interface

[uses UnitA, UnitB...;

declaraciones de la clase

exports rutinaA,rutinaB...;  //para exportar rutinas de una libreria con su unit en la cláusula uses

type Tipos_de_variable;  //declaración de tipos de variables

var Variables]  //visible en todas las unit que usen ésta

implementation

[{$R *.dfm}  //si tiene formulario asociado
{$R WindowsXP.res}  //para efectos visuales tipo XP
{$R nombreRecurso.res}

exports rutinaA,rutinaB...;

uses UnitAA,UnitBB...;

var Variables;]

código...
código...
código...
código...

[initialization código_de_inicialización;]
[initialization código_de_inicialización;
finalization código_de_finalización;]

end.

Notas:

• Las variables declaradas en la sección interface son visibles en la unit y allí donde la unit esté en la cláusula uses.
• Las variables declaradas en la sección implementation son visibles sólo en la unit.

Constantes especiales

false, true, nil, MAXWORD, MAXINT, MAXDOUBLE, MINDOUBLE, etc.

Tipos de datos

Resumen de los tipos de datos más utilizados.

Números

Funciones más importantes para la manipulación de números.

Texto

Funciones más importantes para la manipulación de cadenas de texto:

Funciones para realizar conversiones de texto a otros formatos:

Funciones para realizar conversiones a texto:

Fechas

Funciones para la manipulación de la fecha y la hora.

Arrays

Cómo declarar, inicializar y utilizar los arrays.

letras : array of Char;

palabras : array[1..7] of String;

numeros : array[0..5] of Shortint = (0,1,2,3,4,5);

const diasSemana : array[1..7] of string = ('lunes','martes','miércoles','jueves','jueves','viernes','sábado', 'domingo');

quiniela: array[1..15, 1..3] of Boolean;

SetLength(palabras, 14);
SetLength(quiniela, 16, 5);

for k := Low(palabras) to High(palabras) do
  palabras[k] := 0;
for i := Low(diasHoras) to High(diasHoras) do
  for j := Low(diasHoras[i]) to High(diasHoras[i]) do
diasHoras[i,j] := 0;

Sets

type TDigitos = set of '0..9';

var digitos : TDigitos;

digitos := ['2','4'..'7'];  //ponemos algunos a on 

Include(digitos, '1'); //pone '1' a onExclude(digitos, '3'); //pone '3' a on
if char In digits
...  //comprueba si los valores en chars están en digitos

Enumerations

type TDia = (lun=1, mar, mie, jue, vie, sab, dom);

var hoy : TDia;

hoy := mie;  //asignacion directa
hoy := 7;  //asignacion por número
for day := Mon to Fri do
begin
  // dia hará 5 iteraciones (desde lun hasta vie)
end;

SubRanges

type TNumeros = 0..9;

var num : TNumeros;

num := 5;    // permitido
num := 10;   // no permitido
num := -1;   // no permitido

Records

Ficheros

Funciones para el manejo de ficheros

Control de flujo

Combinaciones de teclado

Estas son algunas combinaciones muy útiles de teclado:

El ciclo de vida de un formulario

Nacimiento

Secuencia de creación de un formulario: OnCreate » OnShow » OnActivate » OnPaint

Muerte

Secuencia de destrucción: OnCloseQuery » OnClose » OnDeactivate » OnHide » OnDestroy

Gestión dinámica de la vida de un formulario

1. Quitarlo de la lista Auto-create forms para que no se cree al inicio
2. Crearlo con un código similiar a este:

   if (frmProductos = nil) then
     frmProductos := TfrmProductos.Create(Application);
   

3. Mostrarlo cuando convenga con Show o ShowModal
4. Destruirlo con caFree() en el método OnClose del formulario

Mensajes y diálogos

Veamos unos ejemplos de mensajes y diálogos básicos. Para ello se utilizan las funciones MessageDlg y MessageBox (la segunda da más versatilidad). Ambas devuelven un valor para saber qué botón ha pulsado el usuario.

• un mensaje informativo

  ShowMessage('mensaje a mostrar');

• un mensaje de confirmación:

  var
  buttonSelected : Integer;
  begin
  // Show a confirmation dialog
  buttonSelected := MessageDlg('Confirmation', mtError, mbOKCancel, 0);
  // Show the button type selected
  if buttonSelected = mrOK     then //código para OK
  if buttonSelected = mrCancel then //código para Cancelar
  end;

• una pregunta si / no (utilizando MessageDlg)

  MessageDlg('¿Desea guardar los cambios?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)

  En caso de que necesitemos saber el botón pulsado (este caso y el anterior) podemos usar una estructura if o también una case como el ejemplo:

  Respuesta := MessageDlg('¿Guardar los cambios?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  case Respuesta of
    mrYes: (*GuardarCambios*);
    mrNo: (*SalirSinGuardar*);
    mrCancel: (*NoSalir*);
  end;
  

• otra pregunta si / no (utilizando MessageBox)

  MessageBox(handle, '¿Desea guardar los cambios?'+#10+#13+'(Cancelar para omitir)', 'Pregunta', MB_YESNOCANCEL OR MB_ICONQUESTION);

• Otra forma interesante de crear un mensaje es con la función CreateMessageDialog:

  procedure Mensaje();
  var
    mensaje:TForm;
  begin
  	if mensaje  nil then begin
    	mensaje := CreateMessageDialog('Este es el mensaje de error!', mtError, mbOKCancel);
      mensaje.Position := poScreenCenter;
      mensaje.Color := clwhite;
      mensaje.Caption := 'Titulo!';
    end;
    mensaje.ShowModal;
  end;
  

Trabajar con archivos

Aqui puedes ver algunos ejemplos.

Trucos varios

• Funciones para convertir fechas a Unix timestamp y viceversa:

  const
    // Sets UnixStartDate to TDateTime of 01/01/1970
    UnixStartDate: TDateTime = 25569.0; 
  
  function DateTimeToUnix(ConvDate: TDateTime): Longint;
  begin
    Result := Round((ConvDate - UnixStartDate) * 86400);
  end; 
  
  function UnixToDateTime(USec: Longint): TDateTime;
  begin
    Result := (Usec / 86400) + UnixStartDate;
  end;

• Funciones para convertir fechas a Unix timestamp y viceversa:

  const
    // Sets UnixStartDate to TDateTime of 01/01/1970
    UnixStartDate: TDateTime = 25569.0; 
  
  function DateTimeToUnix(ConvDate: TDateTime): Longint;
  begin
    Result := Round((ConvDate - UnixStartDate) * 86400);
  end; 
  
  function UnixToDateTime(USec: Longint): TDateTime;
  begin
    Result := (Usec / 86400) + UnixStartDate;
  end;

• Funciones dinámicas: funciones como parámetro de otras funciones

Enlaces de interés

• Simulación de barra de progreso