Código Delphi [-] procedure Buscar(Nombre: string; var Edad: Integer; var OtroDato: string); begin //ubicar el registro; Edad := YearsBetween(Now, Alumno.FechaNacimiento); OtroDato := Alumno.NombreDeLaNovia; end;
procedure Buscar(Nombre: string; var Edad: Integer; var OtroDato: string); begin //ubicar el registro; Edad := YearsBetween(Now, Alumno.FechaNacimiento); OtroDato := Alumno.NombreDeLaNovia; end;