一行行读吧。
如果符合ADO的文本格式,可以用ADO连接文本文件。
如果符合ADO的文本格式,可以用ADO连接文本文件。
解决方案 »
- tcp/ip如何来截取数据包
- Canvas does not allow drawing 这个问题为什么和系统升级有关? fuck microsoft... 给我一个答案,100份送上
- ----dbgrideh的排序刷新问题----
- 如何修改系统时间??
- delphi中 dcu问题的疑惑!在线等待!
- 发消息给滚动条,让滚动条定位到特定的位置
- delphi2010通过dbexpress访问oracle9中文乱码
- 怎样取一段字符串中的内容?
- 在Delphi5中,怎么才能让qrlabel的字符垂直居中!如果是用写控件的办法,是要重载哪个tqrlabel的哪一个方法和属性呢!
- delphi可以如何访问远程acess库阿?
- Dll与调用程序之间的数据传递问题。为什么不能传递VCL对象呢?
- 如何对几个变量同时付相同的值,使用一条语句(如同指定变量类型一样)
F:string; {TEXT文件路径}
begin
with ARichEdit do
begin
Lines.LoadFromFile(F);
end;
end;
具体看SQL SERVER。用数据导入-选择文本文件-选择文本文件的分割符-目的表-OK。
1 2002-01-11:23:38:03 10000952 MOB
1 2002-01-11:23:38:03 10000952 MOB
DocName: string; { 文档标题 }
ATable: TADOTable { 操作的表 }
): Boolean; { 返回类型 }
const
TmpFileName = ‘c:x.rtf‘; { 临时文档 }
var
DocID, SubID, L: Integer; { 局部变量 }
S: string; { 串 }
F: TFileOfChar; { 字符文件 }
Buf: TBuffer; { 文本缓存 }
begin
ARichEdit.Lines.SaveToFile(TmpFileName);{ 先存入文件 }
AssignFile(F, TmpFileName); { 打开文件 }
Reset(F);
try
DocID := { 产生新的文档编号 }
SelectSQL(‘SELECT NVL(MAX(DOCID) + 1, 101) FROM TEST‘);
with ATable do
if not Active then Active := True;{ 确认表打开 }
SubID := 0; { 初始化子编号 }
while not EOF(F) do
begin
Inc(SubID);
BlockRead(F, Buf, BufSize, L); { 读取两千个字符 }
S := Buf;
SetLength(S, L); { 取实际读取到的字节数 }
with ATable do
begin { 增加一条子文档 }
Append;
FieldByName(‘DOCID‘).AsInteger := DocID;
FieldByName(‘DOCNAME‘).AsString := DocName;
FieldByName(‘SubID‘).AsInteger := SubID;
FieldByName(‘TEXT‘).AsString := S;
Post;
end;
end;
Result := True; { 存储成功 }
except
Result := False;{ 存储失败 }
end;
CloseFile(F); { 关闭文件 }
DeleteFile(TmpFileName);{ 删除文件 }
end;你是女孩?