
{
if(openFileDialog1.ShowDialog() == DialogResult.OK)
{
System.IO.StreamReader sr = new System.IO.StreamReader(openFileDialog1.FileName)
this.ActiveMdiChild.ActiveControl.Text=sr.ReadToEnd()
sr.Close()
}
}
private void menuItem4_Click(object sender, System.EventArgs e)
{
if((saveFileDialog1.ShowDialog() == DialogResult.OK))
{
System.IO.FileStream fs = (System.IO.FileStream)saveFileDialog1.OpenFile()
}
}
del拆分多个del的函数如下:vari,WantedFragSize,RealToWrite:Integer
//InStream为输入源文件流对象,OutStream为输出切割文件流对象
InStream,OutStream:TFileStream
S:Stringbegin
ifOpendialog1.Executethen
begin
SaveDialog1.Title:='输入你要保存的切割文件名'
IfSaveDialog1.Executethen
begin
WantedFragSize:=StrtoInt(Edit1.Text)//定义切割块大小
i:=0
//以只读的方式创建一个输入文件流对象
InStream:=TFileStream.Create(
OpenDialog1.FileName,fmOpenRead)
Try
//如果Instream流的当前指针位置不在末尾,就按照定义的块大小//来读出数据并存成文件
while(InStream.PositionBegin
s:=IntToStr(I)
whileLength(s)s:='.'+s
//生成切割文件的扩乎山展名,用三位数字来作为扩展名,方便组合文件
//如果InStream所剩的块大小小于定义的块大燃顷码小,则将皮哪剩下的块数//据存成文件
IfInStream.Size-InStream.PositionRealToWrite:=InStream.Size-InStream.Position
else
RealToWrite:=WantedFragSize
//创建一个输出文件流对象
OutStream:=TFileStream.Create(SaveDialog1.FileName+s,fmCreate)
try
OutStream.CopyFrom(InStream,RealToWrite)
Inc(i)
Finally
//释放输出文件流对象
OutStream.Free
end
end
Finally
InStream.Free
end
end
end
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)