我在打印报表时要判断QRDBText里是否含有“Macau”,如果有的话就在“Macau”加下划线,请问怎样实现?
解决方案 »
- 谁精通TDxBarManager
- wsdl 不能装载dll
- 哎 牛人也太多了 ........................................................................................................
- delphi 数据库提取浮点型数据的问题
- 我怎么可以模拟按下其它程序上的按钮。如影音传送带中的“新建”和“确定(&O)”按钮?
- 高分求教,关于在dbgrid中插入记录的问题.(高手路过,请进)
- 求助于算法问题?
- MYSQL 端口问题
- delphi中如何在 edit中判断是否为数字?
- TPageControl控件问题
- 参与csdn两个月,把分物归原主,并祝新年快乐!
- 一个简单的问题
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
if Pos('Macau',Value) > 0 then
QRDBText1.Font.Style := [fsUnderline]
else
QRDBText1.Font.Style := [];
end;