Aplicaciones de Ejemplos

Hacer una aplicación en Delphi que determine el promedio de 3 Edades:

Objetos utilizados:

De la Paleta STANDARD:

Ø  Label   para los textos que ves como: Digite la 1ra Edad, etc.

Ø  Edit  para los cuadros o campos de: Digite la 1ra Edad, etc.

Ø  GroupBox  para el cuadro: Digite las edades.

De la Paleta ADDITIONAL

Ø  Bevel  es el cuadro de adorno que está debajo de los botones: Calcular, ect.

Guardar proyecto

1.      Hacer clic al botón “Save All”

2.      Seleccione la carpeta principal del proyecto

3.      En la casilla nombre, escribo el nombre de la unidad, por ejemplo: UPrincipal

4.      Luego escribir el nombre del proyecto, por ejemplo:  PromedioSoft.

5.      Clic en: “Guardar”.

 Código fuente del botón Calcular

Var edad1,edad2,edad3:Integer; promedio:Real; // Validando la captura de datos. begin      If trim(edtEdad1.Text) = '' then          begin                  showMessage('Falta la 1ra Edad');                  edtEdad1.SetFocus;                  exit;          end;             If trim(edtEdad2.Text) = '' then           begin                    showMessage('Falta la 2da Edad');                    edtEdad2.SetFocus;                   exit;           end;            If trim(edtEdad3.Text) = '' then          begin                  showMessage('Falta la 3ra Edad');                  edtEdad3.SetFocus;                  exit;           end;         // Fin Validación captura de datos              // Convirtiendo variable                          edad1:=StrToInt(edtEdad1.Text);                edad2:= StrToInt (edtEdad2.Text);                edad3:= StrToInt (edtEdad3.Text);             // Calculando el promedio                promedio:=(edad1+edad2+edad3)/3;                // Mostrando el Resultado                    edtResultado.Text:= FloatToStr(promedio);           end;

Código fuente botón Limpiar.

 Código fuente Botón Cerrar

Close

Hacer una aplicación  en Delphi que determine si un número es Positivo o Negativo.

Código fuente del botón Calcular

Var Num:Integer; condicion:String[10]; // Validando la captura de datos. Begin      If trim(edtNumero.Text) = '' Then          Begin               Showmessage('Falta el Número');               edtNumero.SetFocus;               Exit;          End; // Fin Validación la captura de datos. // Convirtiendo Variable.                  Num:=StrToInt(edtNumero.Text); // Haciendo comparación         If Num < 0 Then              Begin                   condicion:='Negativo';              End          Else               Begin                     Condicion:='Positivo';               End; // Mostrando Resultado      Resultado.Caption:= 'El Número es '+condicion; // Resultado,  es el Name de un  Label, donde se muestra el resultado end;