Fråga : Läsning värderar från UDL-sparar (textfilen)

Hi

I skulle något liknande för att ha två fungerar att ska läst efter värderar från ett resultat för källa för udl-spara ”myudl.udl” (likt nedanfört)
Data = 'resultatet för katalogen för MYCOMPNAME- \ ServerInstance'< br/>Initial = 'class= " lineNumbers " >
1 för > [oledb]
; Allt efter detta fodrar är en OLE DB som initstring
Provider=SQLOLEDB.1; Data Source=MYCOMPNAME \ ServerInstance; Inbyggda Security=SSPI; Framhärdar säkerhet Info=False; Initiala Catalog=MyDBName;
<-/pre>



How kan detta göras? 

  
  " klar " 




  
 
 
  



Svar : Läsning värderar från UDL-sparar (textfilen)


  

 



 


det är allways fodrar 3 av spara
det är avgränsad stränger i stort
 
                       

                       

         

           
             
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:


           		
           
             
var-FileName: stränga;
  Lista: TStrings;
  ds ic: stränga;
börja
  FileName: = ”C:\yourfilename.udl”;
  Lista: = TStringList.Create;
  försök
    List.Delimiter: = ”; ”;
    List.StrictDelimiter: = True;
    List.LoadFromFile (FileName);
    List.DelimitedText: = lista [2];
    ds: = List.Values [”datakälla”];
    ic: = List.Values [”initial katalog”];
    ShowMessage (ds + ''+ ic);
  slutligen
    List.Free;
  avsluta;
avsluta;


           		
         

       

         

         

         

         

       










 

                            

                              

                                

                                  


                                    Andra lösningar
                                     
                                  

                                

                              

                              

                                
                                
                              

                            

                          




                    


                  

                  

                  

                         		

                        

                    
                      

                         
                        

                      

                    

                  

              

              


        

            

          


 
         		
      




            

              

                
              

              

                



 


                    

                        

                          programming4us
                          
                          programming4us