paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: debugger: fixed reversed output

Browse Source 
git-svn-id: trunk@59611 -
This commit is contained in:
mattias 2018-11-20 16:43:23 +00:00
parent 910d2f1319
commit faeb5f30ec
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/pseudoterminaldlg.pp
View File

@ -618,8 +618,8 @@ var
i, j: integer; i, j: integer;
begin begin
SetLength(result, Length(str)); Result:=str;
j:=1; j:=length(result)+1;
for i := Length(str) downto 1 do for i := Length(str) downto 1 do
begin begin
case str[i] of case str[i] of
@ -630,14 +630,10 @@ var
// #$7f, // #$7f,
// #$80..#$ff, // #$80..#$ff,
begin begin
ReplaceSubstring(Result,j,length(dot),dot); (* GTK2 really doesn't like seeing this *) ReplaceSubstring(Result,j,1,dot); (* GTK2 really doesn't like seeing this *)
inc(j,length(dot));
continue;
end; end;
otherwise
result[j] := str[i];
end; end;
inc(j); dec(j);
end; end;
end { widen } ; end { widen } ;