RemoveLeadingZero

RemoveLeadingZero removes any leading zeroes from S string.

Converting a string with leading zeros will also remove them.

Declaration: Function RemoveLeadingZero( S : String) : string;

An example follows.

procedure OnMapEvent(var Value:Variant);
var
  Str1, Str2 : string;
begin
  Str1 := RemoveLeadingZero('00000123');                  //returns '123'
  Str2 := RemoveLeadingZero('00000This is a test');       //returns 'This is a test'
end;