/dports/devel/fpc-fcl-sdo/fpc-3.2.2/packages/fcl-sdo/src/base/ |
H A D | sdo_imp_utils.pas | 84 c := Length(AStr); 104 l := Length(AStr); 113 Result := Copy(AStr, j, ( i - j )); 115 AStr := '' 117 Delete(AStr, 1, i); 122 Result := ( Length(Trim(AStr)) = 0 ) 128 Result := ( Length(Trim(AStr)) = 0 ) 135 l := Length(AStr); 144 Result := Copy(AStr, j, ( i - j )); 146 AStr := '' [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/packages/fcl-sdo/src/base/ |
H A D | sdo_imp_utils.pas | 84 c := Length(AStr); 104 l := Length(AStr); 113 Result := Copy(AStr, j, ( i - j )); 115 AStr := '' 117 Delete(AStr, 1, i); 122 Result := ( Length(Trim(AStr)) = 0 ) 128 Result := ( Length(Trim(AStr)) = 0 ) 135 l := Length(AStr); 144 Result := Copy(AStr, j, ( i - j )); 146 AStr := '' [all …]
|
/dports/textproc/sigil/Sigil-1.8.0/3rdparty/pcre/ |
H A D | pcregexp.pas | 533 Search:=SearchNext(AStr,ALen); 577 Move(AStr[pos], s[1], len); 594 Move(AStr[1],s[1],l); 626 GetFullStr:=GetSubStr(0,AStr); 648 '0' : s:=s+GetFullStr(AStr); 662 '&' : s:=s+GetFullStr(AStr); 664 '`' : s:=s+GetPreSubStr(AStr); 773 pcGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); 782 if PpcRE^.Search(pchar(AStr),Length(AStr)) then 794 pcFastGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); [all …]
|
/dports/devel/pcre/pcre-8.45/ |
H A D | pcregexp.pas | 533 Search:=SearchNext(AStr,ALen); 577 Move(AStr[pos], s[1], len); 594 Move(AStr[1],s[1],l); 626 GetFullStr:=GetSubStr(0,AStr); 648 '0' : s:=s+GetFullStr(AStr); 662 '&' : s:=s+GetFullStr(AStr); 664 '`' : s:=s+GetPreSubStr(AStr); 773 pcGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); 782 if PpcRE^.Search(pchar(AStr),Length(AStr)) then 794 pcFastGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); [all …]
|
/dports/www/mod_jk/tomcat-connectors-1.2.48-src/native/iis/pcre/ |
H A D | pcregexp.pas | 533 Search:=SearchNext(AStr,ALen); 577 Move(AStr[pos], s[1], len); 594 Move(AStr[1],s[1],l); 626 GetFullStr:=GetSubStr(0,AStr); 648 '0' : s:=s+GetFullStr(AStr); 662 '&' : s:=s+GetFullStr(AStr); 664 '`' : s:=s+GetPreSubStr(AStr); 773 pcGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); 782 if PpcRE^.Search(pchar(AStr),Length(AStr)) then 794 pcFastGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); [all …]
|
/dports/databases/mongodb36/mongodb-src-r3.6.23/src/third_party/pcre-8.42/ |
H A D | pcregexp.pas | 533 Search:=SearchNext(AStr,ALen); 577 Move(AStr[pos], s[1], len); 594 Move(AStr[1],s[1],l); 626 GetFullStr:=GetSubStr(0,AStr); 648 '0' : s:=s+GetFullStr(AStr); 662 '&' : s:=s+GetFullStr(AStr); 664 '`' : s:=s+GetPreSubStr(AStr); 773 pcGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); 782 if PpcRE^.Search(pchar(AStr),Length(AStr)) then 794 pcFastGrepMatch:=PpcRE^.Search(pchar(AStr),Length(AStr)); [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/ |
H A D | avisocncgcodereader.pas | 32 function GetCoordinate(AStr: shortstring): Integer; in GetCoordinate() 33 function GetCoordinateValue(AStr: shortstring): Double; in GetCoordinateValue() 93 procedure TvAvisoCNCGCodeReader.ReadString(AStr: string; 101 WriteLn('TvAvisoCNCGCodeReader.ReadString ', AStr); 103 AParams := SeparateString(AStr, ' '); 190 if AStr = '' then Exit 191 else if AStr[1] = 'X' then Result := INT_COORDINATE_X 192 else if AStr[1] = 'Y' then Result := INT_COORDINATE_Y 193 else if AStr[1] = 'Z' then Result := INT_COORDINATE_Z; 200 if Length(AStr) <= 1 then Exit; [all …]
|
/dports/editors/lazarus/lazarus/components/fpvectorial/ |
H A D | avisocncgcodereader.pas | 32 function GetCoordinate(AStr: shortstring): Integer; in GetCoordinate() 33 function GetCoordinateValue(AStr: shortstring): Double; in GetCoordinateValue() 93 procedure TvAvisoCNCGCodeReader.ReadString(AStr: string; 101 WriteLn('TvAvisoCNCGCodeReader.ReadString ', AStr); 103 AParams := SeparateString(AStr, ' '); 190 if AStr = '' then Exit 191 else if AStr[1] = 'X' then Result := INT_COORDINATE_X 192 else if AStr[1] = 'Y' then Result := INT_COORDINATE_Y 193 else if AStr[1] = 'Z' then Result := INT_COORDINATE_Z; 200 if Length(AStr) <= 1 then Exit; [all …]
|
/dports/editors/lazarus-qt5/lazarus/components/fpvectorial/ |
H A D | avisocncgcodereader.pas | 32 function GetCoordinate(AStr: shortstring): Integer; in GetCoordinate() 33 function GetCoordinateValue(AStr: shortstring): Double; in GetCoordinateValue() 93 procedure TvAvisoCNCGCodeReader.ReadString(AStr: string; 101 WriteLn('TvAvisoCNCGCodeReader.ReadString ', AStr); 103 AParams := SeparateString(AStr, ' '); 190 if AStr = '' then Exit 191 else if AStr[1] = 'X' then Result := INT_COORDINATE_X 192 else if AStr[1] = 'Y' then Result := INT_COORDINATE_Y 193 else if AStr[1] = 'Z' then Result := INT_COORDINATE_Z; 200 if Length(AStr) <= 1 then Exit; [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/ |
H A D | avisocncgcodereader.pas | 32 function GetCoordinate(AStr: shortstring): Integer; in GetCoordinate() 33 function GetCoordinateValue(AStr: shortstring): Double; in GetCoordinateValue() 93 procedure TvAvisoCNCGCodeReader.ReadString(AStr: string; 101 WriteLn('TvAvisoCNCGCodeReader.ReadString ', AStr); 103 AParams := SeparateString(AStr, ' '); 190 if AStr = '' then Exit 191 else if AStr[1] = 'X' then Result := INT_COORDINATE_X 192 else if AStr[1] = 'Y' then Result := INT_COORDINATE_Y 193 else if AStr[1] = 'Z' then Result := INT_COORDINATE_Z; 200 if Length(AStr) <= 1 then Exit; [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/tests/webtbs/ |
H A D | tw10753.pp | 10 AStr,AText: string; 13 //This goes wrong, notice the AStr input and output 15 AStr := Format('%0.n',[double(1.0)*AValue]); //1.234.567.890 16 AStr := Format('<font color="#ff0000">%s</font>',[AStr]); 17 Writeln('Wrong:' +AStr); //Wrong: <font color="#ff0000"></font>???? 18 if AStr<>'<font color="#ff0000">1,234,567,890</font>' then 22 AStr := Format('%0.n',[double(1.0)*AValue]); //2.134.567.890 23 AText := Format('<font color="#ff0000">%s</font>',[AStr]);
|
/dports/editors/cudatext/CudaText-1.151.0/app/ |
H A D | proc_keybackupclass.pas | 28 procedure Add(AMapItem: TATKeymapItem; const AStr: string); 29 procedure Get(AMapItem: TATKeymapItem; const AStr: string); 57 procedure TAppHotkeyBackup.Add(AMapItem: TATKeymapItem; const AStr: string); 61 if AStr='' then 72 L.AddObject(AStr, Pair); 76 procedure TAppHotkeyBackup.Get(AMapItem: TATKeymapItem; const AStr: string); 81 N:= L.IndexOf(AStr);
|
/dports/devel/fpc-fcl-web/fpc-3.2.2/packages/fcl-web/src/base/ |
H A D | httpprotocol.pp | 132 Function HTTPDecode(const AStr: String): String; 133 Function HTTPEncode(const AStr: String): String; 153 function HTTPDecode(const AStr: String): String; 166 S:=PChar(AStr); 217 L:=Length(AStr); 223 S:=PChar(AStr); 252 Result:=AStr; 264 L:=Length(AStr); 265 If (L>0) and (AStr[L]='/') then 266 Result:=Copy(AStr,1,L-1) [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/packages/fcl-web/src/base/ |
H A D | httpprotocol.pp | 132 Function HTTPDecode(const AStr: String): String; 133 Function HTTPEncode(const AStr: String): String; 153 function HTTPDecode(const AStr: String): String; 166 S:=PChar(AStr); 217 L:=Length(AStr); 223 S:=PChar(AStr); 252 Result:=AStr; 264 L:=Length(AStr); 265 If (L>0) and (AStr[L]='/') then 266 Result:=Copy(AStr,1,L-1) [all …]
|
/dports/www/chromium-legacy/chromium-88.0.4324.182/third_party/llvm/libcxx/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 58 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 60 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 68 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 73 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 99 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 101 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 109 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 114 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/devel/tinygo/tinygo-0.14.1/llvm-project/libcxx/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 54 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 56 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 64 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 69 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 95 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 97 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 105 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 110 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/www/chromium-legacy/chromium-88.0.4324.182/buildtools/third_party/libc++/trunk/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 54 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 56 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 64 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 69 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 95 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 97 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 105 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 110 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/devel/llvm-cheri/llvm-project-37c49ff00e3eadce5d8703fdc4497f28458c64a8/libcxx/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 54 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 56 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 64 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 69 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 95 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 97 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 105 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 110 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/devel/llvm12/llvm-project-12.0.1.src/libcxx/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 58 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 60 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 68 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 73 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 99 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 101 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 109 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 114 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/devel/libc++/libcxx-10.0.1.src/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 54 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 56 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 64 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 69 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 95 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 97 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 105 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 110 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/devel/wasi-compiler-rt12/llvm-project-12.0.1.src/libcxx/test/std/input.output/filesystems/class.path/path.member/path.native.obs/ |
H A D | string_alloc.pass.cpp | 58 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 60 AStr s = p.string<CharT, Traits, MAlloc>(); in doShortStringTest() 68 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doShortStringTest() typedef 73 AStr s = p.string<CharT, Traits, MAlloc>(a); in doShortStringTest() 99 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 101 AStr s = p.string<CharT, Traits, MAlloc>(); in doLongStringTest() 109 using AStr = std::basic_string<CharT, Traits, MAlloc>; in doLongStringTest() typedef 114 AStr s = p.string<CharT, Traits, MAlloc>(a); in doLongStringTest()
|
/dports/news/husky-areafix/husky-areafix-1.9.20191207/protick/ |
H A D | inifile.pas | 217 if Length (AStr) > Len then Exit; 218 while Length (AStr) < Len do AStr := AStr + Ch; 219 FillStr := AStr; 223 while (Length(AStr) - 1 >= 0) AND 224 (AStr [Length(AStr)] in [#32,#9]) DO 225 AStr[0] := chr(Length(AStr) - 1); 226 StrCut := AStr; 230 while (Length(AStr) - 1 >= 0) AND 231 (AStr [1] in [#32,#9]) DO 232 AStr := Copy (AStr,2,Length(AStr) - 1); [all …]
|
/dports/news/husky-areafix/husky-areafix-1.9.20191207/progate/ |
H A D | inifile.pas | 217 if Length (AStr) > Len then Exit; 218 while Length (AStr) < Len do AStr := AStr + Ch; 219 FillStr := AStr; 223 while (Length(AStr) - 1 >= 0) AND 224 (AStr [Length(AStr)] in [#32,#9]) DO 225 AStr[0] := chr(Length(AStr) - 1); 226 StrCut := AStr; 230 while (Length(AStr) - 1 >= 0) AND 231 (AStr [1] in [#32,#9]) DO 232 AStr := Copy (AStr,2,Length(AStr) - 1); [all …]
|
/dports/news/husky-areafix/husky-areafix-1.9.20191207/promknl/ |
H A D | inifile2.pas | 213 if Length (AStr) > Len then Exit; 214 while Length (AStr) < Len do AStr := AStr + Ch; 215 FillStr := AStr; 219 while (Length(AStr) - 1 >= 0) AND 220 (AStr [Length(AStr)] in [#32,#9]) DO 221 AStr[0] := chr(Length(AStr) - 1); 222 StrCut := AStr; 226 while (Length(AStr) - 1 >= 0) AND 227 (AStr [1] in [#32,#9]) DO 228 AStr := Copy (AStr,2,Length(AStr) - 1); [all …]
|
/dports/news/husky-fidoconf/husky-fidoconf-1.9.20191207/progate/ |
H A D | inifile.pas | 217 if Length (AStr) > Len then Exit; 218 while Length (AStr) < Len do AStr := AStr + Ch; 219 FillStr := AStr; 223 while (Length(AStr) - 1 >= 0) AND 224 (AStr [Length(AStr)] in [#32,#9]) DO 225 AStr[0] := chr(Length(AStr) - 1); 226 StrCut := AStr; 230 while (Length(AStr) - 1 >= 0) AND 231 (AStr [1] in [#32,#9]) DO 232 AStr := Copy (AStr,2,Length(AStr) - 1); [all …]
|