Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
1.757 Beiträge
 
Delphi 7 Professional
 
#12

AW: Erstellung einer Funktion

  Alt 3. Jun 2021, 17:52
Eventuell könnte dashier schon reichen, ist aber ungetestet:
Delphi-Quellcode:
function longestNumber(s : string) : byte;
var run, number : byte;
  begin
    longestNumber := 0;
    number := 0;
    for run := 1 to length(s) do
    begin
      case s[run] of
       '0'..'9' : inc(number);
      else
        begin
          if number > longestNumber then longestNumber := number;
          number := 0;
        end;
      end;
    end;
    if number > longestNumber then longestNumber := number;
  end;

Geändert von Delphi.Narium ( 3. Jun 2021 um 18:39 Uhr) Grund: Text angepasst.
  Mit Zitat antworten Zitat