Maks150988
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет. Вот уже три дня не могу сделать функцию для проверки значения в ини файле. Вот что есть:
function IniCheckString(const FFileName, Section, CheckStr : string): Boolean;
var
Buffer: array[0..1023] of Char;
ListStat: PChar;
begin
if GetPrivateProfileString(PChar(Section), nil, nil, Buffer, SizeOf(Buffer), PChar(FFileName)) <> 0 then
begin
ListStat := Buffer;
while ListStat^ <> '' do
begin
if (pos(CheckStr, ListStat) = 0) then
begin
Result := True;
Exit;
end
else
Result := False;
inc(ListStat, lstrlen(ListStat) + 1);
end;
end;
end;
Ну и использование:
if IniCheckString(PChar(GetCurDir + 'LinkURL.dat'), PChar('Stations'), PChar('Значение')) = true then messagebox(happ,'yes','',0);
То есть имеем ини файл с содержимым:
[Stations]
Значение
И функция должна вернуть тру вслучае нахождения искомой строки. Но она вообще ничего не возвращает. Что не так?
|
