delphi实现批量读取格式有规律的文本文件的内容.
现有一系统不定时在同一目录下生成一批txt文件,内容大概如下;
20100112_164910,6,81406392,808,113,,
为方便统计,需要将这些txt文件中的数据读入数据表中.
现有两种方法:
一是直接将数据读入到数据表中的某一列中,再用sql 语句拆开成几列:
20100112_164910 6 81406392 808 113
二是在导入时就将其拆开成几列分别导入到各列中
如果第二种方法可以实现,那么对于系统的性能将会是一个很大的帮助.
下面介绍我的做法,可能是最笨重的一种,欢迎大家提出更好的方法.
核心方法是调用memo的Delimiter特性. 若把Delimiter的值设为",",那么使用DelimitedText属性可得到由","分开的几行.
需要两个memo,第一个memo将文档中的内容读入,第二个memo将第一个memo中的内容分解成几行.
如上面的例子就会变成:
20100112_164910
6
81406392
808
113
接下来的事情就变得比较简单了.当然这里面循环是肯定少不了的了.
下面是全部代码:
第一步:新建一个带参数的过程: 参数是文件名
var
F:text;
procedure TForm1.Insert(FileName:string);
var
s: string;
i:integer;
begin
AssignFile(F,FileName); //将文件的内容读到F中
Reset(F);
Memo1.Clear;
while not Eof(F) do
begin
Readln(F, s); //再将F中的内容读到S中
Memo1.Lines.Add(s); //将内容加入memo中
end;
CloseFile(F);
if memo1.Lines.Count>=1 then
begin
for i:=0 to memo1.Lines.Count-2 do
begin
if length(memo1.Lines[i])>4 then
begin
Memo2.Lines.Delimiter := ',';
Memo2.Lines.DelimitedText := memo1.Lines[i];
//下面两句是业务处理语句,把相关的内容插入表中
&n
相关文档：
例如以下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
......
一个选单大致是这样：
1.可以被以某种形式呼叫出来，如按下esc；
2.在这个选单中功能键有不同的定义，如原本方向键控制走路，但现在改为控制光标的位置；
3.按下确定键后有对应功能被执行；
4.可以被关闭。
那么我的办法是编写两个子程，其中一个处理选单中的事件，另外一个专门负责画选单。
在从步行切换到选单 ......
如何调试DLL，在这里就不再赘述了，但是，今天就碰到了一个特别奇怪的问题，参数设置正确，就是不能调试？？ 通过上网查资料，发现了问题，注意：
1， 将Project主菜单的Project Options对话框的Compiler页面Debugging选项中的 Debug informaton、Local symbols、Assertions复选框选中
2，将Tools主菜单的D ......
技术交流,DH讲解. 记得很早之前我就说过,数组和结构体在内存中其实一样的,他们都是连续分布的.
例如: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
这两个都占12字节,而且TMyStruct.A就是T3IntArray[0].
而我们知道在访问数组中某个元素的时候,只是在� ......
CTRL+SPACE 代码补全，很好用的(先改了输入法热键)
CTRL+SHIFT+C 编写申明或者补上函数
CTRL+SHIFT+↑(↓) 在过程、函数、事件内部, 可跳跃到相应的过程、函数、事件的定义（在INTERFACE和IMPLEMENTATION之间来回切换）
CTRL+SHIFT+G 插入GUID
CTRL+J (弹出DELPHI语句提示窗口，选择所需语句将自动完成一条 ......
