为什么要变成txt?用一个过滤程序把小于32的字符改为'.',就像DOS下的DEBUG一样
解决方案 »
- Delphi 返回布尔类型的怨念?
- [救助]怎样在dbgrid中根据记录集中某字段(用1.2.3等标志状态)的值将其转换为汉字描述填充在dbgrid中
- rspt 协议的文件用什么软件下载?
- 新手求助
- 请问如何向一个TDbEdit发送一个双击的消息
- 为什么我的程序只能同时一个用户使用?
- QuickRep中放置QRExpr控件,在编辑统计函数时可它就是找不到我放在 DataModule 中的Query---------------------------------------------
- 只要能解决问题,高分随你拿!兄弟在线等待,欢迎各路豪杰参与!————数据库
- 如何知道X.exe都使用了那些api函数?
- 急!急!急!数据分年度存放,动态添加数据库,动态建立数据库别名对数据库进行操作??
- 如何把字符串写入TXT文件
- delphi有右函数,左函数,像VB的Left,Mid,Right
procedure TForm1.Button1Click(Sender: TObject);var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle); for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer[i];
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
end;
finally
FreeMem(Buffer);
end;
end;
end;