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;