Lines Matching refs:aFile
34 procedure AssignDisplayString(var aFile: Text; aUtf8: Boolean);
104 function DisplayStringWriteFunc(var aFile: TTextRec ): LongInt;
110 with aFile do
129 function DisplayStringCloseFunc(var aFile: TTextRec): LongInt; in DisplayStringCloseFunc()
135 function DisplayStringOpenFunc(var aFile: TTextRec ): LongInt; in DisplayStringOpenFunc()
140 procedure AssignDisplayString(var aFile: Text; aUtf8: Boolean);
142 FillChar(aFile, SizeOf(TextRec), 0);
144 TextRec(aFile).Handle := UnusedHandle;
145 TextRec(aFile).mode := fmOutput;
146 TextRec(aFile).BufSize := TextRecBufSize;
147 TextRec(aFile).Bufptr := @TextRec(aFile).Buffer;
148 TextRec(aFile).OpenFunc := @DisplayStringOpenFunc;
151 TextRec(aFile).LineEnd := #10;
153 TextRec(aFile).LineEnd := #13#10;
155 TextRec(aFile).LineEnd := #13;
157 TextRec(aFile).Closefunc := @DisplayStringCloseFunc;
158 TextRec(aFile).InOutFunc := @DisplayStringWriteFunc;
159 TextRec(aFile).FlushFunc := @DisplayStringWriteFunc;
160 TextRec(aFile).UserData[1] := Ord(aUTF8);