Einzelnen Beitrag anzeigen

Hobbycoder

Registriert seit: 22. Feb 2017
955 Beiträge
 
#24

AW: führende null entfernen

  Alt 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]<>'0then 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.
  Mit Zitat antworten Zitat