델파이 배열 상수 사용법, 로컬 디렉토리에서 특정경로의 상위폴더 얻기

배열로 상수를 정의하는 방법은 2가지가 있을 듯

첫번째
const
       MY_SITE: array[0..2]of String = ('구글', '다음', '네이버');

두번째 
type
TSiteType = (stGoogle, stDaum, stNaver);

const
         MY_SITE: array[TSiteType] = ('구글', '다음', '네이버');

첫번째는 인덱스로 접근

 edit1.text  := MY_SITE[1];

두번째는

 edit1.text  := MY_SITE[stDaum];

//로컬 디렉토리에서 특정경로의 상위폴더 얻기   *************************************************************

C:\Users\my_user\Downloads\    에서 바로 위 상위 경로를 얻으려면 (C:\Users\my_user\  )

다음의 함수를 사용한다.

Edit2.Text := ExtractFilePath(ExcludeTrailingPathDelimiter(Edit1.Text));