ayuda con fuctions

[[Caral]]

Hola
Tratemos de analizar este codigo:
DEJO CLARO QUE DE FUNCIONES NO SE NADA.
Empecemos por esta funcion:

Código Delphi [-]
function curp(apepat,apemat,nomb,fechanac,sexo,edo:string):string;
var ret:string;
begin
  ret:=apepat[1]+apepat[2]+apemat[1]+nomb[1]+fechanac[9]+fechanac[10]
  +fechanac[4]+fechanac[5]+fechanac[1]+fechanac[2]+sexo[1]+edo[1]+edo[6];
  curp:=ret;
end;

Para mi hay algo mal, la funcion es string y los datos que muestra NO ya que la variable REC tambien es String.
CREO que deberia de ser asi:

Código Delphi [-]
function curp(apepat,apemat,nomb,fechanac,sexo,edo:string):string;
var ret:string;
begin
  ret:=apepat['1']+apepat['2']+apemat['1']+nomb['1']+fechanac['9']+fechanac['10']
  +fechanac['4']+fechanac['5']+fechanac['1']+fechanac['2']+sexo['1']+edo['1']+edo['6'];
  curp:=ret;
end;

.
Si embargo sigo sin entenderla.
La segunda y tercera funciones entregan un valor CHAR, sin embargo en la concatenacion del boton esta como string.
Para mi podria hacerse asi:

Código Delphi [-]
function generaletra:String;
var pos:integer;
begin
  randomize;
  pos:=random(7)+1;
  case (pos) of
  1:generaletra:='A';
  2:generaletra:='B';
  3:generaletra:='C';
  4:generaletra:='D';
  5:generaletra:='E';
  6:generaletra:='F';
  7:generaletra:='G';
  end;
end;
function generanumero:String;
var pos:integer;
begin
  randomize;
  pos:=random(7)+1;
  case (pos) of
  1:generanumero:='0';
  2:generanumero:='1';
  3:generanumero:='2';
  4:generanumero:='3';
  5:generanumero:='4';
  6:generanumero:='5';
  7:generanumero:='6';
  end;
end;

El rango lo hace con una variable independiente asi que no afectaria, creo.
En la concatenacion pasa lo mismo, es un string.
La siguiente funcion pasa lo mismo que en la primera, para mi.
El evento del boton hace una concatenacion de todo, seria bueno saber si ESTADOS contiene algo o si existe ese combobox.
En el ultimo, hace que al combobox estados se le adhieran otros datos.

Eso es lo que entiendo de este codigo.
Saludos

[[Caral]]

Hola
Pues no se que te extraña, para mi es la verdad, no se de funciones ni de muchas cosas, ademas por supuesto que no soy programador, eso esta clarisimo.
Solo doy mi opinión en base a lo poco que capto de las cosas.
Cuando uno programa para si mismo ve y hace las cosas a su manera, es muy dificil, por lo menos para mi, entender codigos con funciones, por eso lo digo.
No te extrañes, sigo y seguire siendo novato, me alegra que dieras una explicacion mas logica a Yamato_No_oroch le va a servir.
Saludos

[Yamato_No_oroch]

Empezado por Caral

Hola
Pues no se que te extraña, para mi es la verdad, no se de funciones ni de muchas cosas, ademas por supuesto que no soy programador, eso esta clarisimo.
Solo doy mi opinión en base a lo poco que capto de las cosas.
Cuando uno programa para si mismo ve y hace las cosas a su manera, es muy dificil, por lo menos para mi, entender codigos con funciones, por eso lo digo.
No te extrañes, sigo y seguire siendo novato, me alegra que dieras una explicacion mas logica a Yamato_No_oroch le va a servir.
Saludos

gracias a todos or el apoyo en verdad si me sirvio bastante la ayuda

[mcs]

Empezado por Caral

Código Delphi [-]

function generaletra:String;
var pos:integer;
begin
randomize;
pos:=random(7)+1;
case (pos) of
1:generaletra:='A';
2:generaletra:='B';
3:generaletra:='C';
4:generaletra:='D';
5:generaletra:='E';
6:generaletra:='F';
7:generaletra:='G';
end;
end;
function generanumero:String;
var pos:integer;
begin
randomize;
pos:=random(7)+1;
case (pos) of
1:generanumero:='0';
2:generanumero:='1';
3:generanumero:='2';
4:generanumero:='3';
5:generanumero:='4';
6:generanumero:='5';
7:generanumero:='6';
end;
end;

Estas funciones se pueden simplificar mucho. En mi opinión, quedarían mejor así:

Código Delphi [-]
 
function generaletra:String;
var pos:integer;
begin
  randomize;
  pos:=random(7);
  generaletra=Chr(pos+65);
end;
 
function generanumero:String;
var pos:integer;
begin
  randomize;
  pos:=random(7);
  generanumero=Chr(pos+48);
end;

La explicación es muy simple: primero generamos el valor aleatorio, y luego le sumamos 65 (valor ASCII de 'A') o 48 (valor ASCII de '0'). Obtenemos un codigo ASCII, y con la función Chr() lo convertimos a un carácter.

Saludos,

Marc