Ignore:
Timestamp:
Aug 19, 2024, 11:38:05 AM (3 months ago)
Author:
chronos
Message:
  • Fixed: New lines symbols were not recognized on Windows in Console form.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormConsole.pas

    r153 r158  
    118118        SetLength(Buffer, Count);
    119119        Text := Text + Buffer;
    120         {$IFDEF UNIX}
    121120        Text := StringReplace(Text, #10#13, LineEnding, [rfReplaceAll]);
    122         {$ENDIF}
    123121        while Pos(LineEnding, Text) > 0 do begin
    124122          Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
    … …  
    134132        SetLength(Buffer, Count);
    135133        Text := Text + Buffer;
    136         {$IFDEF UNIX}
    137134        Text := StringReplace(Text, #10#13, LineEnding, [rfReplaceAll]);
    138         {$ENDIF}
    139135        while Pos(LineEnding, Text) > 0 do begin
    140136          Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
Note: See TracChangeset for help on using the changeset viewer.