ISBN formatieren

[marabu]

Hallo Dominik,

danke für die Links.

Delphi-Quellcode:

function PrettyISBN(isbn: String): String;
var
  det: String;
begin
  Result := isbn;
  if (Length(isbn) <> 10) or (isbn[1] in ['7', '8', '9']) then
    Exit;
  if isbn[2] in ['0', '1'] then
    Insert('-', Result, 4)
  else if isbn[1] = '1' then
  begin
    det := Copy(isbn, 2, 4);
    if det < '5500' then
      Insert('-', Result, 5)
    else if det < '8698' then
      Insert('-', Result, 7)
    else if det < '9990' then
      Insert('-', Result, 8)
    else
      Insert('-', Result, 9);
  end
  else
  begin
    det := Copy(isbn, 2, 2);
    if det < '70' then
      Insert('-', Result, 5)
    else if det < '85' then
      Insert('-', Result, 6)
    else if det < '90' then
      Insert('-', Result, 7)
    else if det < '95' then
      Insert('-', Result, 8)
    else
      Insert('-', Result, 9);
  end;
  Insert('-', Result, 2);
  Insert('-', Result, 12);
end;

Grüße vom marabu