*Объявление ф-ций API
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr;
String cSection,String cKey,String cDefault,String @cBuffer,;
Integer nBufferSize, String cINIFile
DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr;
String cSection,String cKey,String cValue,String cINIFile

Текст метода класса для чтения из INI-файла:

LPARAMETERS lcType1,lcType2
LOCAL lcRetValue,lcBuffer,lnLength

lcType1=ALLTRIM(lcType1)
lcType2=ALLTRIM(lcType2)

lcRetValue=''

IF FILE(THIS.cINIFileName)
lnLength=0
lcBuffer=SPACE(2000)
lnLength=GetPrivStr(lcType1,lcType2,'',@lcBuffer,LEN(lcBuffer),ALLTRIM(THIS.cINIFileName))
IF lnLength>0
lcRetValue=LEFT(ALLTRIM(lcBuffer),lnLength)
ENDIF
ENDIF

RETURN lcRetValue

Чтобы работать с файлом настроек, нужно задействовать функции API. Их надо сначала объявить, причем желательно на уровне видимости всего приложения, например, в классе запуска приложения.

Объявляем:

DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr;
String cSection,String cKey,String cDefault,String @cBuffer,;
Integer nBufferSize, String cINIFile
DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr;
String cSection,String cKey,String cValue,String cINIFile

Теперь с помощью функции GetPrivStr можно читать из INI-файла.

Чтобы каждый раз не заморачиваться со специфическим вызовом функции GetPrivStr, создаем метод (опять же, желательно на уровне приложения, чтобы его можно было вызвать отовсюду)

Текст метода:

LPARAMETERS lcType1,lcType2
LOCAL lcRetValue,lcBuffer,lnLength

lcType1=ALLTRIM(lcType1)
lcType2=ALLTRIM(lcType2)

lcRetValue=''

IF FILE(THIS.cINIFileName)
lnLength=0
lcBuffer=SPACE(2000)
lnLength=GetPrivStr(lcType1,lcType2,'',@lcBuffer,LEN(lcBuffer),ALLTRIM(THIS.cINIFileName))
IF lnLength>0
lcRetValue=LEFT(ALLTRIM(lcBuffer),lnLength)
ENDIF
ENDIF

RETURN lcRetValue

Теперь просто вызываем этот метод, передаем ему два параметра и получаем пустое значение, если ничего из INI не считано, и непустое, если что-то в INI имеем.

Например, есть INI-файл, в нем записано:

[Database]
SQLServer=SomeServer
DBName=SomeDatabase

Надо считать имя сервера для коннекта. Вызываем вышеуказанный метод, передаем ему два параметра: 'Database', 'SQLServer', получаем значение SomeServer.

Надо считать имя базы данных. Вызываем вышеуказанный метод, передаем ему два параметра: 'Database', 'DBName', получаем значение SomeDatabase.

Хочу еще пояснить, что THIS.cINIFileName - это свойство класса, в которое записано имя файла настроек. Можно вместо него писать напрямую путь и имя INI-файла.

А не легче создать его в текстовом редакторе? )))))))))

Лучше функцией FPUTS()