...type
TForm1 = class(TForm)...Memo1: TMemo;Button1: TButton;Button2: TButton;Button3: TButton;...
private
{ Private declarations }
public
{ Public declarations }
end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin
//清空 Memo1Memo1.Clear;//在未载入任何内容时，禁止使用 Append、InsertButton2.Enabled := False;Button3.Enabled := False;...
end;//装载任意文本文件procedure TForm1.Button1Click(Sender: TObject);begin...
Memo1.Lines.LoadFromFile( OpenDialog1.FileName );Caption := Hint + 调入: + OpenDialog1.FileName;Button2.Enabled := True;Button3.Enabled := True;...
end;//在文件头插入procedure TForm1.Button2Click(Sender: TObject);VarSWA : TMemoryStream; //建立临时交换内存镜象CNULL : char; //空字符begin
SWA := NIL;CNULL := #0;...//初始化内存流SWA := TMemoryStream.Create;//加载要插入的文件SWA.LoadFromFile( OpenDialog1.FileName );//把指针移到流尾,以 #0 结尾，SWA.Seek(0, soFromEnd);SWA.Write( CNULL, 1);//再移到头SWA.Seek( 0, soFromBeginning );//插入偏移量为 0 Memo1.SelStart := 0;Memo1.SetSelTextBuf(SWA.Memory);....
end;procedure TForm1.Button3Click(Sender: TObject);VarSWA : TMemoryStream;CNULL : char; //空字符begin
SWA := NIL;CNULL := #0;...//初始化内存流SWA := TMemoryStream.Create;//加载要追加的文件SWA.LoadFromFile( OpenDialog1.FileName );//把指针移到流尾,以 #0 结尾，SWA.Seek(0, soFromEnd);SWA.Write( CNULL, 1);//再移到头SWA.Seek( 0, soFromBeginning );//把 Memo1 的指针移到 Memo1 尾部Memo1.Lines.Add();Memo1.Lines.Delete( Memo1.Lines.Count -1 );//追加Memo1.SetSelTextBuf(SWA.Memory);...
end;....
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
