Pascal/Turbo Pascal - Como puedo hacer librerias TPU

Hola.... Quisiera saber que son las librerias TPU como las puedo crear, si hay algun tutorial para eso, si me pueden mandar un ejemplo mejor .........

Mira, las Librerías TPU (Turbo Pascal Unit) son conjuntos de procedimientos, funciones, tipos y constantes en un archivo, son realmente fáciles de hacer, la estructura de tu código será la siguiente:

UNIT (*nombre_de_la_unidad*);
INTERFACE
(*Aquí lo que vas a colocar es exclusivamente las
*cabeceras de declaración de tus procedimientos
*y funciones, si tu unidad lo necesita, también
*la clausula USES, junto con los tipos que vayas
*creando
*)
IMPLENETATION
(*
*Aquí colocas tus procedimientos tal y como lo
*haces en un programa ordinario, pero los
*parámetros que requieran no necesitas
*colocarlos de nuevo aquí.
*)
End.

Una vez terminado tu código, el nombre_de_la_unidad debe ser el mismo con el que lo guardes, y por consiguiente, no mayos a 8 caracteres.
Para convertir tu código PAS en TPU en el directorio BIN de TP7, hay un programa llamado TPC.EXE, lo vas a usar de esta forma:

C:\>TPC unidad.PAS -b

te recomiendo que si tu unidad necesita de otras TPUs de Pascal, las copies momentaneamente en el directorio BIN, al menos para la forma de como te indico cómo utilzar el TPC, Ok??
Respecto el ejemplo, lo mejor es que tu crees tu propia TPU con los procedimientos y funciones más utilizadas por tí y las organices de forma que un grupo de programas similares utilicen una TPU, y así para cada conjunto de programas.
Si tienes más dudas, coloca otra nota en este foro, Ok??

Bueno para poder intentar hacer uno necesito ver un ejemplo si me puedes hacer uno aqui en el foro por mas sencillo que sea nomas para tomarlo como referencia.. (el puro codigo lo demas lo intento yo) Si no es mucha molestia

Ok, ante la insistencia:

UNIT test; {se guarda con el nombre TEST.PAS}
INTERFACE
USES
GRAPH;
TYPE
str50=string[50];
CONST
autor:string='Maverick01';
Procedure Initgrafx(path:str50);
Function Potencia(base,expon:real):Real;

IMPLEMENTATION

Procedure Initgrafx;
Begin
{bla... bla... bla...
todo el rollo del código del procedimiento
}
End;

function potencia;
Begin
potencia:=exp(expon*ln(base));
End;
End.

Muy Agradecido;

Si tengo una duda te puedo contactar por mail??

Dame el tuyo y te paso otra dirección de correo mía.

o en este Foro deja tu duda y la contesto a la brevedad ;)

Suerte :)

AMIGO POR FAVOR NECESITO AYUDA EN ESTO...

{Creación de una unidad tpu y su uso}

unit aamous;
interface {Determina qu‚ es visible y accesible para
cualquier programa}
uses {Las unidades a usar por la unidad}
dos;
var {Variables interiores y esteriores para el programa
llamador}
regs : registers;
raton : boolean;
pulsado : integer;

function raton_presente : boolean; {Las funciones y procedimientos
que podra ejecutar el programa
llamador}
procedure muestra_raton;
procedure oculta_raton;
function posx_raton : word;
function posy_raton : word;
function boton_raton : word;

implementation {procedimientos y funciones que est n
declarados en la parte de interface de la
unit}

function raton_presente : boolean;
begin
regs.ah := $00;
regs.al := $00;
intr($33,regs);
if regs.ax <> 0 then
raton_presente := true
else
raton_presente := false;
end;
procedure muestra_raton;
begin
raton := false;
if raton_presente then
begin
regs.ah := $00;
regs.al := $01;
intr($33,regs);
raton := true;
end;
end;
procedure oculta_raton;
begin
if raton = true then
begin
regs.ah := $00;
regs.al := $02;
intr($33,regs);
raton := false;
end;
end;
function posx_raton : word;
begin
posx_raton := 0;
regs.ah := $00;
regs.al := $03;
intr($33,regs);
posx_raton := regs.cx div 8 + 1;
end;
function posy_raton : word;
begin
posy_raton := 0;
regs.ah := $00;
regs.al := $03;
intr($33,regs);
posy_raton := regs.dx div 8 + 1;
end;
function boton_raton : word;
begin
boton_raton := 0;
regs.ah := $00;
regs.al := $03;
intr($33,regs);
boton_raton := regs.bx
end;

begin {Fin de la unidad}
end.

{Ahora compilamos con el menu compile y activamos disk en vez de memory}
{con lo cual tenemos la unidad mous.tpu en el disco lista para llamar}

{Forma de uso}

program raton;
uses
crt, aamous; {Si la unidad mous no la tienes en el directorio unit de}
{pascal ponla en el para evitar problemas}
var
px, py : word;

begin
if raton_presente then {Verificamos que el raton esiste}
begin
clrscr;
muestra_raton; {Mostramos el cursor del raton}
px := posx_raton;
py := posy_raton;
gotoxy(8,2);write(' ');
gotoxy(4,2);write('X : ',px);
gotoxy(8,3);write(' ');
gotoxy(4,3);write('Y : ',py);
repeat
{El rato andara por la pantalla asta pulsar boton izquierdo}
{si pulsamos el derecho nos pondra un esterisco}
if (px <> posx_raton) or (py <> posy_raton) then
begin
px := posx_raton;
py := posy_raton;
gotoxy(8,2);write(' ');
gotoxy(4,2);write('X : ',px);
gotoxy(8,3);write(' ');
gotoxy(4,3);write('Y : ',py);
end;
until boton_raton = 1; {verificamos que se pulsa el boton del}
{raton izquierdo y salimos}
end;
end.

hola, yo cree una libreria pero cuando pongo una llamada a otra libreria a la mia debajo de interface, me salta el siguiente error

syntax error "UNIT" excpected but "end of file" found

pero si saco esa uses no funciona pq lo nececita.
saludos.

Hola no se como hacer una libreria enpascal, segui un tuto qe esta colgado aqui, pero al final, cuando la mando a llamar de otro programa, me aparece el error 72, qe dice unit file format error "libreria.tpu".
Necesito y solicito ayuda urgentemente, por qe sino el maestro de programacion me pondra un hermoso 5 en la parcial, solicito ayuuda!!!!!!!!!!!!!!!!!
Saludos Cordiales

Hola, necesitaria una ayudita....

"...Para convertir tu código PAS en TPU en el directorio BIN de TP7, hay un programa llamado TPC.EXE, lo vas a usar de esta forma:

C:\>TPC unidad.PAS -b...."

No encuentro TPC.EXE... estoy usando Dev-Pascal

Gracias

NEcesito como saber crear units y como llamarla

Hola;
Les agradecería sí me ayudaran con la creación de librerías. Ya tengo mi programa terminado, sólo que no sé como crearlas. He leído varias dudas y he probado con las sintaxis que expusieron en este foro, pero aparentemente no estoy haciendo las cosas bien.
¿Se crea una librería por programa?
Mi programa está compuesto por varios
*arbol
*barrido
*catálogo
*cod
*elimina
*letra
*log
*ncust
*tipos

Muchísimas gracias. Espero su respuesta.