Mensajes

100% de acuerdo con lipman.

Andres, llevas 5 post cas seguidos y todavía no posteas el código...

Un saludo

El que quiera, lo puede ir mejorando. Faltan muchas cosas.

Un Saludo!

Hola aqui les dejo una parte de la agenda que estoy haciendo:

Código (Pascal) [Seleccionar] Expandir


program Untitled;

uses
    crt;
type
    Persona=
    record
          Nombre:string[10];
          Telefono:string[10];
    end;
var
   option:integer;
   Friend:Persona;
   Fichero:file of Persona;
   nameFile:string;
   buscado:integer;
   adato:Persona;

begin
repeat
//Menu
clrscr;
nameFile:='c:\AGENDA.txt';
writeln('1) Agregar persona');
writeln('2) Buscar persona');
writeln('3) Salir de agenda');
//Validar opcion
          repeat
               writeln('Elige opcion:');
               readln(option);
          until (option>0) and (option<=3);
          case option of
               1:
                 begin
                      writeln('AGREGANDO PERSONA');
                      writeln('INGRESA NOMBRE:');
                      readln(Friend.Nombre);
                      writeln('INGRESA TELEFONO:');
                      readln(Friend.Telefono);
                      Assign(Fichero,nameFile);
                      Reset(Fichero);
                      Write(Fichero,Friend);
                      Close(Fichero);
                 end;
               2:
               begin
                    writeln('BUSCANDO');
                    readln(buscado);
                    Assign(Fichero,nameFile);
                    reset(Fichero);
                    seek( fichero, buscado );
                    read(fichero,adato);
                    writeln('Nombre:',adato.Nombre);
                    writeln('Telefono:',adato.Telefono);
                    close(Fichero);
               end;
               3:writeln('Seleccionaste salir')
          end;
          readln();
until option=3;
end.
Un saludo

PD: pregunta para el que quiera responder ¿escribir en un txt, es aprender ?

No. 

En todo caso como dijo Seba, deberías postear el source.

Otra cosa:

Lo detecta antivirus
No deberia, el mio (NOD32 v. 3.0) no detecta nada.

fallo comun de un programador: "En mi casa funciona"

¿Por qué no lo subiste a virus total?

Para convertir tu real a enteros, y obtener parte entera y decimal:

Código (pascal) [Seleccionar] Expandir

program Untitled;

uses
    crt;
var
   x:real;
   PE:integer;
   PD:real;
begin
     write('Ingresa numero:');
     readln(x);
     PE:= TRUNC(x);
     PD:=x-PE;
     writeln('Parte entera:',PE);
     writeln('Parte decimal:',PD);
     readln();
end.

Unicamente puse ese código de ejemplo, como demostración de lo que se podía hacer, solo fue un pseudo-vb ^^.

Un saludo

La propiedad MouseMove te permite controlar ese tipo de eventos.
Luego unicamente, con lo siguiente:

Image1.Picture=LoadImage(path1 or path2)

Eso bastará.

Con respecto a bd's no entiendo que no te queda claro, es cuestión de práctica.

Un saludo

Felicitaciones.
Exelente y extenso manual.
Lo hiciste tu?

pero algunas veces sin serlo saltan igual...

Muchas gracias por la aclaración.

mientras no preguntes como desaparace en la otra penstaña todo bien...

Justamente eso quería saber.

Seba, los av's unicamente detectan hooks en los procesos? o también pueden detectar este tipo de método?