delphi高手来一下下面是我从网上下
public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*。DFM}procedureTForm1。Button1Click( );vartext1:string; :integer;//定义三个局部变量beginifedit1。 text=''thenshowmessage('PleaseInsertAShiftNumber1')//如果edit1输入的内容为空,显示提示信息输入一个移位量elseifStrToInt(edit1。 text)>255thenShowMessage('NumberMustBeLess...全部
public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*。DFM}procedureTForm1。Button1Click( );vartext1:string; :integer;//定义三个局部变量beginifedit1。
text=''thenshowmessage('PleaseInsertAShiftNumber1')//如果edit1输入的内容为空,显示提示信息输入一个移位量elseifStrToInt(edit1。
text)>255thenShowMessage('NumberMustBeLessThan256')//如果edit1输入的数字大于255,显示提示信息必须小于256ElseifStrToInt(Edit1。
text)255thenShowMessage('NumberMustBeLessThan256')ElseifStrToInt(Edit1。text)''thenMemo1。Lines。LoadFromFile( lename);end;procedureTForm1。
Button4Click( );beginSaveDialog1。Execute;//显示存储文件对话框 lename=''thenelsememo1。Lines。SaveToFile( lename);//如果选择了文件就把memo1内容存入end;procedureTForm1。
FormCreate( );beginmemo1。text:='';memo2。text:='';//清空两个编辑框end;procedureTForm1。Button5Click( );beginOpenDialog2。
execute; lename=''thenelsememo2。Lines。LoadFromFile( lename);//此处与Button3Click一样,读入memo2的内容end;procedureTForm1。
Button6Click( );beginSaveDialog2。Execute; lename=''thenelsememo2。Lines。SaveToFile( lename);//此处与Button4Click一样,存储memo2的内容end;procedureTForm1。
Button8Click( );beginmemo2。text:='';//清空memo2end;procedureTForm1。Button7Click( );beginmemo1。text:='';//清空memo1end;procedureTForm1。
Edit1Change( );beginend;end。收起
