
Dead or alive, you are coming with me. [?]
¡Añademe a tus favoritos!
Contacto
Post al azar
RSS
BUSCAR
Mapa de la web
Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 490
function existe(fichero : string) : boolean;
var fich : file of byte;
begin
ASSIGN(fich,fichero);
\{\$I-}
RESET(fich);
close(fich);
\{\$I+}
existe := ioresult = 0;
end;
Function Temp(Name,Ext : string) : string;
var
TCa : Word;
s : string;
Begin
TCa:=0;
repeat
s:=LeadingZero(TCa,4);
s:=Name+s+'.'+ext;
inc(TCa);
Until not existe(s);
Temp:=s;
End;
Otras entradas de la web que podrian interesarte:
. . .
. . .
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 5910672 visitas en total, hoy (de un total de 0 previstas).
. . .