lazarus - Free Pascal 之 文件处理

合集 - lazarus(5)

1.lazarus - 初识2023-04-232.lazarus - Free Pascal 之 初识2023-04-233.lazarus - Free Pascal 之 FCL2023-04-234.lazarus - Free Pascal 之 字符处理2023-04-23

5.lazarus - Free Pascal 之 文件处理2023-04-25

收起

今儿来写写如何使用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;

任务二：写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; 

 

任务三：写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; 

总结

到这里你就已经很牛逼了