|
Registriert seit: 22. Jun 2018
2.175 Beiträge
|
AW: Erstellung einer Funktion
4. Jun 2021, 08:39
Delphi-Quellcode:
while endNotFound do
begin
repeat
case s[run] of
' 0' .. ' 9': delete(s,run,1);
end;
dec(run);
until run = 0 ;
endNotFound := TRUE;
end;
Fällt dir denn da nichts auf, warum es nicht funktioniert?
|