unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type
TForm1 = class(TForm)
btn1: TButton;
edt1: TEdit;
edt2: TEdit;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} //文本文件 写和 读
procedure TForm1.btn1Click(Sender: TObject);
var
f:TextFile;
s:string;
begin
AssignFile(f,'a.txt');
try
//if FileExists('a.txt') then
// Append(f)
// else
Rewrite(f); Writeln(f,edt1.Text,'---',edt2.Text); ////////////
Reset(f);
Readln(f,s);
edt2.Text:= s;
finally
CloseFile(f);
end;
end; //记录类型文件 写
procedure TForm1.btn2Click(Sender: TObject);
type
student=record
sNo:string[];
sName:string[];
end;
var
f:File of student;
stu:student;
isize:Integer;
begin
AssignFile(f,'a.dat');
try
if not FileExists('a.dat') then
Rewrite(f)
else
Reset(f);
isize:= FileSize(f);
Seek(f,isize);
stu.sNo:= edt1.Text;
stu.sName:= edt2.Text;
Write(f,stu);
finally
CloseFile(f);
end;
end; //记录类型文件 读
procedure TForm1.btn3Click(Sender: TObject);
type
student=record
sNo:string[];
sName:string[];
end;
var
f:File of student;
stu:student;
isize:Integer;
begin
AssignFile(f,'a.dat');
try
if not FileExists('a.dat') then
Rewrite(f)
else
Reset(f);
Seek(f,);//读取 第二条记录,直接用数字表示
read(f,stu);
edt1.Text:=stu.sNo;
edt2.Text:=stu.sName;
finally
CloseFile(f);
end;
end; //流写
procedure TForm1.btn4Click(Sender: TObject);
type
TBuffer = array [..]of char;
var
FileStream: TFileStream;
tempBuffer:TBuffer;
begin
StrPcopy(tempBuffer,edt1.Text);
Filestream:=TFileStream.Create('a.file',fmCreate);
FileStream.Position:=;
FileStream.Write(tempBuffer,length(tempBuffer));
FreeAndNil(FileStream);
end; //流读
procedure TForm1.btn5Click(Sender: TObject);
type
TBuffer = array [..]of char;
var
FileStream: TFileStream;
ABuffer: TBuffer;
begin
Filestream:=TFileStream.Create('a.file',fmOpenRead);
Filestream.Position:=;
FileStream.Read(ABuffer,sizeof(ABuffer));
edt2.Text:= abuffer;
FreeAndNil(FileStream);
end; end.

delphi 文本 记录 流式 读写文件的更多相关文章

  1. C#常用IO流与读写文件

    .文件系统 ()文件系统类的介绍 文件操作类大都在System.IO命名空间里.FileSystemInfo类是任何文件系统类的基类:FileInfo与File表示文件系统中的文件:Directory ...

  2. C#常用IO流与读写文件 (转)

    源自https://www.cnblogs.com/liyangLife/p/4797583.html 谢谢 1.文件系统 (1)文件系统类的介绍 文件操作类大都在System.IO命名空间里.Fil ...

  3. java IO流之三 使用缓冲流来读写文件

    原文:http://blog.csdn.net/haluoluo211/article/details/52183219 一.通过BufferedReader和BufferedWriter来读写文件 ...

  4. Hadoop_11_HDFS的流式 API 操作

    对于MapReduce等框架来说,需要有一套更底层的API来获取某个指定文件中的一部分数据,而不是一整个文件 因此使用流的方式来操作 HDFS上的文件,可以实现读取指定偏移量范围的数据 1.客户端测试 ...

  5. JDFS:一款分布式文件管理系统,第三篇(流式云存储)

    一 前言 看了一下,距离上一篇博客的发表已经过去了4个月,时间过得好快啊.本篇博客是JDFS系列的第三篇博客,JDFS的目的是为了实现一个分布式的文件管理系统,前两篇实现了基本的上传.下载功能,但是那 ...

  6. centos 正则,grep,egrep,流式编辑器 sed,awk -F 多个分隔符 通配符 特殊符号. * + ? 总结 问加星 cat -n nl 输出文件内容并加上行号 alias放~/.bash_profile 2015-4-10 第十三节课

    centos 正则,grep,egrep,流式编辑器 sed,awk -F 多个分隔符  通配符 特殊符号. * + ? 总结  问加星 cat -n  nl  输出文件内容并加上行号 alias放~ ...

  7. windows服务 MVC之@Html.Raw()用法 文件流的读写 简单工厂和工厂模式对比

    windows服务   public partial class Service1 : ServiceBase{ System.Threading.Timer recordTimer;public S ...

  8. 重新想象 Windows 8 Store Apps (23) - 文件系统: 文本的读写, 二进制的读写, 流的读写, 最近访问列表和未来访问列表

    原文:重新想象 Windows 8 Store Apps (23) - 文件系统: 文本的读写, 二进制的读写, 流的读写, 最近访问列表和未来访问列表 [源码下载] 重新想象 Windows 8 S ...

  9. Java开发笔记(八十五)通过字符流读写文件

    前面介绍了文件的信息获取.管理操作,以及目录下的文件遍历,那么文件内部数据又是怎样读写的呢?这正是本文所要阐述的内容.File工具固然强大,但它并不能直接读写文件,而要借助于其它工具方能开展读写操作. ...

随机推荐

  1. JVM:垃圾回收

    概述 上一篇文章我们已经了解了 Java 的这几块内存区域.对于垃圾回收来说,针对或者关注的是 Java 堆这块区域.因为对于程序计数器.栈.本地方法栈来说,他们随线程而生,随线程而灭,所以这个区域的 ...

  2. 061、Java中利用return结束方法调用

    01.代码如下: package TIANPAN; /** * 此处为文档注释 * * @author 田攀 微信382477247 */ public class TestDemo { public ...

  3. spring boot 接口service有多个实现类

    接口.java public interface DeService { } 接口实现类1.java @Service("ud")public class DeServiceImp ...

  4. Docker入门以及漏洞环境搭建(10.23 第二十五天)

    Docker:开源的应用程序容器引擎,使用Go语言.借助于docker打包的应用程序,将这些应用程序 包含在容器里面,在容器中实现虚拟化,容器使用的是沙箱机制,相互独立,占用资源非常少. Docker ...

  5. POJ1703 && POJ2942 &&POJ 1182 并查集 这个做法挺巧妙

    Find them, Catch them Time Limit: 1000MS   Memory Limit: 10000K Total Submissions: 37242   Accepted: ...

  6. 指定盘符获取u盘PID、VID、序列号等信息

    最近学习scsi和DeviceIoControl,下载了微软WDK一些例子,以下代码精简自Windows-driver-samples-master\storage\tools\spti\src\sp ...

  7. 124-PHP类析构函数

    <?php class myclass{ //定义一个类 public function __destruct(){ //定义析构方法 echo '析构方法执行.<br />'; } ...

  8. 4. 异步多级缓存架构+nginx数据本地化渲染

  9. 留学论文Results部分英文写作句型整理

    本文分享曼切斯特大学全校语言项目负责人约翰·莫莱博士(Dr John Morley)给出的与结果介绍相关的句型,小编为大家整理了一下一共分为了11类,看完之后觉得非常有用,这里分享给大家,各位留学小伙 ...

  10. 吴裕雄 Bootstrap 前端框架开发——Bootstrap 字体图标(Glyphicons):glyphicon glyphicon-italic

    <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <meta name ...