Einzelnen Beitrag anzeigen

noisy_master

Registriert seit: 17. Jun 2009
Ort: Wolfenbüttel/Baddeckenstedt
217 Beiträge
 
Delphi XE5 Professional
 
#20

AW: Erstellung einer Funktion

  Alt 4. Jun 2021, 09:16
Das Programm ist jetzt so gut wie fertig, ist nur noch ein kleines Problem bei der Ausgabe der Prozedur 'deleteDigits', ich habe herausgefunden das es so nicht zulässig ist, bin jedoch nach langem herumexperimentieren immernoch nicht darauf gekommen.

Delphi-Quellcode:
procedure deleteDigits(var s: string);
var
  run, number, savedRun, deleted: byte;
  endNotFound :boolean;
begin
  run := length(s);
  savedRun := length(s);
  endNotFound := TRUE;

  while endNotFound do
  begin
    repeat
      case s[run] of
        '0' .. '9': delete(s,run,1);
      end;
      dec(run);
    until run = 0 ;
    endNotFound := TRUE;
    end;
end;
dürfte meiner Meinung nach für immer laufen, weil deine Bedingung für das while immer gültig bleibt....

ich würde es so versuchen:

Delphi-Quellcode:
procedure deleteDigits(var s: string);
var
  run byte;
begin
   for run := length(s) downto 1 do
     case s[run] of
       '0'..'9' : delete(s,run,1);
     end;
end;
Dirk
  Mit Zitat antworten Zitat