526互联

lazarus - Free Pascal 之 文件处理

发布时间 2023-04-25 21:05:31作者: eoli

今儿来写写如何使用Free Pascal处理文件，感觉挺有用的

任务一：写hello world到文件

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
begin
   AssignFile(f, 'hello.txt');
   ReWrite(f);
   Write(f, 'hello world');
   CloseFile(f);
end;

image

任务二：写0x00-0xff的二进制数据到文件

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of byte;
  i: integer;
begin
   AssignFile(f, 'hello.txt');
   ReWrite(f);

   for i:= 0 to $ff do
   begin
        Write(f, i);
   end;

   CloseFile(f);
end;

image

任务三：写0x00-0xff到文件，每个数字占用4字节

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of longWord;
  i: integer;
begin
   AssignFile(f, 'hello.txt');
   ReWrite(f);

   for i:= 0 to $ff do
   begin
        Write(f, i);
   end;

   CloseFile(f);
end;

image

总结

到这里你就已经很牛逼了