Delphi TStringStream 简单用法


本文整理自网络,侵删。

 
procedure TForm1.Button2Click(Sender: TObject);
var
  OutPutDemo: String;
  Buffer: TStringStream;
begin
  OutPutDemo :=   '@echo off ' +
  #13#10+'setlocal EnableDelayedExpansion ' +
  #13#10+'set "CSI=[" ' +
  #13#10+'echo/ ' +
  #13#10+'echo                     Ansi color table of console text colors ' +
  #13#10+'echo/ ' +
  #13#10+'echo                                        ^| -^> Foreground light colors ' +
  #13#10+'echo                                        ^| ' +
  #13#10+'for /L %%b in (40,1,47) do ( ' +
  #13#10+'   set "line=%CSI%%%b;30m%%b30" ' +
  #13#10+'   for /L %%f in (31,1,37) do set "line=!line!%CSI%%%b;%%fm %%b%%f" ' +
  #13#10+'   for /L %%f in (30,1,37) do set "line=!line!%CSI%%%b;%%f;1m %%b%%f" ' +
  #13#10+'   echo !line! ' +
  #13#10+') ' +
  #13#10+'echo/ ' +
  #13#10+'for /L %%b in (40,1,47) do ( ' +
  #13#10+'   set "line=%CSI%%%b;5;30m%%b30" ' +
  #13#10+'   for /L %%f in (31,1,37) do set "line=!line!%CSI%%%b;5;%%fm %%b%%f" ' +
  #13#10+'   for /L %%f in (30,1,37) do set "line=!line!%CSI%%%b;5;%%f;1m %%b%%f" ' +
  #13#10+'   echo !line! ' +
  #13#10+') ' +
  #13#10+'echo/ ' +
  #13#10+'pause ';

  if not FileExists(ExtractFilePath(ParamStr(0))+'colors.cmd') then
  begin
    Buffer := TStringStream.Create;
    try
      Buffer.WriteString(OutPutDemo);
      Buffer.SaveToFile(ExtractFilePath(ParamStr(0))+'colors.cmd');
    finally
      Buffer.Free;
    end;
  end;


  WinExec(PAnsiChar('cmd /c colors.cmd'), SW_SHOWNORMAL);
end;

相关阅读 >>

Delphi 更改消息对话框中的按钮标题

Delphi10.3.1安卓照相

Delphi 的tstringbuilder防止服务器内存碎片化

Delphi 获得memo、richedit的光标位置

Delphi 删除文件函数支持撤销删除

Delphi中从windows资源管理器中拖放图片到timage控件上

Delphi 字符串转换ascii码10进制

isnumeric 判断字符串是否为数字

Delphi xe更改ttrayicon系统任务栏图标(无模糊)

Delphi 删除或清空一个目录(包含多级)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...