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 
     
    }

  • 相关阅读:
    flex兼容写法
    多行文字,最后一行省略号(适用于移动端)
    checkbox样式修改
    响应式布局
    微信常用的页面跳转
    css小技巧(清除滚动条)
    JS学习---PHP浅识
    qml 画页迁移
    list滚动条Scroll 偏移和长度计算公式总结
    qml listview关键字高亮
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940678.html
Copyright © 2011-2022 走看看