redunit.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

                     form1.ClientDataSet1.FieldByName('skydqjy').Value:=strtoboolean(regmemo.Lines[2]);
                     form1.ClientDataSet1.FieldByName('skyeditorjy').Value:=strtoboolean(regmemo.Lines[3]);
                     form1.ClientDataSet1.FieldByName('skyeditorjsjy').Value:=strtoboolean(regmemo.Lines[4]);
                     form1.ClientDataSet1.FieldByName('skyeditorfsjy').Value:=strtoboolean(regmemo.Lines[5]);
                     form1.ClientDataSet1.FieldByName('skyeditortjjy').Value:=strtoboolean(regmemo.Lines[6]);
                     form1.ClientDataSet1.FieldByName('skynetjy').Value:=strtoboolean(regmemo.Lines[7]);
                     form1.ClientDataSet1.FieldByName('skyserverjy').Value:=strtoboolean(regmemo.Lines[8]);
                     form1.ClientDataSet1.FieldByName('skyserver01jy').Value:=strtoboolean(regmemo.Lines[9]);
                     form1.ClientDataSet1.FieldByName('skyserver02jy').Value:=strtoboolean(regmemo.Lines[10]);
                     form1.ClientDataSet1.FieldByName('skyserver03jy').Value:=strtoboolean(regmemo.Lines[11]);
                     form1.ClientDataSet1.FieldByName('skyserver04jy').Value:=strtoboolean(regmemo.Lines[12]);
                     form1.ClientDataSet1.FieldByName('skyserver05jy').Value:=strtoboolean(regmemo.Lines[13]);
                     form1.ClientDataSet1.FieldByName('skyserver06jy').Value:=strtoboolean(regmemo.Lines[14]);
                     form1.ClientDataSet1.FieldByName('editorserverjy').Value:=strtoboolean(regmemo.Lines[15]);
                     form1.ClientDataSet1.FieldByName('ftpjy').Value:=strtoboolean(regmemo.Lines[16]);
                     form1.ClientDataSet1.FieldByName('ftpszjy').Value:=strtoboolean(regmemo.Lines[17]);
                     form1.ClientDataSet1.FieldByName('ftpxjwjjjy').Value:=strtoboolean(regmemo.Lines[18]);
                     form1.ClientDataSet1.FieldByName('ftpscjy').Value:=strtoboolean(regmemo.Lines[19]);
                     form1.ClientDataSet1.FieldByName('ftpxzjy').Value:=strtoboolean(regmemo.Lines[20]);
                     form1.ClientDataSet1.FieldByName('ftpjy').Value:=strtoboolean(regmemo.Lines[21]);
                     form1.ClientDataSet1.FieldByName('sqljy').Value:=strtoboolean(regmemo.Lines[22]);
                     form1.ClientDataSet1.FieldByName('nssqljy').Value:=strtoboolean(regmemo.Lines[23]);
                     form1.ClientDataSet1.FieldByName('WinArchiverjy').Value:=strtoboolean(regmemo.Lines[24]);
                     form1.ClientDataSet1.FieldByName('Winftpjy').Value:=strtoboolean(regmemo.Lines[25]);
                     form1.ClientDataSet1.FieldByName('skyimagejy').Value:=strtoboolean(regmemo.Lines[26]);
                     form1.ClientDataSet1.SaveToFile('C:\NewStar\Enterpirse\user\sysuser.dat');
                   end;
           StatusBar1.Panels[1].text:='接收完毕...!';
           screen.Cursor:=crDefault;
           screen.Cursor:=crarrow;
           ftp.abort;
           ftp.logout;
           close;
         except
         screen.Cursor:=crarrow;
         ftp.abort;
         ftp.logout;
         close;
         end;

       end;

       form1.ClientDataSet1.Next;
    end;




         {==============================================}




                 ProgressBar1.Position:=100;

           StatusBar1.Panels[1].text:='接收完毕...!';
           screen.Cursor:=crDefault;
           screen.Cursor:=crarrow;
           ftp.abort;
           ftp.logout;


           close;

end;



