Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  AW: IBAN überprüfen

    Delphi
    by Amateurprofi, 6. Mär 2012
  @ms61:
  Ja, das ist ja 'ne super Idee, die Buchstaben in "einem Rutsch" zu verarbeiten.
  Aber zu Ende gedacht heißt das ja, daß man auch mehrere Ziffern in einem Rutsch verarbeiten kann.
  Ich habe das mal umgesetzt in IsIBAN3 und weils so schön ist auch in der Asm-Funktion IsIBAN4, die allerdings
  nur auf 64 Bit Systemen läuft.
  
  Für jeweils 1 Mio Durchläufe hab ich folgende Zeiten gemessen...
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  AW: IBAN überprüfen

    Delphi
    by Amateurprofi, 5. Mär 2012
  @ms61:
  Hier eine um 15-20 % schnellere Version:
  
  FUNCTION IsIBAN(const s:string):boolean;
  var len,cs:integer;
  FUNCTION GetCheckSum(first,last:integer):boolean;
  var i:integer; c:integer;
  begin
  for i:=first to last do begin
  c:=Ord(s)-48;