Changeset 158

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.

Location:

trunk/Forms

Files:

• FormConsole.pas (modified) (2 diffs)
• FormMain.pas (modified) (1 diff)

trunk/Forms/FormConsole.pas

@@ -118 +118 @@
         SetLength(Buffer, Count);
         Text := Text + Buffer;
-        {$IFDEF UNIX}
         Text := StringReplace(Text, #10#13, LineEnding, [rfReplaceAll]);
-        {$ENDIF}
         while Pos(LineEnding, Text) > 0 do begin
           Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
@@ -134 +132 @@
         SetLength(Buffer, Count);
         Text := Text + Buffer;
-        {$IFDEF UNIX}
         Text := StringReplace(Text, #10#13, LineEnding, [rfReplaceAll]);
-        {$ENDIF}
         while Pos(LineEnding, Text) > 0 do begin
           Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);

trunk/Forms/FormMain.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, FormCPU, FormInput,
-  Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target, Registry,
+  Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target,
   LazFileUtils, FormOptions, FormMessages, FormTargets, FormCompileMultiple,
   FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx,