[delphi 5-6] Verifica esistenza Alias

[3millennium]

Ciao a Tutti!
ho la necessità di verificare se un alias esiste o meno...vi spiego meglio!
se l'alias PIPPO esiste allora setto le mi belle SQL in modo che vadano a prendere i dati da PIPPO, altrimenti, se non esiste, vado a prenderli da c:\PIPPO\DB, questo perchè se il programma che lo vado ad eseguire in rete, ha senso usare un'alias per identificare la cartella in cui vengono inseriti i dataBase...mentre, se il programma lo eseguo in locale, non me ne frega niente e so che i database saranno sempre ed esclusivamente in quella determinata posizione!

qualcuno mi aiuta?

[alka]

Se fai uso del BDE, dovresti avere a disposizione un oggetto Session in grado di restituirti informazioni sugli alias, nonchè permetterti di crearne di nuovi o eliminare quelli esistenti.

Il metodo GetAliasNames dell'oggetto Session permette di farsi restituire all'interno di un oggetto TStringList l'elenco degli alias configurati.

Una volta ottenuto questo elenco, possiamo sfruttare il metodo IndexOf della classe TStringList per farci restituire l'indice associato ad un determinato elemento: l'alias che stiamo verificando.

Se l'indice restituito vale -1, allora significa che l'alias non si trova nell'elenco; in caso contrario, otteniamo l'indice.

Ciao!