打印4联服药说明

【例子介绍】
【相关图片】用2012sql数据库

【源码结构】delphi写的打印小票的程序，打印四联疗法给病人；

self.RichEdit1.Lines.Append('姓名' s '服用');
self.RichEdit1.Lines.Append('根据2022中国幽门菌治疗指南');
self.RichEdit1.Lines.Append('奥美拉唑 1粒 饭前服 2次/日');
self.RichEdit1.Lines.Append('丽珠得乐 2袋 饭前服 3次/日');
self.RichEdit1.Lines.Append('克拉霉素 2片 饭后服 2次/日');
self.RichEdit1.Lines.Append('阿莫西林 4粒 饭后服 2次/日');
self.RichEdit1.Lines.Append('服药期间禁止饮酒及酒制品！');
用源文件稍作修改，可以去掉数据库，就可以直接打印了。