Delphi和python混编完成业务需求

1概述        

        Delphi写窗口应用非常简单，拖拖拽拽，python写脚本可以用很少的代码完成所需要的任务，把这两者的优点结合一下可以实现小程序的快速开发。

2实现

        主要思路是窗体生成要处理的数据文件-data.txt，可执行程序调用python代码，python代码的运行参数是data.txt，如此机理下，python 的命令行就是“python data.txt”即可。

3基本步骤

        用一个简单的示例给大家演示一下；

        Delphi2010里创建一个VCL Form Application，放2个控件，一个Memo，一个Button；

Memo输入若干行字符串，Button的事件是按下后Memo内容保存为data.txt，而后调用code.py，读取data.txt，把data.txt里数据读取出来，逆置3次写入一个新文件newdata.txt里去；

Button代码事件如下：

procedure TForm2.btn1Click(Sender: TObject);
begin
mmo1.Lines.SaveToFile('data.txt');
WinExec('cmd /c python code.py',0)
end;

code.py的python代码简单明了：

import os

# 获取当前exe和data.txt所在的目录
curpath=os.getcwd()

with open(curpath+'/data.txt','r') as fin:
txts=fin.readlines()
with open(curpath+'/newdata.txt','w') as fout:
for i in range(3):
for e in txts[::-1]:
fout.write(e)

测试数据如下：

exe所在目录生成两个txt，分别是data.txt和newdata.txt,内容如下所示：

流程比较容易理解，这个思路在完成业务逻辑上可以节省很多时间，少写很多代码。