PersoGen

[Ultimator]

Auf die Gefahr hin, dass ich mich unbeliebt mach: Ich hab anscheinend eine ungültige ID auf meinem Perso :mrgreen:

Hab die ID genau so abgetippt, wie sie auf meinem Ausweis draufsteht, aber er sagt mir, dass die ID ungültig ist :shock:

[ibp]

Zitat:

Zitat von Ultimator

Auf die Gefahr hin, dass ich mich unbeliebt mach: Ich hab anscheinend eine ungültige ID auf meinem Perso :mrgreen:

d.h. du bist illegal! :shock:
... ich hab die grünen schon informiert! :mrgreen: :mrgreen:

[PierreB]

Zitat:

Zitat von Ultimator

Auf die Gefahr hin, dass ich mich unbeliebt mach: Ich hab anscheinend eine ungültige ID auf meinem Perso :mrgreen:

Da hier scheinbar keiner deine Nummer kennt und es bei allen anderen geht, schreib doch einfach mal deine Nummer hier in den Thread. :mrgreen:

[Matze]

Zitat:

Zitat von Ultimator

Hab die ID genau so abgetippt, wie sie auf meinem Ausweis draufsteht, aber er sagt mir, dass die ID ungültig ist :shock:

Meine auch, falls es die ist, die auf der Vorderseite (die mit dem Foto) ganz unten steht, also die komplette Zeile.

[n0b0dy]

bei mir ebenfalls ungültig... :?

[shmia]

Dein Exception-Handling ist unsauber/fehlerhaft!

Delphi-Quellcode:

function IsValidID(ID: string): boolean;
begin
  try
    Row1 := .....
    .....  // ***
    if not
        ((Ps1 = StrToInt(ID[10])) and
        (Ps2 = StrToInt(ID[20])) and
        (Ps3 = StrToInt(ID[28])) and
        (Ps4 = StrToInt(ID[36]))) then
      result := false
    else
      result := true;
  except
    exit
  end;
end;

Wenn nun an der Stelle, die mit *** gekennzeichnet wurde eine Exception auftritt ??
Du wirst niemals erfahren, was schiefgelaufen ist und ausserdem ein undefiniertes Result erhalten.
Korrektes Exception-Handling sieht so aus:

Delphi-Quellcode:

function IsValidID(ID: string): boolean;
begin
  try
    Row1 := .....
    .....  // ***
    if not
        ((Ps1 = StrToInt(ID[10])) and
        (Ps2 = StrToInt(ID[20])) and
        (Ps3 = StrToInt(ID[28])) and
        (Ps4 = StrToInt(ID[36]))) then
      result := false
    else
      result := true;
  except
  on E:Exception do
  begin
     E.Message := 'Fehler in IsValidID('+ID+')'#13#10+
        E.Message;
     raise;
  end;
  end;
end;

Der Aufrufer, bekommt eine recht genaue Beschreibung, was schiefgelaufen ist.
Die Exception wird nur abgefangen und erneut ausgelöst.