我需要对备忘录中的文本进行数学计算。[文件大小:~2mb]
一个合适的例子是我需要解码的编码文本。
我将备忘录文本传递给一个字符串以便对其进行解码。我想使用线程运行我的解码功能会更快。但经过一番谷歌搜索后,我没有找到适合我目的的好例子。
示例函数:
function entr_base_N(my_text:String):String;
var
ts_hamil64:Integer;
begin
For ts_hamil64 := 1 to Length(my_text) do
begin
Result:= Result + Chr(Ord(my_text[ts_hamil64])+10)
end;
end;
.....
.....
Memo1.Text:=entr_base_N(Memo1.Text)
我想把工作分成小块,平均分配工作,比如说 3..8 个线程并将我的解码功能分配给这些线程。你能指导我吗?
当前处理文本文件的时间:~35 秒。谢谢你的热心帮助。