/dports/editors/lazarus/lazarus/components/lazutils/ |
H A D | textstrings.pas | 173 if (FText<>'') and (not (FText[l] in [#10,#13])) then 194 and (FText[p]<>FText[p-1]) then 291 SetLength(FText, Length(FText) + Movement); 294 SetLength(FText, Length(FText) + Movement); 537 FText:=FText+LineEnding; 633 FText:=FText+LineEnding; 666 FText:=FText+LineEnding; 745 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then 773 if (p<=l) and (FText[p] in [#10,#13]) and (FText[p]<>FText[p-1]) then 837 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lazutils/ |
H A D | textstrings.pas | 173 if (FText<>'') and (not (FText[l] in [#10,#13])) then 194 and (FText[p]<>FText[p-1]) then 291 SetLength(FText, Length(FText) + Movement); 294 SetLength(FText, Length(FText) + Movement); 537 FText:=FText+LineEnding; 633 FText:=FText+LineEnding; 666 FText:=FText+LineEnding; 745 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then 773 if (p<=l) and (FText[p] in [#10,#13]) and (FText[p]<>FText[p-1]) then 837 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then [all …]
|
/dports/editors/lazarus-qt5/lazarus/components/lazutils/ |
H A D | textstrings.pas | 173 if (FText<>'') and (not (FText[l] in [#10,#13])) then 194 and (FText[p]<>FText[p-1]) then 291 SetLength(FText, Length(FText) + Movement); 294 SetLength(FText, Length(FText) + Movement); 537 FText:=FText+LineEnding; 633 FText:=FText+LineEnding; 666 FText:=FText+LineEnding; 745 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then 773 if (p<=l) and (FText[p] in [#10,#13]) and (FText[p]<>FText[p-1]) then 837 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lazutils/ |
H A D | textstrings.pas | 173 if (FText<>'') and (not (FText[l] in [#10,#13])) then 194 and (FText[p]<>FText[p-1]) then 291 SetLength(FText, Length(FText) + Movement); 294 SetLength(FText, Length(FText) + Movement); 537 FText:=FText+LineEnding; 633 FText:=FText+LineEnding; 666 FText:=FText+LineEnding; 745 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then 773 if (p<=l) and (FText[p] in [#10,#13]) and (FText[p]<>FText[p-1]) then 837 if (FText<>'') and (not (FText[length(FText)] in [#10,#13])) then [all …]
|
/dports/editors/cudatext/CudaText-1.151.0/atsynedit/atsynedit/ |
H A D | atstringproc_textbuffer.pas | 38 FText: UnicodeString; 82 FText:= ''; 104 FText:= AText; 144 FText:= AText; 145 if FText='' then 161 if (i<Length(FText)) and (FText[i+1]=#10) then 167 FText[i]:= #10; 201 FText:= Other.FText; 202 UniqueString(FText); 213 FText:= ''; [all …]
|
/dports/editors/lazarus/lazarus/components/PascalScript/Source/ |
H A D | uPSUtils.pas | 1205 case FText[ct] of 1257 if (FText[ci] in ['E','e']) and ((FText[ci+1] in ['0'..'9']) 1258 or ((FText[ci+1] in ['+','-']) and (FText[ci+2] in ['0'..'9']))) then 1282 if (FText[ci] = #0) or (FText[ci] = #13) or (FText[ci] = #10) then Break; 1292 if FText[ci] = #39 then 1304 if FText[ci] = '$' then 1371 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 1477 while (FText[ci] <> #0) and (FText[ci] <> #13) and 1519 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 1551 if FText = nil then [all …]
|
H A D | uPSPreProcessor.pas | 143 FText: PAnsichar; 336 case FText[FPos] of 345 while (FText[ci] <> #0) do 348 while FText[ci] = '''' do 355 if FText[ci] = #13 then 358 if FText[ci] = #10 then 380 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 413 while (FText[ci] <> #0) and (FText[ci] <> #13) and 428 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 456 if FText[ci] = #13 then [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/PascalScript/Source/ |
H A D | uPSUtils.pas | 1206 case FText[ct] of 1258 if (FText[ci] in ['E','e']) and ((FText[ci+1] in ['0'..'9']) 1259 or ((FText[ci+1] in ['+','-']) and (FText[ci+2] in ['0'..'9']))) then 1283 if (FText[ci] = #0) or (FText[ci] = #13) or (FText[ci] = #10) then Break; 1293 if FText[ci] = #39 then 1305 if FText[ci] = '$' then 1372 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 1478 while (FText[ci] <> #0) and (FText[ci] <> #13) and 1520 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 1552 if FText = nil then [all …]
|
H A D | uPSPreProcessor.pas | 143 FText: PAnsichar; 336 case FText[FPos] of 345 while (FText[ci] <> #0) do 348 while FText[ci] = '''' do 355 if FText[ci] = #13 then 358 if FText[ci] = #10 then 380 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 413 while (FText[ci] <> #0) and (FText[ci] <> #13) and 428 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 456 if FText[ci] = #13 then [all …]
|
/dports/editors/lazarus-qt5/lazarus/components/PascalScript/Source/ |
H A D | uPSUtils.pas | 1205 case FText[ct] of 1257 if (FText[ci] in ['E','e']) and ((FText[ci+1] in ['0'..'9']) 1258 or ((FText[ci+1] in ['+','-']) and (FText[ci+2] in ['0'..'9']))) then 1282 if (FText[ci] = #0) or (FText[ci] = #13) or (FText[ci] = #10) then Break; 1292 if FText[ci] = #39 then 1304 if FText[ci] = '$' then 1371 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 1477 while (FText[ci] <> #0) and (FText[ci] <> #13) and 1519 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 1551 if FText = nil then [all …]
|
H A D | uPSPreProcessor.pas | 143 FText: PAnsichar; 336 case FText[FPos] of 345 while (FText[ci] <> #0) do 348 while FText[ci] = '''' do 355 if FText[ci] = #13 then 358 if FText[ci] = #10 then 380 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 413 while (FText[ci] <> #0) and (FText[ci] <> #13) and 428 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 456 if FText[ci] = #13 then [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/PascalScript/Source/ |
H A D | uPSUtils.pas | 1206 case FText[ct] of 1258 if (FText[ci] in ['E','e']) and ((FText[ci+1] in ['0'..'9']) 1259 or ((FText[ci+1] in ['+','-']) and (FText[ci+2] in ['0'..'9']))) then 1283 if (FText[ci] = #0) or (FText[ci] = #13) or (FText[ci] = #10) then Break; 1293 if FText[ci] = #39 then 1305 if FText[ci] = '$' then 1372 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 1478 while (FText[ci] <> #0) and (FText[ci] <> #13) and 1520 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 1552 if FText = nil then [all …]
|
H A D | uPSPreProcessor.pas | 143 FText: PAnsichar; 336 case FText[FPos] of 345 while (FText[ci] <> #0) do 348 while FText[ci] = '''' do 355 if FText[ci] = #13 then 358 if FText[ci] = #10 then 380 if (FText[ci] = '*') and (FText[ci + 1] = ')') then 413 while (FText[ci] <> #0) and (FText[ci] <> #13) and 428 while (FText[ci] <> #0) and (FText[ci] <> '}') do begin 456 if FText[ci] = #13 then [all …]
|
/dports/devel/fpc-fcl-report/fpc-3.2.2/packages/fcl-report/test/ |
H A D | tchtmlparser.pas | 19 FText: TStringList; 58 FText.Add(Text); 66 FText := TStringList.Create; 73 FText.Free; 82 AssertEquals('Failed on 3', FText[0], 'italics'); 89 AssertEquals('Failed on 2', FText[0], 'italics'); 97 AssertEquals('Failed on 3', FText[0], 'italics'); 98 AssertEquals('Failed on 4', FText[1], ' regular text'); 106 AssertEquals('Failed on 3', FText[0], 'regular text '); 107 AssertEquals('Failed on 4', FText[1], 'italics'); [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/packages/fcl-report/test/ |
H A D | tchtmlparser.pas | 19 FText: TStringList; 58 FText.Add(Text); 66 FText := TStringList.Create; 73 FText.Free; 82 AssertEquals('Failed on 3', FText[0], 'italics'); 89 AssertEquals('Failed on 2', FText[0], 'italics'); 97 AssertEquals('Failed on 3', FText[0], 'italics'); 98 AssertEquals('Failed on 4', FText[1], ' regular text'); 106 AssertEquals('Failed on 3', FText[0], 'regular text '); 107 AssertEquals('Failed on 4', FText[1], 'italics'); [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/ide/ |
H A D | editormacrolistviewer.pas | 91 FText: String; 840 FText := TrimRight(FText); 842 FText := TrimLeft(FText); 850 FText := copy(FText, 7, i-11); 854 FText := Trim(FText); 884 FText := TrimLeft(FText); 905 while (i <= Length(FText)) and (FText[i] in [' ', #9]) do 1016 FText := FText + FCmdName; 1018 FText := FText + '(' + FParams + ')'; 1019 FText := FText + ';'; [all …]
|
/dports/editors/lazarus/lazarus/ide/ |
H A D | editormacrolistviewer.pas | 91 FText: String; 825 FText := TrimRight(FText); 828 FText := TrimLeft(FText); 836 FText := copy(FText, 7, i-11); 840 FText := Trim(FText); 857 while (i <= Length(FText)) and (FText[i] in ['0'..'9']) do 870 FText := TrimLeft(FText); 1000 FText := FText + FCmdName; 1002 FText := FText + '(' + FParams + ')'; 1003 FText := FText + ';'; [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/ide/ |
H A D | editormacrolistviewer.pas | 91 FText: String; 840 FText := TrimRight(FText); 842 FText := TrimLeft(FText); 850 FText := copy(FText, 7, i-11); 854 FText := Trim(FText); 884 FText := TrimLeft(FText); 905 while (i <= Length(FText)) and (FText[i] in [' ', #9]) do 1016 FText := FText + FCmdName; 1018 FText := FText + '(' + FParams + ')'; 1019 FText := FText + ';'; [all …]
|
/dports/editors/lazarus-qt5/lazarus/ide/ |
H A D | editormacrolistviewer.pas | 91 FText: String; 825 FText := TrimRight(FText); 828 FText := TrimLeft(FText); 836 FText := copy(FText, 7, i-11); 840 FText := Trim(FText); 857 while (i <= Length(FText)) and (FText[i] in ['0'..'9']) do 870 FText := TrimLeft(FText); 1000 FText := FText + FCmdName; 1002 FText := FText + '(' + FParams + ')'; 1003 FText := FText + ';'; [all …]
|
/dports/graphics/lazpaint/lazpaint-7.1.6/bgrabitmapnew/dev/releaser/ |
H A D | textline.pas | 20 FText: string; 54 FText := str.DataString; 75 if FText <> '' then 76 stream.WriteBuffer(FText[1], length(FText)); 104 curLine := copy(FText, start, AEnd-start); 121 while (i < length(FText)) and (FTextLineEnd <= FTextLineStart) do 123 if FText[i] in[#13,#10] then TryLine(i); 141 delete(FText, FTextLineStart, FTextLineEnd-FTextLineStart); 142 insert(newLine, FText, FTextLineStart);
|
/dports/editors/cudatext/CudaText-1.151.0/bgrabitmap/dev/releaser/ |
H A D | textline.pas | 20 FText: string; 54 FText := str.DataString; 75 if FText <> '' then 76 stream.WriteBuffer(FText[1], length(FText)); 104 curLine := copy(FText, start, AEnd-start); 121 while (i < length(FText)) and (FTextLineEnd <= FTextLineStart) do 123 if FText[i] in[#13,#10] then TryLine(i); 141 delete(FText, FTextLineStart, FTextLineEnd-FTextLineStart); 142 insert(newLine, FText, FTextLineStart);
|
/dports/editors/lazarus/lazarus/components/lazreport/source/ |
H A D | barcode.pas | 104 FText: string; 451 FText:=AValue; 844 save := FText; 845 FText := ''; 850 FText := FText + code39x[Ord(save[i])]; 853 FText := save; 1016 FCodeText := FText; 1228 save := FText; 1229 FText := ''; 1235 FText := FText + code93x[Ord(save[i])]; [all …]
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lazreport/source/ |
H A D | barcode.pas | 104 FText: string; 451 FText:=AValue; 844 save := FText; 845 FText := ''; 850 FText := FText + code39x[Ord(save[i])]; 853 FText := save; 1016 FCodeText := FText; 1228 save := FText; 1229 FText := ''; 1235 FText := FText + code93x[Ord(save[i])]; [all …]
|
/dports/editors/lazarus-qt5/lazarus/components/lazreport/source/ |
H A D | barcode.pas | 104 FText: string; 451 FText:=AValue; 844 save := FText; 845 FText := ''; 850 FText := FText + code39x[Ord(save[i])]; 853 FText := save; 1016 FCodeText := FText; 1228 save := FText; 1229 FText := ''; 1235 FText := FText + code93x[Ord(save[i])]; [all …]
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/lazreport/source/ |
H A D | barcode.pas | 104 FText: string; 451 FText:=AValue; 844 save := FText; 845 FText := ''; 850 FText := FText + code39x[Ord(save[i])]; 853 FText := save; 1016 FCodeText := FText; 1228 save := FText; 1229 FText := ''; 1235 FText := FText + code93x[Ord(save[i])]; [all …]
|