DelphiConsole：现代化Pascal控制台应用开发框架

icy 昨天 13 抢沙发

默认

摘要： DelphiConsole：现代化Pascal控制台应用开发框架项目概述 DelphiConsole 是一个基于 Pascal/Delphi 的现代化控制台应用程序开发框架，由...

DelphiConsole：现代化Pascal控制台应用开发框架

项目概述

DelphiConsole 是一个基于 Pascal/Delphi 的现代化控制台应用程序开发框架，由 Jens Borrisholt 创建并维护。该项目旨在为 Delphi 开发者提供一套完整的工具集，简化控制台应用程序的开发流程，同时保持 Pascal 语言的优雅和强大功能。

核心特性

1. 跨平台兼容性

支持 Windows、Linux 和 macOS 系统
统一的 API 接口，减少平台特定代码
自动处理不同操作系统的控制台差异

2. 丰富的控制台功能

彩色文本输出支持
光标定位和控制
键盘输入处理（包括功能键检测）
控制台窗口大小和缓冲区管理

3. 现代化开发体验

面向对象的设计模式
事件驱动架构
模块化组件设计
易于扩展的类结构

安装与配置

通过 GitHub 获取项目

text

git clone https://github.com/JensBorrisholt/DelphiConsole.git

Delphi IDE 集成

打开 Delphi IDE
选择 “Project” → “Options” → “Search Path”
添加 DelphiConsole 源代码目录
在 uses 子句中引用所需单元

使用示例

示例 1：基础控制台应用

text

program SimpleConsoleDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Console in '..\..\Source\Console.pas';

var
  Console: TConsole;
begin
  Console := TConsole.Create;
  try
    // 设置控制台标题
    Console.Title := 'DelphiConsole 演示程序';
    
    // 输出彩色文本
    Console.WriteLine('欢迎使用 DelphiConsole！', clGreen);
    Console.WriteLine('这是一个基础演示程序', clYellow);
    
    // 等待用户输入
    Console.WriteLine('');
    Console.Write('按任意键继续...', clWhite);
    Console.ReadKey;
    
  finally
    Console.Free;
  end;
end.

示例 2：进度条显示

text

program ProgressBarDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Console in '..\..\Source\Console.pas',
  ConsoleProgressBar in '..\..\Source\Components\ConsoleProgressBar.pas';

var
  Console: TConsole;
  ProgressBar: TConsoleProgressBar;
  i: Integer;
begin
  Console := TConsole.Create;
  ProgressBar := TConsoleProgressBar.Create(Console);
  try
    Console.Title := '进度条演示';
    Console.Clear;
    
    Console.WriteLine('开始处理任务...', clCyan);
    
    // 配置进度条
    ProgressBar.Width := 50;
    ProgressBar.ShowPercentage := True;
    ProgressBar.ShowTimeElapsed := True;
    
    // 模拟处理过程
    for i := 1 to 100 do
    begin
      ProgressBar.Progress := i;
      Sleep(50); // 模拟处理延迟
    end;
    
    Console.WriteLine('');
    Console.WriteLine('任务完成！', clGreen);
    Console.ReadKey;
    
  finally
    ProgressBar.Free;
    Console.Free;
  end;
end.

示例 3：交互式菜单系统

text

program MenuDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Console in '..\..\Source\Console.pas',
  ConsoleMenu in '..\..\Source\Components\ConsoleMenu.pas';

var
  Console: TConsole;
  Menu: TConsoleMenu;
  Choice: Integer;
