Coder Board Community

Source code

        filename := '2358.4569.3256-5656';

        WriteLn ('Anfangswert: ' + filename);

        o := 1;
        f_result1 := '';
        f_result2 := '';

        WHILE o <= length(filename) DO
        BEGIN

            f_result1 := filename[o];  // immer 1 Zeichen auslesen

            IF (f_result1 >= '0') AND (f_result1 <= '9') THEN BEGIN

                insert (f_result1,f_result2,255);  // das eingelesene Zeichen hinten an "result1" anhängen
                // Syntax: insert (das Anzuhängende, Ergebnisvariable als STRING, Position - bei 255 immer hinten dran)

                Writeln('Resultat1: ' + f_result1);  // Ausgabe aktuelles Zeichen
                Writeln('Resultat2: ' + f_result2);  // Ausgabe des neuen Strings (Ergebnis)

            END;

            o := o + 1;
        END;

        filename := f_result2;
        Writeln('Ergebnis: ' + filename);