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
相关文档：
消息的处理流程，流程如下：
其派发处理过程详细如下：
注意：TWinControl里面WndProc有调用系统API DefWindowProc,该函数调用缺省的窗口过程来为应用程序没有处理的任何窗口消息提供缺省的处理。而TWinControl里面DefaultHandler又调用了系统API CallWindowProc，该函数CallWindowProc将消息信息传送给指定的窗� ......
注册码：6amd-pdj686-apme9d-9cdr
密匙：yvx-27c
Delphi部分函数、命令、属性中文说明
Abort 函数 引起放弃的意外处理
Abs 函数 绝对值函数
AddExitProc 函数 将一过程添加到运行时库的结束过程表中
Addr 函数 返回指定对象的地址
AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列
Align 属性 使控件� ......
在编译delphi程序时会出现在些提示，全是E文的，现在给大家一个对照表，可以更好的理解错误提示信息！
';' not allowed before 'ELSE' ElSE前不允许有“;”
'' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句
'' is not a type identifier 不是类型标识符
'' not prev ......
例如以下代码：
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.可以被关闭。
那么我的办法是编写两个子程，其中一个处理选单中的事件，另外一个专门负责画选单。
在从步行切换到选单 ......
