Erstellung einer Funktion

[Delphi.Narium]

Dann fällt mir nurnoch dashier ein:

Delphi-Quellcode:

function longestNumber(s : string) : word;
var
  run, number, longNum : Word;
  NumberStr : String;
  longNumStr : String
  begin
    // Zu Beginn alle Variabeln initialisieren, um definierte Ausgangswerte zu haben.
    longNum := 0;
    longNumStr := '';
    number := 0;
    NumberStr := '';
    for run := 1 to length(s) do
    begin
      case s[run] of
       '0'..'9' : begin
                    inc(number);
                    NumberStr := NumberStr + s[run]; // Zusätzlich die Ziffer an den String anfügen.
                  end;
      else
        begin
          if number > longNum then
          begin
            longNum := number;
            LongNumStr := NumberStr; // den bisher längsten String speichern.
          end;
          number := 0;
          NumberStr := ''; // den String leeren.
        end;
      end;
    end;
    if number > longNum then
    begin
      LongNumStr := NumberStr; // den bisher längsten String speichern.
    end;
    longestNumber := StrToInt(longNumStr); // längste Ziffernfolge als Zahl zurückgeben.
  end;