Registriert seit: 22. Feb 2017
955 Beiträge
|
AW: führende null entfernen
1. Aug 2018, 20:12
Ein hätte ich auch noch:
Delphi-Quellcode:
function RemoveLeftZero(input: string): string;
var
i: integer;
begin
result:='';
for i:=1 to length(input) do
if result<>'' then
result:=result+input[i]
else
if input[i]<>'0' then result:=result+input[i];
end;
Performance ist aber sicher nicht die beste, aber darum geht's hier ja nicht.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
|