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

* fixed writing of long strings when using the crt unit on win32, resolves #8843

Browse Source 
git-svn-id: trunk@10449 -
This commit is contained in:
florian 2008-03-06 20:20:29 +00:00
parent 5ffdd04040
commit ff03c9569d
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/win/crt.pp
View File

@ -645,19 +645,29 @@ var
WinAttr : word;
i: integer;
begin
WritePos.X := currX - 1;
WritePos.Y := currY - 1;
WriteConsoleOutputCharacter(GetStdhandle(STD_OUTPUT_HANDLE), @s[1], Length(s), writePos, numWritten);
WritePos.X:=currX-2;
WritePos.Y:=currY-1;
WinAttr:=TextAttr;
dec(WritePos.X);
for i:=0 to Length(s)-1 do
for i:=1 to Length(s) do
begin
inc(WritePos.X);
Inc(WritePos.X);
WriteConsoleOutputCharacter(GetStdhandle(STD_OUTPUT_HANDLE), @s[i], 1, writePos, numWritten);
WriteConsoleOutputAttribute(GetStdhandle(STD_OUTPUT_HANDLE),@WinAttr, 1, writePos, numWritten);
Inc(CurrX);
if CurrX>WindMaxX then
begin
CurrX:=WindMinX;
Inc(CurrY);
While CurrY>WindMaxY do
begin
RemoveLine(1);
Dec(CurrY);
end;
WritePos.X:=currX-2;
WritePos.Y:=currY-1;
end;
end;
Inc(CurrX,Length(s));
end;
@ -678,7 +688,7 @@ begin
if s<>'' then
begin
WriteStr(s);
s:='';
s:='';
end;
WriteChar(f.buffer[i]);
end