begin
  Console := TConsole.Create;
  Menu := TConsoleMenu.Create(Console);
  try
    Console.Title := '交互式菜单演示';
    Console.Clear;
    
    // 配置菜单
    Menu.Header := '请选择操作：';
    Menu.AddItem('1. 显示系统信息');
    Menu.AddItem('2. 运行测试');
    Menu.AddItem('3. 配置选项');
    Menu.AddItem('4. 退出程序');
    
    repeat
      Console.Clear;
      Console.WriteLine('主菜单', clCyan);
      Console.WriteLine('===============', clWhite);
      
      Choice := Menu.ShowMenu;
      
      case Choice of
        1: begin
             Console.Clear;
             Console.WriteLine('系统信息：', clYellow);
             Console.WriteLine('操作系统: ' + Console.OSVersion, clWhite);
             Console.WriteLine('控制台大小: %dx%d', 
               [Console.WindowWidth, Console.WindowHeight], clWhite);
             Console.ReadKey;
           end;
           
        2: begin
             Console.Clear;
             Console.WriteLine('运行测试中...', clGreen);
             Sleep(2000);
             Console.WriteLine('测试完成！', clGreen);
             Console.ReadKey;
           end;
           
        3: begin
             Console.Clear;
             Console.WriteLine('配置选项功能开发中...', clYellow);
             Console.ReadKey;
           end;
      end;
      
    until Choice = 4;
    
    Console.WriteLine('感谢使用！', clGreen);
    
  finally
    Menu.Free;
    Console.Free;
  end;
end.

示例 4：表格数据展示

text

program TableDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Console in '..\..\Source\Console.pas',
  ConsoleTable in '..\..\Source\Components\ConsoleTable.pas';

var
  Console: TConsole;
  Table: TConsoleTable;
begin
  Console := TConsole.Create;
  Table := TConsoleTable.Create(Console);
  try
    Console.Title := '表格数据演示';
    Console.Clear;
    
    // 配置表格
    Table.ColumnCount := 4;
    Table.SetColumnWidth(0, 15);
    Table.SetColumnWidth(1, 10);
    Table.SetColumnWidth(2, 12);
    Table.SetColumnWidth(3, 10);
    
    // 添加表头
    Table.AddRow(['产品名称', '数量', '价格', '状态']);
    Table.SetRowColors(0, [clYellow, clYellow, clYellow, clYellow]);
    
    // 添加数据行
    Table.AddRow(['Delphi 社区版', '150', '$0.00', '可用']);
    Table.AddRow(['Delphi 专业版', '75', '$1,499', '可用']);
    Table.AddRow(['Delphi 企业版', '30', '$3,499', '限量']);
    Table.AddRow(['C++Builder', '45', '$2,999', '可用']);
    
    // 设置数据行颜色
    Table.SetRowColors(1, [clWhite, clGreen, clWhite, clGreen]);
    Table.SetRowColors(2, [clWhite, clGreen, clWhite, clGreen]);
    Table.SetRowColors(3, [clWhite, clYellow, clWhite, clYellow]);
    Table.SetRowColors(4, [clWhite, clGreen, clWhite, clGreen]);
    
    // 显示表格
    Console.WriteLine('产品库存列表', clCyan);
    Console.WriteLine('');
    Table.DrawTable;
    
    Console.WriteLine('');
    Console.WriteLine('按任意键退出...', clWhite);
    Console.ReadKey;
    
  finally
    Table.Free;
    Console.Free;
  end;
end.

高级功能

1. 控制台事件处理

DelphiConsole 支持事件驱动编程，可以响应各种控制台事件：

text

// 设置控制台大小改变事件
Console.OnConsoleResize := procedure(Sender: TObject; NewWidth, NewHeight: Integer)
begin
  Console.WriteLine('控制台大小已改变: %dx%d', [NewWidth, NewHeight], clYellow);
end;

2. 多线程支持

框架提供了线程安全的控制台操作方法，支持在多线程环境中使用。

3. 日志记录集成

可以轻松集成日志记录功能，将控制台输出同时保存到文件。

项目结构

text

DelphiConsole/
├── Source/
│   ├── Console.pas              # 核心控制台类
│   ├── Components/              # 组件目录
│   │   ├── ConsoleMenu.pas      # 菜单组件
│   │   ├── ConsoleProgressBar.pas # 进度条组件
│   │   ├── ConsoleTable.pas     # 表格组件
│   │   └── ...                 # 其他组件
│   └── Utils/                   # 工具类
├── Examples/                    # 示例程序
├── Tests/                       # 单元测试
└── Documentation/               # 文档