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;