Question

请问如何用delphi将一列数据替换掉原来文本中的一列数据

原文本数据如图
将一列数据（起始值为0.1，每次递加0.1）
0.1
0.2
0.3
...
1021.1
0.21.2
...
替换掉原文本中997.936那列数据，替换后的列最好能右对齐。

Answer 1

TXT文件可以用来存储数据，甚至可以作为数据库来使用。我记得湖北的合作医疗管理原件最初的数据库就是一个文本文件。因为文本文件的大小可以达到几GB，但是操作起来太麻烦了，几乎要去写一个数据库管理系统。现在的合作医疗软件已经不用它了，而是改用了SQL SERVER，因为它的储存数据量可以达到TB级。你的要求是要改写TXT文件，如果想研究一写文本文件的操作方法，这倒可以。但如果是想做一个操作文本文件的软件出来，供用户使用，这个软件做出来一定是没有什么意义的，而且还要花费大量精力来写代码，实在有点得不偿失，而且你替换的数据也没有什么特征，是数字，数字重复频率是很高的。而且还要确定它行标和列标值，这样才能确保它能与原有数据对齐，代码量很浩大的。
你图中的文本文件可能是软件从数据库中导出的数据保存为文本文件格式的。因此你的要求不如到数据库中修改相关数据，然后再导出数据保存为记事本文件，保存这个文本文件时，以一个同名文件去覆盖原有的文件。这岂不变得非常的简单了。

追问

我这个程序是想合并两个文本文件并把第一列数据重新赋值，程序已能合并文本，我用的stringlist，但如何将数组中的（0.1，0.2，0.3....）等变成字符插进去就不会了，我用了floattostr但没能实现，希望高手多多指导

Answer 2

把中间控件Memo1的visibale设置为false就可以了

Answer 3

学习