Changeset 158 for trunk/Forms


Ignore:
Timestamp:
Aug 19, 2024, 11:38:05 AM (4 months ago)
Author:
chronos
Message:
  • Fixed: New lines symbols were not recognized on Windows in Console form.
Location:
trunk/Forms
Files:
2 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);

  • trunk/Forms/FormMain.pas

    r157 r158  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, FormCPU, FormInput,
    7   Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target, Registry,
     7  Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target,
    88  LazFileUtils, FormOptions, FormMessages, FormTargets, FormCompileMultiple,
    99  FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx,
Note: See TracChangeset for help on using the changeset viewer.