david
7684f42dc1
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@204 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
27 lines
376 B
ObjectPascal
27 lines
376 B
ObjectPascal
unit uIBANUtils;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, IBAN;
|
|
|
|
function EsCodigoIBANValido(AIBAN : string): boolean;
|
|
|
|
implementation
|
|
|
|
function EsCodigoIBANValido(AIBAN : string): boolean;
|
|
var
|
|
auxIBAN : TIBAN;
|
|
begin
|
|
auxIBAN.Create;
|
|
try
|
|
auxIBAN.IBAN := AIBAN;
|
|
Result := auxIBAN.Valid;
|
|
finally
|
|
FreeAndNil(auxIBAN);
|
|
end;
|
|
|
|
end;
|
|
|
|
end.
|