necesito codigo fuente en delphi para calcular la curp

[josejuanpache]

Necesito un codigo para calcular la CURP, estoy haciendo una base de datos en paradox 7.0, (en un form daré de alta a los "alumnos" en este caso, y desde ahi ya con sus datos capturador calcular la curp) de antemano muchas gracias....

[dogduck]

Debes de ejecutar una consulta, que en SQL seria:
"SELECT curp.tabla_alumnos as lacurp FROM tabla_alumnos WHERE nombre= variable_iniciada_por_usuario;"

var
iResult: String;
Variable_iniciada_por_usuario: String;
begin
With Query do
begin
Sql.Text := 'SELECT curp.tabla_alumnos as lacurp ' +
'from tabla_alumnos.BBDD.db ' +
'where nombre.tabla_alumnos='+ Variable_iniciada_por_usuario;
Open;
iResult := Field[0].AsInteger;
Close;
end;


No sé si te ayuda, mirate este foro:
http://www.clubdelphi.com/foros/arch...x.php/f-6.html