delphi读取大容量txt并对其进行一个处理

我尝试写了一个过程，参数分别是要处理的文件InFile,结果文件OutFile,宽字符数量WideWordCount

procedure DoText(const InFile, OutFile: string; WideWordCount: Integer);

var

FileStream: TFileStream;

OutList: TStringList;

TmpStr: string;

Cnt, ReadCnt: Integer;

begin

OutList := TStringListCreate;

FileStream := TFileStreamCreate(InFile, fmOpenRead or fmShareDenyNone);

try

Cnt := WideWordCount 2;

SetLength(TmpStr, Cnt);

while True do

begin

ReadCnt := FileStreamRead(TmpStr[1], Cnt);

if ReadCnt < Cnt then

begin

SetLength(TmpStr, ReadCnt);

OutListAdd(TmpStr);

Break;

end;

OutListAdd(TmpStr);

end;

OutListSaveToFile(OutFile);

finally

OutListFree;

FileStreamFree;

end;

end;

procedure TForm1FormCreate(Sender: TObject);

begin

mediaplayer1FileName :='f:\mudanmp3';

mediaplayer1Open ;

label1Caption :=inttostr(mediaplayer1Length );//播放长度

end;

procedure TForm1Button1Click(Sender: TObject);

begin

mediaplayer1Play ;//播放

end;

8

吧代码贴出来，别人才好帮助你呀，这种小儿科的问题无须保密。

type

TFileStruct = record

name: string[20];

age: Integer;

salary: Real;

end;

procedure TForm1Button1Click(Sender: TObject);

var

tf: File of TFileStruct;

tfsTmp: TFileStruct;

begin

tfsTmpname:= 'Hello World';

tfsTmpage:= 18;

tfsTmpsalary:= 100000;

AssignFile(tf, '123txt');

Rewrite(tf);

Write(tf, tfsTmp);

CloseFile(tf);

end;

procedure TForm1Button2Click(Sender: TObject);

var

tf: file of TFileStruct;

tfsTmp: TFileStruct;

begin

AssignFile(tf, '123txt');

Reset(tf);

Read(tf, tfsTmp);

CloseFile(tf);

Memo1LinesAdd(Format('%s', [tfsTmpname]));

Memo1LinesAdd(Format('%d', [tfsTmpage]));

Memo1LinesAdd(Format('%m', [tfsTmpsalary]));

end;

按照你说的方法测试了一下，read函数不应该有问题，如上所示，是不是其它地方引起的？

使用一个memo控件 可以轻松的完成读文本文件功能 memoloadfromfile('文件名'); memolines[n]text 简单吧 查看更多答案>>

这个东西用法跟普通的filesystem差不多，你搜索一下filesystem用法就知道了，比如说从一个文件中第四个字节开始读取8个字节至数组，其它的象seek、write之类的方法也类似于filesystem

  buffer:array [07] of char;

  f1:TFastFileStream;

begin

  f1:= TFastFileStreamCreate('e:\mongodb-win32-x86_64-222zip');

  f1Position:=4;

  f1Read(buffer,sizeof(buffer));

  f1Free;

  showmessage('yes');

end;

以上就是关于delphi读取大容量txt并对其进行一个处理全部的内容，包括:delphi读取大容量txt并对其进行一个处理、Delphi 求mp3文件的持续时间、delphi 中 读取文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！