Lines Matching refs:AStr
98 procedure AddToken(AStr: string);
99 procedure TokenizePathString(AStr: string);
100 procedure TokenizeFunctions(AStr: string);
151 …procedure ConvertPathStringToTPath(AStr: string; AData: TvVectorialPage; ADest: TPath; ADeltaX, AD…
170 function StringWithUnitToFloat(AStr: string): Double; in StringWithUnitToFloat()
285 procedure TSVGPathTokenizer.AddToken(AStr: string);
292 lStr := Trim(AStr);
350 lToken.Value := StrToFloat(AStr, FPointSeparator);
359 lStr := Copy(AStr, 2, Length(AStr));
366 procedure TSVGPathTokenizer.TokenizePathString(AStr: string);
379 while i <= Length(AStr) do
384 lCurChar := AStr[i];
424 if AStr[i] <> Str_Space then lState := 0
429 lCurChar := AStr[i];
448 procedure TSVGPathTokenizer.TokenizeFunctions(AStr: string);
464 while i <= Length(AStr) do
469 lCurChar := AStr[i];
489 if AStr[i] <> Str_Space then lState := 0
919 procedure TvODGVectorialReader.ConvertPathStringToTPath(AStr: string;
935 lTokenizer.TokenizePathString(AStr);
2057 function TvODGVectorialReader.StringWithUnitToFloat(AStr: string): Double; in StringWithUnitToFloat()
2062 if AStr = '' then Exit(0.0);
2065 Len := Length(AStr);
2066 UnitStr := Copy(AStr, Len-1, 2);
2069 ValueStr := Copy(AStr, 1, Len-2);
2074 ValueStr := Copy(AStr, 1, Len-2);
2079 ValueStr := Copy(AStr, 1, Len-2);
2084 Result := StrToFloat(AStr, FPointSeparator);