en Delphi: File --> New --> unit;
Código Delphi
[-]
unit Codigoutil;
interface
uses Math, SysUtils,windows, stdCtrls, DBTABLES, DB;
type TMovidos = record
desde, donde :Integer;
end;
function CreateTemporalFile(const APrefix: string): string;
function GetTemporalFilename: string;
implementation
uses strUtils;
function CreateTemporalFile(const APrefix: string): string;
var
TempPath, TempFile: array [0..MAX_PATH-1] of Char;
begin
GetTempPath(SizeOf(TempPath), TempPath);
if GetTempFileName(TempPath, PChar(APrefix), 0, TempFile) = 0 then
RaiseLastOSError;
Result := string(TempFile);
end;
function GetTemporalFilename: string;
var
TempPath: array [0..MAX_PATH-1] of Char;
G: TGuid;
begin
GetTempPath(SizeOf(TempPath), TempPath);
OleCheck(CoCreateGuid(G));
Result := string(TempPath) + GuidToString(G);
end;
end.
Ahora solo queda guardarla con el nombre CodigoUtil.pas, y añadir la carpeta a : Tools --> enviroment Options --> library --> library path
Para que encuentre la unidad codigoutil al añadirlo en el uses de otras unidades.
Manualmente tambien puedes usar: Project --> Add to project y elegir el archivo codigoutil.
Por supuesto te aconsejo crearte varias librerias segun el tipo de rutinas que vas a incluir (tratamiento de cadenas, de bases de datos, tratamiento de rutas de archivos, etc.) y llamar las unidades de una forma homogenea con un prefijo, por ejemplo, todas mis librerias se llaman LPObjetos, LPConstantes, etc. (LP = Lepes)
En cuanto a crear Clases, es mejor no mezclarla con funciones publicas para no engorronear el archivo. Normalmente las clases las defines en otro archivo .pas que no sea el mismo.