paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 23:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* The last line in a document is now read correctly

Browse Source
This commit is contained in:
sg 2000-02-24 13:32:10 +00:00
parent ae1a4de6dc
commit 55b54024f9
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/shedit/doc_text.pp
View File

@ -299,13 +299,15 @@ begin
if BytesInBuffer > 0 then
if buffer[BytesInBuffer - 1] in [#13, #10] then begin
buffer[BytesInBuffer - 1] := #0;
SetLength(line, BytesInBuffer);
Move(buffer, line[1], BytesInBuffer);
SetLength(line, BytesInBuffer - 1);
Move(buffer^, line[1], BytesInBuffer - 1);
ProcessLine(line);
ProcessLine('');
end else
ProcessLine(buffer);
end else begin
SetLength(line, BytesInBuffer);
Move(buffer^, line[1], BytesInBuffer);
ProcessLine(line);
end;
if Assigned(buffer) then
FreeMem(buffer);
@ -404,7 +406,10 @@ end.
{
$Log$
Revision 1.11 2000-02-22 14:26:52 sg
Revision 1.12 2000-02-24 13:32:10 sg
* The last line in a document is now read correctly
Revision 1.11 2000/02/22 14:26:52 sg
* New, much faster stream reader
* Added more notifiers for the attached view objects