我知道我问的问题似乎与其他人相似,但它似乎并不适用。
我使用的是delphi 10.3
我想写两个文本连续在控制台应用程序,但我希望他们单独的颜色
writeln('yes just give me a minute, i need to talk to the manager'); {i want this in the default color}
writeln('Oi Dave we got another thick one shall i just pass him through as self employed'); {i want this to be in red}
writeln('Dont worry u dont have to complete this one') {and this one back to the default color}
4条答案
按热度按时间3df52oht1#
您可以使用
SetConsoleTextAttribute
作为已经注解的问题。示例:最低阅读:
SetConsoleTextAttribute
和字符属性。不要忘记添加错误处理。
9jyewag02#
我也使用
WinAPI.Windows
中定义的SetConsoleTextAttribute
函数。使用此简单程序(可扩展):
您可以使用类似于以下内容的内容:
结果是这样的。
8zzbczxx3#
有一个非常简单的解决方案,使用DelphiConsole
9gm1akwq4#
下面是我的解决方案:
结果如下所示:
下面是必要的函数: