zoukankan      html  css  js  c++  java
  • 用流读写结构化文件

     

    unit Unit1; 
     
    interface 
     
    uses 
     Windows, Meages, SysUtils, Variants, Claes, Graphics, Controls, Forms, 
     Dialogs, StdCtrl 
     
    type 
     TForm1 = cla(TForm) 

    Memo1: TMemo;

    {
    添加 Memo 显示内容
    }


    Button1: TButto 

    Button2: TButto 

    procedure Button1Click(Sender: TObject); 

    procedure Button2Click(Sender: TObject); 
     private 


    {
    Private declaratio 
    }

     public 


    {
    Public declaratio 
    }

     end; 
     
    var 
     Form1: TForm1; 
     
    implementation 
     
    {$R *.dfm
    }

     
    type 
     TRec = record

    {
    定义一个记录
    }


    name: string[8]; 

    age: Word; 
     end; 
     
     
    //写入 
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
     rec: TRec; 
     ms: TMemoryStream; 
    begin 
     ms := TMemoryStream.Create; 
     
     rec.name := '张三'; rec.age := 8; 
     ms.Write(rec, SizeOf(rec)); 
     
     rec.name := '李四'; rec.age := 81; 
     ms.Write(rec, SizeOf(rec)); 
     
     rec.name := '王二麻子'; rec.age := 18; 
     ms.Write(rec, SizeOf(rec)); 
     
     ms.SaveToFile('c:/temp/rec.dat'); 
     
     ms.Free; 
    end; 
     
     
    //读取 
    procedure TForm1.Button2Click(Sender: TObject); 
    var 
     rec: TRec; 
     ms: TMemoryStream; 
    begin 
     ms := TMemoryStream.Create; 
     ms.LoadFromFile('c:/temp/rec.dat'); 
     
     Memo1.Clear; 
     ms.Position := 0; 
     while ms.Position < ms.Size do 
     begin 

    ms.Read(rec, SizeOf(rec)); 

    Memo1.Lines.Add(rec.name + ' ' + IntToStr(rec.age)); 
     end; 

    {
    Memo1 的显示结果会是: 

    张三 8 

    李四 81 

    王二麻子 18 
     
    }

  • 相关阅读:
    A.2.5输入年,月,判断本月有多少天?
    A.1.2九九乘法表
    运算原理有点复杂,不懂。啊!求解释?
    A.1.1第一个输出程序“Hello World!”
    什么是 MVC ?
    要么滚回去,要么拼命
    创建Android的Hello World应用程序
    转载华硕2008年Java面试题
    Java 计算器实现
    Java 使用execute方法执行Sql语句
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940678.html
Copyright © 2011-2022 走看看