Changeset 153 for trunk/Forms/FormConsole.pas

Timestamp:

Aug 14, 2024, 1:05:13 PM (3 months ago)

Author:

chronos

Message:

• Added: Full screen switching support.
• Added: Help form.
• Modified: Updated Common package.
• Fixed: Execution of compiled Java and C# programs.
• Fixed: Removed interlanced empty lines in Console form on Unix.

File:

• trunk/Forms/FormConsole.pas (modified) (3 diffs)

trunk/Forms/FormConsole.pas

@@ -102 +102 @@
     Process.Parameters.Assign(Parameters);
     Process.Executable := Executable;
-    CommandLine := Executable + ' ' + StringReplace(Parameters.Text, LineEnding, ' ', [rfReplaceAll]);
+    CommandLine := Executable + ' ' + StringReplace(Parameters.Text, LineEnding,
+      ' ', [rfReplaceAll]);
     if CommandLine[Length(CommandLine)] = LineEnding then
       SetLength(CommandLine, Length(CommandLine) - 1);
@@ -117 +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);
@@ -130 +134 @@
         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);