Home
last modified time | relevance | path

Searched refs:FText (Results 1 – 25 of 214) sorted by relevance

123456789

/dports/editors/lazarus/lazarus/components/lazutils/
H A Dtextstrings.pas173 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 Dtextstrings.pas173 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 Dtextstrings.pas173 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 Dtextstrings.pas173 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 Datstringproc_textbuffer.pas38 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 DuPSUtils.pas1205 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 DuPSPreProcessor.pas143 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 DuPSUtils.pas1206 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 DuPSPreProcessor.pas143 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 DuPSUtils.pas1205 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 DuPSPreProcessor.pas143 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 DuPSUtils.pas1206 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 DuPSPreProcessor.pas143 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 Dtchtmlparser.pas19 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 Dtchtmlparser.pas19 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 Deditormacrolistviewer.pas91 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 Deditormacrolistviewer.pas91 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 Deditormacrolistviewer.pas91 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 Deditormacrolistviewer.pas91 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 Dtextline.pas20 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 Dtextline.pas20 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 Dbarcode.pas104 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 Dbarcode.pas104 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 Dbarcode.pas104 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 Dbarcode.pas104 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 …]

123456789