assignfilereadln怎么把整个文件都读入了？

如何向一个文本文件增加数据,不要说要先把文件读到TStrings哦.

var sFile :String; tFile :TextFile;begin sFile 'C:a.txt'; AssignFile(FileText,sFile); if FileExists(sFile) then Append(tFile) else ReWrite(tFile); WriteLn(tFile,'增加数据'); CloseFile(tFile);end;

二进制文件内容字节如何删除？

也就是：现有的文件内容为64byte,而我要写入的内容是50byte,但是后面的字节想去掉。

如何实现？我现在用：assignfile,reset,blockread,blockwrite,seek函数

Str字符如何转成Char??

胖胖，你的办法有问题的看这个实例，这才是精确的办法function UpperCase(const S: string): string;var Ch: Char; L: Integer; Source, Dest: PChar;begin SetLength(Result, L); while L <> 0 do begin Ch := Source^; if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32); Dest^ := Ch; Inc(Source); L := Length(S); Inc(Dest); Dec(L); end;end;要将string写入文本文件实例如下 Dest := Pointer(Result); AssignFile(ToF, 't3.txt'); { Open output file } Rewrite(ToF); { Record size = 1 } writeln(ToF, Buf);//buf为string类型 Source := Pointer(S); CloseFile(FromF);

如何将TSTRINGLIST 加到TXT/LOG文件的最后？

var txtFile: TextFile; i: Integer; strList: TStringList;begin AssignFile(txtFile,'C: est.txt'); try Append(txtFile); for i 0 to strList.Count - 1 do WriteLn(txtFile,strList ); Flush(txtFile); finally CloseFile(txtFile); end;end;

BlockRead怎么从一个二进制文件读取一个整数？？？

我有一个二进制文件，想大大琅绫擎攫取数据，因为数据是不规矩的，有些是字符，有些是整数：myfile:File;assign(myfile,a.dat);num:t:integer;s;array[0..5] of char;查了一下第一个Blockread后文件指针的地位filepos已经移动到文件的eof了，所以才出现998缺点；BlockRead(myfile,num,sizeof(integer)t);Blockread(myfile,s,sizeof(s)t);请问BlockRead到底怎么攫取一个整数？？结不雅读到第二个Blockread的时刻，出现I/O error 998缺点， 所以问题照样出现第一个Blockread攫取整数的时刻。

readln怎么把整个文件都读入了？

根据我的经验，是你的Reset语句有问题。

建议采取以下方法： F:TestFile; S:string;begin AssignFile(F,'Test.c');var Reset(F); Readln(F,S); CloseFile(F);end;