Delphi的文件保存TFileStream(2010版本前后对比)

// 2010后
procedure TForm1.Button3Click(Sender: TObject);
var
pstr:Pchar;
mestr:string;
FS:TFilestream;
sUString: UTF8String;
begin
FS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmCreate or fmOpenWrite);
FS.Seek(0, soEnd);
mestr:=Memo1.Text;
pstr:=Pchar(mestr);//把字符串转成字符指针
sUString := UTF8String(mestr);
FS.write(sUString[1], Length(mestr));//正确！XE必须将将字符串编码为UTF8
FS.Free;
end;

// 2010前

procedure TForm1.Button7Click(Sender: TObject);
var
pstr:Pchar;
mestr:string;
FS:TFilestream;
sUString: UTF8String;
begin
FS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmCreate or fmOpenWrite);
FS.Seek(0, soEnd);
mestr := Memo1.Text;
pstr := Pchar(mestr);//把字符串转成字符指针
FS.Writebuffer(pstr^,Length(pstr));//把字符串写入流中
FS.Free;
end;

 

//文件转字节数组

procedure TForm1.Button1Click(Sender: TObject);
var
AFileData: TByteDynArray;
fsize:Integer;
FS:TFilestream;
begin
FS:=TFileStream.Create('D:\a.zip',fmOpenRead);
FS.Position:=0;//切记，操作图片前一定要这句，否则错误
//把内存流转化成TByteDynArray
fsize:=FS.Size;
SetLength(AFileData, fsize);
FS.Read(AFileData[0],fsize);
ShowMessage('ok');
FS.Free;
end;