文件流的读写问题,为什么直接把字符串付给变量S就正常,把文本框的内容付给
变量S就出错?小妹才疏学浅,请求大哥指点,不胜感谢!unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);//把字符串写入文件
var
s:string;
fs:TFileStream;
begin
s:='我爱你'; //为什么这样把字符串付给S就正常
//s:=edit2.Text ;//为什么这样写就出错?如何把文本框的内容付给s
fs:=TFileStream.Create('c:\strfile.txt',fmCreate);
try
fs.Write(s,Length(s));
finally
fs.free;
end;
end;procedure TForm1.Button2Click(Sender: TObject);//从文件中读出字符串
var
s:string;
fs:TFileStream;
begin
fs:=TFileStream.Create('c:\strfile.txt',fmOpenRead);
try
fs.Read(s,fs.Size);
Edit1.Text :=s;
finally
fs.free;
end;
end;
end.
变量S就出错?小妹才疏学浅,请求大哥指点,不胜感谢!unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);//把字符串写入文件
var
s:string;
fs:TFileStream;
begin
s:='我爱你'; //为什么这样把字符串付给S就正常
//s:=edit2.Text ;//为什么这样写就出错?如何把文本框的内容付给s
fs:=TFileStream.Create('c:\strfile.txt',fmCreate);
try
fs.Write(s,Length(s));
finally
fs.free;
end;
end;procedure TForm1.Button2Click(Sender: TObject);//从文件中读出字符串
var
s:string;
fs:TFileStream;
begin
fs:=TFileStream.Create('c:\strfile.txt',fmOpenRead);
try
fs.Read(s,fs.Size);
Edit1.Text :=s;
finally
fs.free;
end;
end;
end.
解决方案 »
- 运行时候的问题!麻烦高手解决!在线等候!谢谢!
- 新手请教:
- 向有图标编程经验的大侠问一个问题~~
- 如何在TShellListView中实现文件过滤?
- 新建数据库报错了啦,怎么办呀?????
- Combobox控件的内容被删除的问题
- 动态改变dbgrid 单元格部分字符颜色
- 如何用for语句对日期型变量进行循环?
- 一段小程序,请解答,应该不难.
- ???一个让我痛苦已久的问题,望各路高手鼎立相助!!![关于close,请写源代码,举例说明,否则不给分;其实很简单,但我是菜鸟]
- 请问如何在delphi中调用.chm帮助文件,要实现上下文关联,请给出教完整的代码,谢谢!
- 怎么实现像WINDOWS帮助中索引页的匹配输入。(内详),请作过的朋友帮帮忙。
var
s:pchar;//*修改
fs:TFileStream;
begin
s:='我爱你'; //为什么这样把字符串付给S就正常
s:=pchar(edit2.Text) ;//*修改//为什么这样写就出错?如何把文本框的内容付给s
fs:=TFileStream.Create('c:\strfile.txt',fmCreate);
try
fs.Write(s^,Length(s));//*修改
finally
fs.free;
end;
end;procedure TForm1.Button2Click(Sender: TObject);//从文件中读出字符串
var
s:pchar;//*修改
fs:TFileStream;
begin
fs:=TFileStream.Create('c:\strfile.txt',fmOpenRead);
getmem(s,fs.size);//*修改
try
fs.Read(s^,fs.Size);//*修改
Edit1.Text :=s;
finally
fs.free;
end;
freemem(s);//*修改
end;