/dports/lang/fpc-source/fpc-3.2.2/tests/test/units/character/ |
H A D | tgetnumericvalue2.pp | 39 procedure DoError(ACode : Integer; AStr : UnicodeString; AIndex : Integer); overload; 41 WriteLn('Error #',ACode,' ; CodePoint = ',IntToHex(Ord(AStr[AIndex]),4));
|
H A D | tlowercase2.pp | 39 procedure DoError(ACode : Integer; AStr : UnicodeString; AIndex : Integer); overload; 41 WriteLn('Error #',ACode,' ; CodePoint = ',IntToHex(Ord(AStr[AIndex]),4));
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/ |
H A D | mathmlvectorialreader.pas | 26 function StringToFloat(AStr: string): Single; in StringToFloat() 41 function TvMathMLVectorialReader.StringToFloat(AStr: string): Single; in StringToFloat() 43 Result := StrToInt(AStr);
|
/dports/editors/lazarus/lazarus/components/fpvectorial/ |
H A D | mathmlvectorialreader.pas | 26 function StringToFloat(AStr: string): Single; in StringToFloat() 41 function TvMathMLVectorialReader.StringToFloat(AStr: string): Single; in StringToFloat() 43 Result := StrToInt(AStr);
|
/dports/editors/lazarus-qt5/lazarus/components/fpvectorial/ |
H A D | mathmlvectorialreader.pas | 26 function StringToFloat(AStr: string): Single; in StringToFloat() 41 function TvMathMLVectorialReader.StringToFloat(AStr: string): Single; in StringToFloat() 43 Result := StrToInt(AStr);
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/fpvectorial/ |
H A D | mathmlvectorialreader.pas | 26 function StringToFloat(AStr: string): Single; in StringToFloat() 41 function TvMathMLVectorialReader.StringToFloat(AStr: string): Single; in StringToFloat() 43 Result := StrToInt(AStr);
|
/dports/editors/fte/fte/src/ |
H A D | e_tags.cpp | 215 char *AStr = LLine; local 216 char *p = AStr + 1; 217 char *d = AStr; 235 if (!AllocMem(AStr, strlen(AStr) + 1, &MStr))
|
/dports/editors/lazarus/lazarus/lcl/interfaces/customdrawn/ |
H A D | customdrawnint.pas | 186 procedure AndroidDebugLn(ASender: TObject; AStr: string; var AHandled: Boolean; 189 procedure AndroidDebugLn(AStr: string); 243 procedure AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 246 procedure AccumulatingDebugOut(AStr: string);
|
H A D | customdrawnobject.inc | 13 procedure TCDWidgetSet.AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 18 AccumulatedStr := AccumulatedStr + AStr; 21 procedure TCDWidgetSet.AccumulatingDebugOut(AStr: string); 23 AccumulatedStr := AccumulatedStr + AStr;
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/customdrawn/ |
H A D | customdrawnint.pas | 186 procedure AndroidDebugLn(ASender: TObject; AStr: string; var AHandled: Boolean; 189 procedure AndroidDebugLn(AStr: string); 243 procedure AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 246 procedure AccumulatingDebugOut(AStr: string);
|
H A D | customdrawnobject.inc | 13 procedure TCDWidgetSet.AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 18 AccumulatedStr := AccumulatedStr + AStr; 21 procedure TCDWidgetSet.AccumulatingDebugOut(AStr: string); 23 AccumulatedStr := AccumulatedStr + AStr;
|
/dports/editors/lazarus-qt5/lazarus/lcl/interfaces/customdrawn/ |
H A D | customdrawnint.pas | 186 procedure AndroidDebugLn(ASender: TObject; AStr: string; var AHandled: Boolean; 189 procedure AndroidDebugLn(AStr: string); 243 procedure AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 246 procedure AccumulatingDebugOut(AStr: string);
|
H A D | customdrawnobject.inc | 13 procedure TCDWidgetSet.AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 18 AccumulatedStr := AccumulatedStr + AStr; 21 procedure TCDWidgetSet.AccumulatingDebugOut(AStr: string); 23 AccumulatedStr := AccumulatedStr + AStr;
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/lcl/interfaces/customdrawn/ |
H A D | customdrawnobject.inc | 13 procedure TCDWidgetSet.AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 18 AccumulatedStr := AccumulatedStr + AStr; 21 procedure TCDWidgetSet.AccumulatingDebugOut(AStr: string); 23 AccumulatedStr := AccumulatedStr + AStr;
|
H A D | customdrawnint.pas | 186 procedure AndroidDebugLn(ASender: TObject; AStr: string; var AHandled: Boolean; 189 procedure AndroidDebugLn(AStr: string); 243 procedure AccumulatingDebugOut(ASender: TObject; AStr: string; var AHandled: Boolean; 246 procedure AccumulatingDebugOut(AStr: string);
|
/dports/editors/fpc-ide/fpc-3.2.2/rtl/objpas/ |
H A D | unicodedata.pas | 1351 c := Length(AStr); 1354 if (AStr[i] <> ';') then begin 1362 if (AStr[i] = ';') then begin 1363 s := Copy(AStr,k,(i-k)); 1365 s := Copy(AStr,k,(i+1-k)); 1968 p := AStr; 2046 pp := AStr; 3074 psBase := AStr; 3592 pp := AStr; 3631 if (AStr = '') then [all …]
|
/dports/lang/fpc-utils/fpc-3.2.2/rtl/objpas/ |
H A D | unicodedata.pas | 1351 c := Length(AStr); 1354 if (AStr[i] <> ';') then begin 1362 if (AStr[i] = ';') then begin 1363 s := Copy(AStr,k,(i-k)); 1365 s := Copy(AStr,k,(i+1-k)); 1968 p := AStr; 2046 pp := AStr; 3074 psBase := AStr; 3592 pp := AStr; 3631 if (AStr = '') then [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/rtl/objpas/ |
H A D | unicodedata.pas | 1351 c := Length(AStr); 1354 if (AStr[i] <> ';') then begin 1362 if (AStr[i] = ';') then begin 1363 s := Copy(AStr,k,(i-k)); 1365 s := Copy(AStr,k,(i+1-k)); 1968 p := AStr; 2046 pp := AStr; 3074 psBase := AStr; 3592 pp := AStr; 3631 if (AStr = '') then [all …]
|
/dports/lang/fpc/fpc-3.2.2/rtl/objpas/ |
H A D | unicodedata.pas | 1351 c := Length(AStr); 1354 if (AStr[i] <> ';') then begin 1362 if (AStr[i] = ';') then begin 1363 s := Copy(AStr,k,(i-k)); 1365 s := Copy(AStr,k,(i+1-k)); 1968 p := AStr; 2046 pp := AStr; 3074 psBase := AStr; 3592 pp := AStr; 3631 if (AStr = '') then [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/ |
H A D | tasources.pas | 476 function StrToFloatOrDateTime(const AStr: String): Double; 478 if (AStr = '') or (AStr = '?') then 481 if not TryStrToFloat(AStr, Result, DefSeparatorSettings) and 482 not TryStrToFloat(AStr, Result) and 483 not TryStrToDateTime(AStr, Result) 485 …raise EListSourceStringError.CreateFmt(rsListSourceNumericError, [NameOrClassName(FSource), AStr]); 489 function StrToInt(const AStr: String): Integer; 491 if (AStr = '') or (AStr = '?') then 494 if not TryStrToInt(AStr, Result) then 495 … raise EListSourceStringError.CreateFmt(rsListSourceColorError, [NameOrClassName(FSource), AStr]);
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/ |
H A D | tasources.pas | 476 function StrToFloatOrDateTime(const AStr: String): Double; 478 if (AStr = '') or (AStr = '?') then 481 if not TryStrToFloat(AStr, Result, DefSeparatorSettings) and 482 not TryStrToFloat(AStr, Result) and 483 not TryStrToDateTime(AStr, Result) 485 …raise EListSourceStringError.CreateFmt(rsListSourceNumericError, [NameOrClassName(FSource), AStr]); 489 function StrToInt(const AStr: String): Integer; 491 if (AStr = '') or (AStr = '?') then 494 if not TryStrToInt(AStr, Result) then 495 … raise EListSourceStringError.CreateFmt(rsListSourceColorError, [NameOrClassName(FSource), AStr]);
|
/dports/www/erlang-cowboy/cowboy-1.1.2/test/ |
H A D | cowboy_error_h.erl | 75 {match, [AStr]} = re:run(Rest, "([^,]+).+", 77 list_to_integer(AStr)
|
/dports/editors/cudatext/CudaText-1.151.0/atbinhex/atbinhex/ |
H A D | atbinhex.pas | 104 const AStr: UnicodeString; 132 const AStr: UnicodeString; 993 const AStr: UnicodeString; 999 if AStr <> '' then 1002 AStr := RegExReplaceToChar(AStr, TextRepFrom1, TextRepTo1, False); 1004 AStr := RegExReplaceToChar(AStr, TextRepFrom2, TextRepTo2, False); 1006 AStr := RegExReplaceToChar(AStr, TextRepFrom3, TextRepTo3, False); 1016 const AStr: UnicodeString; 1038 const AStr: UnicodeString; 1047 if AStr='' then Exit; [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/tests/webtbs/ |
H A D | tw29244.pp | 9 AStr : String = '';
|
/dports/editors/lazarus/lazarus/lcl/include/ |
H A D | intfbasewinapi.inc | 371 AStr : String; 545 OldText := AStr; 591 AStr := Lines[0]; 595 wT := GetStringLength(DC, AStr,1, Length(AStr) + 1); 602 AStr := Lines[J]; 605 If wT < GetStringLength(DC, AStr,1, Length(AStr) + 1) 607 wT := GetStringLength(DC, AStr,1, Length(AStr) + 1); 655 AStr := ''; 657 tmpString := Copy(AStr, 1, Length(AStr)); 719 AStr := Lines[I]; [all …]
|