关于文件读写问题! 写文件有这么复杂吗?有两种人,一种人是走捷径,一种人“脚踏实地”你应该去用 C++,而不应该用 Delphi. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 缓冲区用的不对;不能用string;procedure TForm1.BitBtn1Click(Sender: TObject);var F:File; r:longint; FSize:Word; buf:string; i:integer;begin Buf:=Edit1.Text; AssignFile(f,'C:\mm.txt'); ReWrite(F,1); //i:=SizeOf(buf); 恒为4 BlockWrite(F,pchar(Buf)^,length(buf)+1); closeFile(f);end;procedure TForm1.BitBtn2Click(Sender: TObject);var F:File; r:longint; FSize:Word; buf:pchar;begin {$I-} Buf:=''; AssignFile(f,'C:\mm.txt'); ReSet(F,1); getmem(buf,100); BlockRead(F,Buf^,100); closeFile(f); Label1.Caption:=Buf;end; To rd_software(人定):这种方法肯定有它的用处,怎么能这么说呢?呵呵! 这是一个很传统的误区,string是什么? delphi3.0以后,缺省的时候,string是指针!Label1.Caption, Edit1.Text,都是指针,对它进行读写操作,不仅没有意义,而且会引起程序崩溃.学习Delphi的第一步,不是VCL,也不是API,而是Object Pascal 呵呵,说实话,原来只学了Pascal,然后就是Delphi 就是没怎么看 Object Pascal delphi调用excel 中某一隔,有数值型有文本型,提示string与Double类型不对。 fastReport提示错误 多线程的小问题 哪位有MMTOOLS控件的演示文档?好工具不知道怎么用。谢谢! 关于一个socket超时的问题,怎样让一个TCP连接永远保持住? 读取IE历史记录 Delphi数据库Post的问题! 怎样才能往listview控件里加数据啊?急 凡是繁体字的帖子是不是港台同胞发的? 关于在DBGRID中输入数据的问题 Delphi怎样使用存储过程参数 如何在parapox表中创建索引
procedure TForm1.BitBtn1Click(Sender: TObject);var
F:File; r:longint; FSize:Word; buf:string;
i:integer;
begin Buf:=Edit1.Text; AssignFile(f,'C:\mm.txt');
ReWrite(F,1);
//i:=SizeOf(buf); 恒为4 BlockWrite(F,pchar(Buf)^,length(buf)+1);
closeFile(f);
end;procedure TForm1.BitBtn2Click(Sender: TObject);
var F:File; r:longint; FSize:Word; buf:pchar;
begin
{$I-}
Buf:='';
AssignFile(f,'C:\mm.txt');
ReSet(F,1);
getmem(buf,100);
BlockRead(F,Buf^,100);
closeFile(f);
Label1.Caption:=Buf;
end;
这种方法肯定有它的用处,怎么能这么说呢?
呵呵!
Label1.Caption, Edit1.Text,都是指针,对它进行读写操作,不仅没有意义,而且会引起程序崩溃.
学习Delphi的第一步,不是VCL,也不是API,而是Object Pascal