Erstellung einer Funktion

[Mo53]

var parameter hatten wir, dürfen wir auch verwenden, wir hatten so gut wie alles außer arrays.
Nur das Problem ist das wir die Funktion nicht verändern dürfen, also auch keinen neuen Parameter rein.

[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;