北京某公司招项目经理

Question

要求：重点院校本科以上。
5年工作经验，英语6级
3年以上delphi代码编写sql server ,oracle,DB2.
2年项目管理设计与系统分析经验。
会使用Rose,UML时行项目的前期工作设计。
可出差。
薪资从优。
三天有效
20030530

Answer 1

procedure TFomr1.WriteData (Sender: TObject); r;
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;

Answer 2

楼主应该去chinahr招啊，项目经理在这里找有点...

Answer 3

和我联系
[email protected]