/dports/editors/lazarus/lazarus/components/fpdebug/app/fpdserver/ |
H A D | debugtcpserver.pas | 79 function STrToStr(AStr: string): string; in STrToStr() 83 for i := 1 to length(AStr) do 84 if ord(AStr[i])<20 then 85 result := result +'#'+inttostr(ord(AStr[i])) 92 procedure WriteString(AStr: string); 96 AStr := AStr + #10; 97 i := FData.Write(AStr[1], length(AStr)); 109 else if i < length(AStr) then
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpdebug/app/fpdserver/ |
H A D | debugtcpserver.pas | 79 function STrToStr(AStr: string): string; in STrToStr() 83 for i := 1 to length(AStr) do 84 if ord(AStr[i])<20 then 85 result := result +'#'+inttostr(ord(AStr[i])) 92 procedure WriteString(AStr: string); 96 AStr := AStr + #10; 97 i := FData.Write(AStr[1], length(AStr)); 109 else if i < length(AStr) then
|
/dports/editors/lazarus-qt5/lazarus/components/fpdebug/app/fpdserver/ |
H A D | debugtcpserver.pas | 79 function STrToStr(AStr: string): string; in STrToStr() 83 for i := 1 to length(AStr) do 84 if ord(AStr[i])<20 then 85 result := result +'#'+inttostr(ord(AStr[i])) 92 procedure WriteString(AStr: string); 96 AStr := AStr + #10; 97 i := FData.Write(AStr[1], length(AStr)); 109 else if i < length(AStr) then
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpdebug/app/fpdserver/ |
H A D | debugtcpserver.pas | 79 function STrToStr(AStr: string): string; in STrToStr() 83 for i := 1 to length(AStr) do 84 if ord(AStr[i])<20 then 85 result := result +'#'+inttostr(ord(AStr[i])) 92 procedure WriteString(AStr: string); 96 AStr := AStr + #10; 97 i := FData.Write(AStr[1], length(AStr)); 109 else if i < length(AStr) then
|
/dports/editors/lazarus/lazarus/components/lclextensions/tests/settimer/ |
H A D | Unit1.pas | 154 AStr: String; 157 Timer1: AStr:='Timer1 called'; 158 Timer2: AStr:='Timer2 called'; 159 Timer3: AStr:='Timer3 called'; 161 AStr:='TimerID not identified: '+IntToStr(Message.TimerID); 163 ListBox1.Items.Add('WMTimer - '+AStr);
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lclextensions/tests/settimer/ |
H A D | Unit1.pas | 154 AStr: String; 157 Timer1: AStr:='Timer1 called'; 158 Timer2: AStr:='Timer2 called'; 159 Timer3: AStr:='Timer3 called'; 161 AStr:='TimerID not identified: '+IntToStr(Message.TimerID); 163 ListBox1.Items.Add('WMTimer - '+AStr);
|
/dports/editors/lazarus-qt5/lazarus/components/lclextensions/tests/settimer/ |
H A D | Unit1.pas | 154 AStr: String; 157 Timer1: AStr:='Timer1 called'; 158 Timer2: AStr:='Timer2 called'; 159 Timer3: AStr:='Timer3 called'; 161 AStr:='TimerID not identified: '+IntToStr(Message.TimerID); 163 ListBox1.Items.Add('WMTimer - '+AStr);
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lclextensions/tests/settimer/ |
H A D | Unit1.pas | 154 AStr: String; 157 Timer1: AStr:='Timer1 called'; 158 Timer2: AStr:='Timer2 called'; 159 Timer3: AStr:='Timer3 called'; 161 AStr:='TimerID not identified: '+IntToStr(Message.TimerID); 163 ListBox1.Items.Add('WMTimer - '+AStr);
|
/dports/editors/cudatext/CudaText-1.151.0/app/ |
H A D | proc_str.pas | 30 function SRegexReplaceSubstring(const AStr, AStrFind, AStrReplace: string; AUseSubstitute: boolean)… in SRegexReplaceSubstring() 42 function SRegexFindParts(const ARegex, AStr: string; out AParts: TRegexParts): boolean; in SRegexFindParts() 108 function SRegexFindParts(const ARegex, AStr: string; out AParts: TRegexParts): boolean; in SRegexFindParts() 122 if AStr='' then exit; 132 Obj.InputString:= AStr; 225 function SRegexReplaceSubstring(const AStr, AStrFind, AStrReplace: string; AUseSubstitute: boolean)… 229 Result:= AStr; 230 if AStr='' then exit; 238 Result:= Obj.Replace(AStr, AStrReplace, AUseSubstitute);
|
/dports/lang/fpc-source/fpc-3.2.2/tests/webtbs/ |
H A D | tw10681.pp | 8 AStr : string; 13 AStr := '1.2345'; 14 Val(AStr, AComp, AInt);
|
H A D | tw26615.pp | 13 class function Cr(AStr: UnicodeString): UnicodeString; static; overload; 16 class function TStringHelper.Cr(AStr: UnicodeString): UnicodeString; 18 Result := '#'+AStr;
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/ |
H A D | dxfvectorialreader.pas | 656 (AStr = 'TABLE'); 662 (AStr = 'BLOCK') or 663 (AStr = 'ENDBLK'); 672 (AStr = 'ARC') or 675 (AStr = 'BODY') or 679 (AStr = 'HATCH') or 683 (AStr = 'LINE') or 691 (AStr = 'RAY') or 697 (AStr = 'TEXT') or 702 (AStr = 'XLINE'); [all …]
|
H A D | svgvectorialreader.pas | 334 lStr := Trim(AStr); 381 lStr := Copy(AStr, 2, Length(AStr)); 1250 (AStr = 'stroke') or (AStr = 'stroke-width') or 1251 (AStr = 'stroke-dasharray') or (AStr = 'stroke-opacity') or 1256 (AStr = 'fill') or (AStr = 'fill-opacity') or 1258 (AStr = 'font-size') or (AStr = 'font-family') or 1259 (AStr = 'font-weight') or (AStr = 'text-anchor'); 3431 ValueStr := AStr; 3437 ValueStr := AStr; 3457 if AStr[Length(AStr)] = '%' then [all …]
|
H A D | pdfvrsemantico.pas | 20 function StringToFloat(AStr: string): Double; in StringToFloat() 32 function AnSemantico.StringToFloat(AStr: string): Double; in AnSemantico.StringToFloat() 34 if Pos('.', AStr) > 0 then Result := StrToFloat(AStr, FPointSeparator) 35 else Result := StrToFloat(AStr, FCommaSeparator);
|
/dports/editors/lazarus-qt5/lazarus/components/fpvectorial/ |
H A D | dxfvectorialreader.pas | 656 (AStr = 'TABLE'); 662 (AStr = 'BLOCK') or 663 (AStr = 'ENDBLK'); 672 (AStr = 'ARC') or 675 (AStr = 'BODY') or 679 (AStr = 'HATCH') or 683 (AStr = 'LINE') or 691 (AStr = 'RAY') or 697 (AStr = 'TEXT') or 702 (AStr = 'XLINE'); [all …]
|
H A D | svgvectorialreader.pas | 334 lStr := Trim(AStr); 381 lStr := Copy(AStr, 2, Length(AStr)); 1250 (AStr = 'stroke') or (AStr = 'stroke-width') or 1251 (AStr = 'stroke-dasharray') or (AStr = 'stroke-opacity') or 1256 (AStr = 'fill') or (AStr = 'fill-opacity') or 1258 (AStr = 'font-size') or (AStr = 'font-family') or 1259 (AStr = 'font-weight') or (AStr = 'text-anchor'); 3431 ValueStr := AStr; 3437 ValueStr := AStr; 3457 if AStr[Length(AStr)] = '%' then [all …]
|
/dports/editors/lazarus/lazarus/components/fpvectorial/ |
H A D | dxfvectorialreader.pas | 656 (AStr = 'TABLE'); 662 (AStr = 'BLOCK') or 663 (AStr = 'ENDBLK'); 672 (AStr = 'ARC') or 675 (AStr = 'BODY') or 679 (AStr = 'HATCH') or 683 (AStr = 'LINE') or 691 (AStr = 'RAY') or 697 (AStr = 'TEXT') or 702 (AStr = 'XLINE'); [all …]
|
H A D | svgvectorialreader.pas | 334 lStr := Trim(AStr); 381 lStr := Copy(AStr, 2, Length(AStr)); 1250 (AStr = 'stroke') or (AStr = 'stroke-width') or 1251 (AStr = 'stroke-dasharray') or (AStr = 'stroke-opacity') or 1256 (AStr = 'fill') or (AStr = 'fill-opacity') or 1258 (AStr = 'font-size') or (AStr = 'font-family') or 1259 (AStr = 'font-weight') or (AStr = 'text-anchor'); 3431 ValueStr := AStr; 3437 ValueStr := AStr; 3457 if AStr[Length(AStr)] = '%' then [all …]
|
H A D | pdfvrsemantico.pas | 20 function StringToFloat(AStr: string): Double; in StringToFloat() 32 function AnSemantico.StringToFloat(AStr: string): Double; in AnSemantico.StringToFloat() 34 if Pos('.', AStr) > 0 then Result := StrToFloat(AStr, FPointSeparator) 35 else Result := StrToFloat(AStr, FCommaSeparator);
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/ |
H A D | dxfvectorialreader.pas | 656 (AStr = 'TABLE'); 662 (AStr = 'BLOCK') or 663 (AStr = 'ENDBLK'); 672 (AStr = 'ARC') or 675 (AStr = 'BODY') or 679 (AStr = 'HATCH') or 683 (AStr = 'LINE') or 691 (AStr = 'RAY') or 697 (AStr = 'TEXT') or 702 (AStr = 'XLINE'); [all …]
|
H A D | svgvectorialreader.pas | 334 lStr := Trim(AStr); 381 lStr := Copy(AStr, 2, Length(AStr)); 1250 (AStr = 'stroke') or (AStr = 'stroke-width') or 1251 (AStr = 'stroke-dasharray') or (AStr = 'stroke-opacity') or 1256 (AStr = 'fill') or (AStr = 'fill-opacity') or 1258 (AStr = 'font-size') or (AStr = 'font-family') or 1259 (AStr = 'font-weight') or (AStr = 'text-anchor'); 3431 ValueStr := AStr; 3437 ValueStr := AStr; 3457 if AStr[Length(AStr)] = '%' then [all …]
|
/dports/comms/cqrlog/cqrlog-2.5.0/src/lnet/lib/ |
H A D | lhttputil.pp | 50 function HTTPDecode(AStr: pchar): pchar; 51 function HTTPEncode(const AStr: string): string; 159 function HTTPDecode(AStr: pchar): pchar; 163 lDest := AStr; 165 lPos := AStr; 179 if lDest <> AStr then 180 Move(AStr^, lDest^, lPos-AStr); 181 Inc(lDest, lPos-AStr); 182 AStr := lNext; 194 len := Length(AStr); [all …]
|
/dports/lang/fpc-utils/fpc-3.2.2/utils/fppkg/lnet/ |
H A D | lhttputil.pp | 50 function HTTPDecode(AStr: pchar): pchar; 51 function HTTPEncode(const AStr: string): string; 159 function HTTPDecode(AStr: pchar): pchar; 163 lDest := AStr; 165 lPos := AStr; 179 if lDest <> AStr then 180 Move(AStr^, lDest^, lPos-AStr); 181 Inc(lDest, lPos-AStr); 182 AStr := lNext; 194 len := Length(AStr); [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/utils/fppkg/lnet/ |
H A D | lhttputil.pp | 50 function HTTPDecode(AStr: pchar): pchar; 51 function HTTPEncode(const AStr: string): string; 159 function HTTPDecode(AStr: pchar): pchar; 163 lDest := AStr; 165 lPos := AStr; 179 if lDest <> AStr then 180 Move(AStr^, lDest^, lPos-AStr); 181 Inc(lDest, lPos-AStr); 182 AStr := lNext; 194 len := Length(AStr); [all …]
|
/dports/net/mDNSResponder/mDNSResponder-1310.140.1/ServiceRegistration/ |
H A D | log_srp.m | 13 #define AStr(str) [[NSAttributedString alloc] initWithString:(str)] macro 14 #define AStrWithFormat(format, ...) AStr(([[NSString alloc] initWithFormat:format, __VA_ARGS__])) 65 a_str = AStr(ns_str != nil ? ns_str : nil); 85 require_action_quiet(data.bytes != nil, exit, a_str = AStr(@"<null>")); 93 require_action(ret == kNoErr, exit, a_str = AStr(@"Malformed Domain Name")); 96 a_str = AStr(ns_str != nil ? ns_str : nil); 127 require_action(ret > 0, exit, a_str = AStr(@"<failed to decode - MAC address conversion failed>")); 130 a_str = AStr(ns_str != nil ? ns_str : nil);
|