procedure TfrmNewStationType.FormShow(Sender: TObject);
var tstrTNS,tstrTNS_Name:tstringlist;
    i,j,iPos,iSLIndex:integer;
    Reg:TRegistry;
    sOracleHome,FileToFind,sTNS: string;
begin       // 找 ORACLE HOME 的路徑
   Reg := Tregistry.Create;
   try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      if reg.OpenKeyReadOnly('\SOFTWARE\ORACLE\HOME0') then begin
         sOracleHome:=reg.ReadString('ORACLE_HOME');
         reg.CloseKey;
      end;
   finally
      reg.Free;
   end;
   // 然後再找 TNSNAMES.ORA
   if trim(sOracleHome) <> '' then begin
      FileToFind:=FileSearch('tnsnames.ora',sOracleHome '\network\admin\');
      if FileToFind <> '' then begin
         comboTNS.Clear;
         try
            tstrTNS:=tstringlist.Create;
            tstrTNS_Name :=tstringlist.Create;
            tstrTNS.LoadFromFile(FileToFind);// 將 TNSNAMES.ORA LOAD 到 TSTRINGLIST
            
            // 這迴圈是要將 註解提示符號 # 後的資料清掉，以及空的 ROW 清掉 - BEGIN
            for i:=tstrTNS.Count-1 downto 0 do begin 
               iPos:=pos('#',tstrTNS.Strings[i]);
               if iPos <> 0 then begin
                  tstrTNS.strings[i] :=  trim(copy(tstrTNS.strings[i],1,iPos-1));
               end;
               if trim(tstrTNS.strings[i]) = '' then begin
                  tstrTNS.Delete(i);
               end;
            end;
            // 這迴圈是要將 註解提示符號 # 後的資料清掉，以及空的 ROW 清掉 - END

 
            // 將 tstrTNS 的資料移到 sTNS - BEGIN
            sTNS:='';
            for i:=0 to tstrTNS.Count-1 do begin
                sTNS:=sTNS trim(tstrTNS.strings[i]);
            end;
            tstrTNS.Clear;
            // 將 tstrTNS 的資料移到 sTNS - END
      
            // 這迴圈的目的是捉 TNS NAME - BEGIN
            iSLIndex:=0;
            tstrTNS.Add('');
            for i:=0 to length(sTNS) do begin
                case sTNS[i] of
                  '=': ;
                  '(': begin
                          tstrTNS.Add('(');
                          tstrTNS.Add('');
                          iSLIndex:=iSLIndex 2;
                       end;

   
                  ')': begin
                          j:= tstrTNS.count-1;
                          while true do begin
                            if tstrTNS.Strings[j] = '(' then begin
                               tstrTNS.Delete(j);
                               iSLIndex:=j-1;
                               break;
                            end else begin
                               tstrTNS.Delete(j);
                            end;
                            dec(j);
                          end;
                          if tstrTNS.count = 1 then begin
                             //將TNS NAME 另存在 tstrTNS_Name
                             tstrTNS_Name.Add(trim(tstrTNS.Strings[0])); 
                             tstrTNS.Strings[0] := '';
                          end;
                       end;
                else
                    tstrTNS.Strings[iSLIndex]:=tstrTNS.Strings[iSLIndex] sTNS[i];
                end;
            end;
            // 這迴圈的目的是捉 TNS NAME - END
                            comboTNS.Items.Assign(tstrTNS_Name);
         finally
            tstrTNS_Name.Free;
            tstrTNS.Free;
         end;
      end;
   end;
end;

HORA8 =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 192.15.1.1)(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVICE_NAME = HORA8)
    )
  )