小编the*_*ies的帖子

我在无线电组上分组了四个单选按钮.有创建文件,创建文件夹,删除和复制单选按钮,但我有复制按钮的问题.

它主要工作正常,但消息窗口(说文件被复制到硬盘驱动器的位置)没有关闭.我怎么能把它关闭？或者有没有办法刷新单选按钮？

这是一个家庭作业问题.

这是我的代码:

 procedure TForm1.btnsubmitClick(Sender: TObject);
  var
    i,j,k,t,index,pred,delp,temp,temp2:integer;
begin
if rbtncreatefolder.checked = true then
     begin
    if (length(edit3.Text)>0) and (edit3.Text<>'..') then begin
        if (VS>=3)   then  begin
        if sush(true,nk1,edit3.Text) then  begin

        i:=tabld[nk1].nach;
        while fat[i]<>1024 do i:=fat[i];
        fat[i]:=freep(i);
        tabld[fat[i]].name:=edit3.Text;
       tabld[fat[i]].format:='';
        tabld[fat[i]].tip:=true;
        fat[fat[i]]:=1024;
        k:=freep(fat[i]);
        tabld[fat[i]].nach:=k;
        tabld[k].name:='.';
        tabld[k].tip:=true;
        tabld[k].nach:=fat[i];
        t:=freep(k);
        fat[k]:=t;
        tabld[t].name:='..';
        tabld[t].tip:=true;
        tabld[t].nach:=nk1;
        fat[t]:=1024;
        tabld[fat[i]].razmer:=0;
        tabld[i].razmer:=tabld[i].razmer+1;
      reload;
        end
        end
        else
            showmessage('Not enough free memory!');
    end
    else
      showmessage('Incorrect data or absent!');
end
else if rbtncreatefile.Checked = true then
  begin
    if (length(edit3.Text)>0) and (length(edit4.Text)>0)then begin …