DelphiProjekt - Erstellen eines Adressbuches

[Luckie]

Deutschland ist nicht der Nabel der Welt. Will sagen, es gibt auch Postleitzahlen, die Buchstaben enthalten, zum Beispiel in England:

Delphi-Quellcode:

procedure TAdresse.SetPLZ(const Value: TString5);
var
  dummy: integer;
begin
  if (Value = '') or TryStrToInt(Value, dummy) then
    FPLZ := Value
  else
    raise Exception.CreateFmt('"%s" ist keine gültige Postleitzahl.', [Value]);
end;