要求:重点院校本科以上。
5年工作经验,英语6级
3年以上delphi代码编写sql server ,oracle,DB2.
2年项目管理设计与系统分析经验。
会使用Rose,UML时行项目的前期工作设计。
可出差。
薪资从优。
三天有效
20030530
5年工作经验,英语6级
3年以上delphi代码编写sql server ,oracle,DB2.
2年项目管理设计与系统分析经验。
会使用Rose,UML时行项目的前期工作设计。
可出差。
薪资从优。
三天有效
20030530
Var
FileStream:TFilestream;
Mywriter:TWriter;
i: integer
Begin
FileStream:=TFilestream.create(‘c:\Test.txt’,fmopenwrite);//创建文件流对象
Mywriter:=TWriter.create(FileStream,1024); //把Mywriter和FileStream联系起来
Mywriter. writelistbegin; //写入列表开始标志
For i:=0 to Memo1.lines.count-1 do
Mywriter.writestring(memo1.lines[i]); //保存Memo组件中文本信息到文件中
Mywriter.writelistend; //写入列表结束标志
FileStream.seek(0,sofrombeginning); //文件流对象指针移到流起始位置
Mywriter.free; //释放Mywriter对象
FileStream.free; //释放FileStream对象
End;
b)读文件
procedure TForm1.ReadData(Sender: TObject);
Var
FileStream:TFilestream;
Myreader:TReader;
Begin
FileStream:=TFilestream.create(‘c:\Test.txt’,fmopenread);
Myreader:=TRreader.create(FileStream,1024); //把Myreader和FileStream联系起来
Myreader.readlistbegin; //把写入的列表开始标志读出来
Memo1.lines.clear; //清除Memo1组件的文本内容
While not myreader.endoflist do //注意TReader的一个方法:endoflist
Begin
Memo1.lines.add(myreader.readstring); //把读出的字符串加到Memo1组件中
End;
Myreader.readlistend; //把写入的列表结束标志读出来
Myreader.free; //释放Myreader对象
FileStream.free; //释放FileStream对象
End;
[email protected]