将一个字符串写入一个二进制文件的任意位置，并要能读出来？请给出例子 (100分)

小生 · 2002-12-30

我要将一个字符串写入一个二进制文件的任意位置，并要能读出来,总是读出来的东东不对， 且在button1上按回车键与按空格键返回值不一样。 (aaa.dat 请任找一个文件窗口放置 edit1 edit2 button1) procedure TForm1.Button1Click(Sender:TObject); var   FileName, text, str:string;   F:TFileStream; begin   text:=edit1.text;   FileName:='E:/aaa.dat';   try//写     F:=TFileStream.create(filename, fmOpenReadWrite);     str:=copy(text, 1, 2);     F.seek($10, 0); //0为从文件头 1为当前位置 2为文件尾     F.Write(str, 2);     str:=copy(text, 3, 2);     f.Seek($02, 1);     F.write(str, 2);   finally     F.free;   end;   try//读     f:=TFileStream.Create(filename, fmOpenReadWrite);     SetLength(str, f.size);     F.seek($10, 0);     f.Read(str[1], 2);     edit2.Text:=str;     f.seek($02, 1);     f.Read(str[1], 2);     edit2.Text:=edit2.Text+str;   finally     f.free;   end; end;

jsxjd · 2002-12-30

两个     F.Write(str, 2); 都改与如下：     F.Write(str[1], 2);                ///

LiChaoHui · 2002-12-30

写的时候这样 var   fs: TFileStream;   t: Integer;   S: String; .................... fs.Position := 1580; t := Length(S); fs.Write(t, SizeOf(t)); fs.Write(PChar(S)^, t); 读的时候 fs.Position := 1580; fs.Read(t, SizeOf(t)); SetLength(S, t); fs.Read(PChar(S)^, t); ok,搞定

porsche · 2002-12-31

function StrWrite(FileName:string; Sn:string; StartByte:integer; SpaceByte:integer):string; var   i:integer;   b:Byte;   F:TFileStream; begin   b:=Ord(sn[1]);   try     F:=TFileStream.Create(FileName, fmOpenReadWrite);     F.Seek(StartByte, soFromBeginning);     F.Write(b, 1);     for i:=2 to length(sn) do     begin       b:=Ord(sn);       F.Seek(SpaceByte, 1);       F.Write(b, 1);     end;   finally     F.Free;   end; end; function StrRead(FileName:string; StartByte:integer; SpaceByte:integer; SnLength:integer):string; var   i:integer;   b:Byte;   F:TFileStream; begin   try     F:=TFIleStream.Create(FileName, fmOpenReadWrite);     F.Seek(StartByte, soFromBeginning);     F.Read(b, 1);     Result:=chr(b);     for i:=2 to SnLength do     begin       F.Seek(SpaceByte, 1);       F.Read(b, 1);       Result:=Result+chr(b);     end;   finally     F.Free;   end; end;

小生 · 2002-12-31

多人接受答案了。

将一个字符串写入一个二进制文件的任意位置，并要能读出来？请给出例子 (100分)

小生

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

porsche

Unregistered / Unconfirmed

小生

Unregistered / Unconfirmed

Similar threads