Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.07.2008, 16:46   #1
AidarBik
Форумчанин
 
Регистрация: 12.06.2007
Сообщений: 130
По умолчанию GetPrivateProfileStringA

Когда читаю Integer из ини файла то работает:
Код:
function ReadIniInteger(FileName, SectionName, KeyName: String; bDefault: Integer = -1): Integer;
var
  nValue: Integer;
  Default, ReturnedString: PChar;
begin
  Default:=PChar(IntToStr(bDefault));
  nValue:=GetPrivateProfileStringA(PChar(SectionName), PChar(KeyName), Default, ReturnedString, 255, PChar(FileName));
  if nValue > 0 then
  Result:=StrToInt(ReturnedString)
  else
  Result:=bDefault;
end;
А следуюзая функция почему то вылетает с ошибкой Runtime error:
Код:
function ReadIniString(FileName, SectionName, KeyName: String; bDefault: String = ''): String;
var
  nValue: Integer;
  ReturnedString: PChar;
begin
  nValue:=GetPrivateProfileStringA(PChar(SectionName), PChar(KeyName), PChar(bDefault), ReturnedString, 255, PChar(FileName));
  if nValue > 0 then
  Result:=ReturnedString
  else
  Result:=bDefault;
end;
AidarBik вне форума Ответить с цитированием
Старый 31.07.2008, 16:58   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну а ты не хочешь результату функции дать тип не String а Pchar?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 31.07.2008, 17:09   #3
AidarBik
Форумчанин
 
Регистрация: 12.06.2007
Сообщений: 130
По умолчанию

Нет, уже получилось.
Заменил ReturnedString: PChar на ReturnedString: Array [0..2047] of Char и 255 на SizeOf(ReturnedString)
AidarBik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск