Como escribir en un fichero

ticosoft.jpg

StringBuilder sbFile = new StringBuilder();
StreamWriter swWriter;
string fileName;

sbFile.Append(sDirLog);
sbFile.Append(@”Name”);
sbFile.Append(“.log”);
fileName = sbFile.ToString();
swWriter = File.AppendText(fileName);

swWriter.WriteLine(System.DateTime.Now.ToString(“dd-MM-yyyy”) + ” ” + System.DateTime.Now.ToString(“Texto”);
swWriter.Close();

Hallar el factorial de un número

ticosoft.jpg

Con esta función de C# podemos saber el factorial de un número:

using System;

namespace Factorial{

class Principal{

[STAThread]

static void Main(){

int numero=0;

Console.Write(“\t\tBienvenido al programa que halla el factorial de un número!\n”);

try{

Console.Write(“\nIngrese un número: “);

numero=int.Parse(Console.ReadLine());

}catch(System.FormatException e){

Console.WriteLine(e.Message.ToString());

}

Principal.Factorial(numero);

Console.Write(“\nEl factorial de “+numero+” es: “+Principal.Factorial(numero));

Console.Read();

return;

}

//Función que halla el Factorial

static int Factorial(int numero){

int contador=1, i=0;

if (numero >;0){

for(i=2;i<;=numero;i++){

contador=Math.Abs(contador*i);

}

}else{ Console.Write(“\nEl número debe ser mayor que 0!”);}

return contador;}}}

Formateo de cadenas

ticosoft.jpg

Presentar una cadena con fechas/números y formatear/rellenar/eliminar blancos.

Eliminar blacos: Trim, TrimRight y TrimLeft.
Crear una cadena rellena de caracteres: StrOfChar.
Formatear una fecha: FormatDateTime.
Formateo general de cadenas: Format.

Format es especialmente potente (aunque como no detecta errores de tipo en tiempo de compilación, hay que tener cuidado) y nos da opciones muy completas para todo.
Buscando en la ayuda por format specifiers tendrás la referencia completa.

Algunos ejemplos:

# Formatear un número y rellenar con 0s a la izquierda:

Delphi [-]

 

   Cadena := Format('%.8d', [Numero]);

Separar cadenas de caracteres entre si por 4 espacios:

Delphi [-]

 

   Cadena := Format('%s%4s%s%4s%s', [Cad1, ' ', Cad2, ' ', Cad3]);

# Separar dos números rellenos con 0s a la izquierda en un campo de 6 caracteres de ancho y separados entre si 20 espacios:

Delphi [-]

 

Cadena := Format('%.6d%20s%.6d',[Numero1, ' ', Numero2]);
Publicado en Delphi. Leave a Comment »

Centrar los form de la app

ticosoft.jpg

Este trozo de programa, puede servir para cuando un usuario cambia la posición del formulario, sale o cierra el formulario y vuelve a llamarlo más tarde, y tu quieres que siempre esté centrado cuando aparezca; si se crea ese formulario cada vez que lo llamo no sería necesario el truco ya que en el formualrio le coloco la propiedad position a screen center, pero como sólo lo creo una vez y lo oculto, al mostrarlo resulta útil.También puede servir para que con un botón se puedan centrar todos los formularios del programa…….y sirve para aprender o recordar que existe algo llamado “Screen” que nos puede servir, muchas persona no lo conocen o simplemente lo olvidan y cuando necesitan hacer algo así dan muchas vueltas.

Delphi [-]

 

Var   I : Integer;
Begin
With Screen do
 for I := 0 to FormCount-1 do
 Begin
   Forms[i].Top:=trunc((Height/2)-(Forms[0].Height/2));
   Forms[i].Left:=Trunc((Width/2)-(Forms[0].Width/2));
   end;
 end;

Publicado en Delphi. Leave a Comment »

Access por medio de ODBC

ticosoft.jpg

He aquí un ejemplo de cómo usar un controlador ODBC con la BDE para abrir una base de datos Access:Cree un DSN (Data Source Name = Nombre de Origen de Datos) para su base de datos (usando la applet ODBC Data Sources del Panel de Control de Windows).

Haga clic en la solapa “System DSN” o “User DSN”

Haga clic en el botón “Add…” (Agregar)

Seleccione el controlador “Microsoft Access Driver (*.mdb)” y presione ENTER. Aparecerá el diálogo “ODBC Microsoft Access Setup”.

Provea un nombre en el cuadro de texto “Data Source Name” (sin espacios ni caracteres especiales).

Haga clic en el botón “Select…” (seleccionar) para especificar su base de datos .MDB.

Si ha establecido un esquema de seguridad tiene que seleccionar el botón de radio “Database” en el cuadro “System Database” y hacer clic en el botón “System database…” para especificar su archivo de grupos de trabajo .MDW o .MDA.

Haga clic en el botón “Advanced…” (avanzado) para establecer el nombre de usuario y la contraseña predeterminada. Esto es para acceso de baja seguridad porque cualquiera con acceso a su equipo puede ver las propiedades del DSN. Si necesita una seguridad más alta debe proveer el nombre de usuario y la contraseña al abrir la base de datos (vea más abajo).

Finalmente haga clic en el botón “OK” para guardar su DSN.

En Delphi establezca las propiedades del componente TDatabase:

Establezca DatabaseName con el nombre que le dio al DSN.

Si desea que el usuario provea un nombre de login y una contraseña, entonces deje LoginPrompt en True.

Si no le gusta el cuadro de diálogo de login estándar (o si quiere proveer el nombre y la contraseña por código), puede establecer LoginPrompt en False y usar su propio cuadro de diálogo (o tenga guardados el nombre de usuario y contraseña en su aplicación) y establezca la propiedad Params con los datos del login:

Código [-]

 

USER NAME=su_nombre_de_usuario PASSWORD=su_contraseña

Asocie sus componentes TTable o TQuery con el componente TDatabase mencionado arriba simplemente proveyendo el mismo nombre de DSN en su propiedad DatabaseName correspondiende.

Hasta que encontre lo que muchos nos niegan esto es para todos ya probe la formula y los resultados son sorprendentes!!! :)

Publicado en Delphi. Leave a Comment »

Cambiar el form principal en Run-time

ticosoft.jpg

Sirve para cambiar en momento de ejecución el formulario principal de nuestra aplicación. Es útil cuando utilizas condiciones para determinar que formularios crear al momento de iniciar la aplicación.

procedure SetAsMainForm(aForm:TForm);

var P:Pointer;

begin P := @Application.Mainform;

Pointer(P^) := aForm;

end;

Publicado en Delphi. Leave a Comment »

Rundll

ticosoft.jpg

‘OTROS USOS DE RUNDLL32.EXE

‘Agregar impresora

Empleando el Rundll32 también podremos arrancar el Asistente para agregar impresora
utilizando : x = Shell(“rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL
AddPrinter”, vbNormalFocus)

‘Crear el icono de “Mi maletín”

Empleando el Rundll32 también podremos crear el icono de “Mi maletín” en el
escritorio utilizando : x = Shell(“rundll32.exe syncui.dll,Briefcase_Create”)

‘Copiar disco

Podremos mostrar el diálogo de Copiar disco empleando x = Shell(“rundll32.exe
diskcopy.dll,DiskCopyRunDll”, vbNormalFocus)
‘Acceso telefónico a redes

Podremos establecer una conexión empleando x = Shell(“rundll32.exe rnaui.dll,RnaDial
NombreDeLaConexión). Si la conexión ya está establecida nos muestra la ventana de
Estado de la misma.

Para ejecutar el asistente Bienvenido a Acceso telefónico a redes emplearemos : x =
Shell(“rundll32.exe rnaui.dll,RnaWizard”)
‘Formatear disquete

Para arrancar el diálogo Formatear emplearemos x = Shell(“rundll32.exe
shell32.dll,SHFormatDrive”)
‘Imprimir un documento HTML

Para imprimir un documento HTML emplearemos : x = Shell(“rundll32.exe
mshtml.dll,PrintHTML NombreDocumentoHTML”)

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.