procedure Tredform.FormCreate(Sender: TObject);
begin
 DecodeDate(date,cy,cm,cd);
 dir:=extractfilepath(paramstr(0));
 ForceDirectories(dir+'dat\save\story\');
  if fileexists(dir+'dat\save\story\Story.dat') then
    begin
     restory.Lines.Clear;
     restory.Lines.LoadFromFile(dir+'dat\save\story\Story.dat');
    end else
    begin
     restory.Lines.Clear;
     restory.Lines.SaveToFile(dir+'dat\save\story\Story.dat');
    end;

    restory.Text:=restory01.text;

end;


 function Tredform.makescreat(s:string) :string;
 var
  temp:string[100];
  i:integer;
  begin

         for i:=0 to 100 do
         begin
         temp[i]:=' ';
         end;
         temp:=s;
         Result:='';
         for i:=0 to 100 do
         begin
          // if trim(temp[i])='' then exit;
           if temp[i]='a' then  Result:=Result+'y';
           if temp[i]='b' then  Result:=Result+'x';
           if temp[i]='c' then  Result:=Result+'a';
           if temp[i]='d' then  Result:=Result+'g';
           if temp[i]='e' then  Result:=Result+'i';
           if temp[i]='f' then  Result:=Result+'w';
           if temp[i]='g' then  Result:=Result+'h';
           if temp[i]='h' then  Result:=Result+'v';
           if temp[i]='i' then  Result:=Result+'d';
           if temp[i]='j' then  Result:=Result+'u';
           if temp[i]='k' then  Result:=Result+'t';
           if temp[i]='l' then  Result:=Result+'e';
           if temp[i]='m' then  Result:=Result+'f';
           if temp[i]='n' then  Result:=Result+'j';
           if temp[i]='o' then  Result:=Result+'q';
           if temp[i]='p' then  Result:=Result+'r';
           if temp[i]='q' then  Result:=Result+'s';
           if temp[i]='r' then  Result:=Result+'z';
           if temp[i]='s' then  Result:=Result+'l';
           if temp[i]='t' then  Result:=Result+'k';
           if temp[i]='u' then  Result:=Result+'m';
           if temp[i]='v' then  Result:=Result+'b';
           if temp[i]='w' then  Result:=Result+'n';
           if temp[i]='x' then  Result:=Result+'o';
           if temp[i]='y' then  Result:=Result+'c';
           if temp[i]='z' then  Result:=Result+'p';

           if temp[i]='A' then  Result:=Result+'Y';
           if temp[i]='B' then  Result:=Result+'X';
           if temp[i]='C' then  Result:=Result+'A';
           if temp[i]='D' then  Result:=Result+'G';
           if temp[i]='E' then  Result:=Result+'I';
           if temp[i]='F' then  Result:=Result+'W';
           if temp[i]='G' then  Result:=Result+'H';
           if temp[i]='H' then  Result:=Result+'V';
           if temp[i]='I' then  Result:=Result+'D';
           if temp[i]='J' then  Result:=Result+'U';
           if temp[i]='K' then  Result:=Result+'T';
           if temp[i]='L' then  Result:=Result+'E';
           if temp[i]='M' then  Result:=Result+'F';
           if temp[i]='N' then  Result:=Result+'J';
           if temp[i]='O' then  Result:=Result+'Q';
           if temp[i]='P' then  Result:=Result+'R';
           if temp[i]='Q' then  Result:=Result+'S';
           if temp[i]='R' then  Result:=Result+'Z';
           if temp[i]='S' then  Result:=Result+'L';
           if temp[i]='T' then  Result:=Result+'K';
           if temp[i]='U' then  Result:=Result+'M';
           if temp[i]='V' then  Result:=Result+'B';
           if temp[i]='W' then  Result:=Result+'N';
           if temp[i]='X' then  Result:=Result+'O';
           if temp[i]='Y' then  Result:=Result+'C';
           if temp[i]='Z' then  Result:=Result+'P';

           if temp[i]='1' then  Result:=Result+'2';
           if temp[i]='2' then  Result:=Result+'5';
           if temp[i]='3' then  Result:=Result+'6';
           if temp[i]='4' then  Result:=Result+'8';
           if temp[i]='5' then  Result:=Result+'9';
           if temp[i]='6' then  Result:=Result+'1';
           if temp[i]='7' then  Result:=Result+'3';
           if temp[i]='8' then  Result:=Result+'0';
           if temp[i]='9' then  Result:=Result+'7';
           if temp[i]='0' then  Result:=Result+'4';

           if temp[i]='!' then  Result:=Result+'!';
           if temp[i]='@' then  Result:=Result+'@';
           if temp[i]='#' then  Result:=Result+'#';
           if temp[i]='%' then  Result:=Result+'%';
           if temp[i]='^' then  Result:=Result+'^';
           if temp[i]='&' then  Result:=Result+'&';
           if temp[i]='*' then  Result:=Result+'*';
           if temp[i]='(' then  Result:=Result+'(';
           if temp[i]=')' then  Result:=Result+')';
           if temp[i]='.' then  Result:=Result+'.';   
             Result:=TRIM(Result);

           //Result:=
         end;




  end;

function Tredform.showscreat(s:string) :string;
 var
  temp:string[100];
  i:integer;
  begin

         for i:=0 to 100 do
         begin
         temp[i]:=' ';
         end;
         temp:=s;
         Result:='';
         for i:=0 to 100 do
         begin
          // if trim(temp[i])='' then exit;
           if temp[i]='y' then  Result:=Result+'a';
           if temp[i]='x' then  Result:=Result+'b';
           if temp[i]='a' then  Result:=Result+'c';
           if temp[i]='g' then  Result:=Result+'d';
           if temp[i]='i' then  Result:=Result+'e';
           if temp[i]='w' then  Result:=Result+'f';
           if temp[i]='h' then  Result:=Result+'g';
           if temp[i]='v' then  Result:=Result+'h';
           if temp[i]='d' then  Result:=Result+'i';
           if temp[i]='u' then  Result:=Result+'j';
           if temp[i]='t' then  Result:=Result+'k';
           if temp[i]='e' then  Result:=Result+'l';
           if temp[i]='f' then  Result:=Result+'m';
           if temp[i]='j' then  Result:=Result+'n';
           if temp[i]='q' then  Result:=Result+'o';
           if temp[i]='r' then  Result:=Result+'p';
           if temp[i]='s' then  Result:=Result+'q';
           if temp[i]='z' then  Result:=Result+'r';
           if temp[i]='l' then  Result:=Result+'s';
           if temp[i]='k' then  Result:=Result+'t';
           if temp[i]='m' then  Result:=Result+'u';
           if temp[i]='b' then  Result:=Result+'v';
           if temp[i]='n' then  Result:=Result+'w';
           if temp[i]='o' then  Result:=Result+'x';
           if temp[i]='c' then  Result:=Result+'y';
           if temp[i]='p' then  Result:=Result+'z';

           if temp[i]='Y' then  Result:=Result+'A';
           if temp[i]='X' then  Result:=Result+'B';
           if temp[i]='A' then  Result:=Result+'C';
           if temp[i]='G' then  Result:=Result+'D';
           if temp[i]='I' then  Result:=Result+'E';
           if temp[i]='W' then  Result:=Result+'F';
           if temp[i]='H' then  Result:=Result+'G';
           if temp[i]='V' then  Result:=Result+'H';
           if temp[i]='D' then  Result:=Result+'I';
           if temp[i]='U' then  Result:=Result+'J';
           if temp[i]='T' then  Result:=Result+'K';
           if temp[i]='E' then  Result:=Result+'L';
           if temp[i]='F' then  Result:=Result+'M';
           if temp[i]='J' then  Result:=Result+'N';
           if temp[i]='Q' then  Result:=Result+'O';
           if temp[i]='R' then  Result:=Result+'P';
           if temp[i]='S' then  Result:=Result+'Q';
           if temp[i]='Z' then  Result:=Result+'R';
           if temp[i]='L' then  Result:=Result+'S';
           if temp[i]='K' then  Result:=Result+'T';
           if temp[i]='M' then  Result:=Result+'U';
           if temp[i]='B' then  Result:=Result+'V';
           if temp[i]='N' then  Result:=Result+'W';
           if temp[i]='O' then  Result:=Result+'X';
           if temp[i]='C' then  Result:=Result+'Y';
           if temp[i]='P' then  Result:=Result+'Z';

           if temp[i]='2' then  Result:=Result+'1';
           if temp[i]='5' then  Result:=Result+'2';
           if temp[i]='6' then  Result:=Result+'3';
           if temp[i]='8' then  Result:=Result+'4';
           if temp[i]='9' then  Result:=Result+'5';
           if temp[i]='1' then  Result:=Result+'6';
           if temp[i]='3' then  Result:=Result+'7';
           if temp[i]='0' then  Result:=Result+'8';
           if temp[i]='7' then  Result:=Result+'9';
           if temp[i]='4' then  Result:=Result+'0';

           if temp[i]='!' then  Result:=Result+'!';
           if temp[i]='@' then  Result:=Result+'@';
           if temp[i]='#' then  Result:=Result+'#';
           if temp[i]='%' then  Result:=Result+'%';
           if temp[i]='^' then  Result:=Result+'^';
           if temp[i]='&' then  Result:=Result+'&';
           if temp[i]='*' then  Result:=Result+'*';
           if temp[i]='(' then  Result:=Result+'(';
           if temp[i]=')' then  Result:=Result+')';
           if temp[i]='.' then  Result:=Result+'.';

           Result:=TRIM(Result);
           //Result:=
         end;
                                               



  end;

  function Tredform.strtoboolean(s:string) :boolean;
  begin
         result:=false;
         if Uppercase(trim(s))='TRUE' then result:=true else result:=false;
  end;

end.