UNA AYUDA PARA LAS CARGAS

Montero_LU7077 Jue Oct 22, 2015 1:59 am

HOLA A TODOS

QUERÍA COMPARTIR CON UDS UN PAR DE FUNCIONES QUE ME AYUDAN BASTANTE CON LAS CARGAS EN LOS TP. Very Happy

LES VOY A DEJAR MAS ABAJO 2 FUNCIONES. LA PRIMERA PERMITE CREAR CADENAS
DE LARGO ALEATORIO, LA SEGUNDA ES MAS SIMPLE (CREO YO) Y PERMITE CARGAR CAMPOS DE UN SOLO CARÁCTER.
ESTAS FUNCIONES LAS APLICO PARA NO PERDER TIEMPO TECLEANDO A MANO CADA CAMPO, Y PARA NO ENTRAR EN EL MOLESTO PROCESO DE TENER QUE PERDER TIEMPO SI INTRODUZCO MAL ALGÚN CAMPO (COSA QUE ME SACA Mad

).

ESTA CLARO QUE CADA FUNCIÓN SE PUEDE MEJORAR, PERO A MI ME GUSTA COMO ESTAN , ASI QUE ESO QUEDA EN MANOS DE CADA UNO

ESPERO LES SIRVA A QUIENES DESCARGUEN EL BLOCK.

BUENA SUERTE Y SALUDOS A TODOS

function cadenas():string; {ESTA FUNCION CREA CADENAS}
var
i,r:integer;
chracum:string;
chraux:char;
begin
chracum := ' ';
r:=random(20); {EN ESTE CASO SON DE 20 CARACTERES}
for i:=1 to r do
begin
chraux:=chr(random(24)+97);
chracum:=chracum+chraux;
end;
cadenas:=chracum;

end;

function AB():char;
{CUANDO NECESITEN ESCRIBIR "A" O "B" Y NO QUIERAN PERDER TIEMPO}
var
azar:integer;
begin
repeat
azar:=random(24)+97;
until azar in [97,98];
case azar of
97:AB:='a';
98:AB:='b';
end;

jzapana Jue Oct 22, 2015 5:29 pm

Muchas gracias por su aporte

saludos

UNA AYUDA PARA LAS CARGAS

UNA AYUDA PARA LAS CARGAS

Gracias