مثال التعامل مع file stream - نسخة قابلة للطباعة

كود :

procedure TForm1.Button1Click(Sender: TObject);
Var FileStream : TFileStream ;
text : String;
begin
  FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'delphi4arab.test',fmCreate);
  text := ' any thing u want to save ^^ ';
  FileStream.Write(pointer(text)^,Length(text));
  FileStream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var FileStream : TFileStream ;
text : String;
FileSize : integer;
begin
  FileStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'delphi4arab.test',fmOpenRead);
  FileSize := (FileStream.size );
  Setlength(text,FileSize);
  FileStream.read(pointer(text)^,FileSize);
  memo1.text := text;
  FileStream.Free;
end;