Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблема с INI 
:(
    Опции темы
delphi_
Дата 8.4.2007, 17:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
Код



procedure TForm1.Button2Click(Sender: TObject);
var
Version:string;
IniFile:TIniFile;

begin

 inifile:=TiniFile.Create(extractfilepath(Application.ExeName)+'ini.ini');
 TRY
 Version:=IniFile.ReadString('LALA', 'version', 'gg');
   label1.caption:=version;
   finally
IniFile.Free;

сам ини файл


[LALA]
version=17777



пробовал сделать так-
Код

path:=extractfilepath(Application.ExeName)+'ini.ini';

путь правильный
что я не так делаю?
PM MAIL   Вверх
Sergius
Дата 8.4.2007, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

Репутация: нет
Всего: нет
Код

var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create((IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))) + 'Ini.ini');
  Caption := Ini.ReadString('About', 'Version', '1234567');
  Ini.Free;


О как!  smile 

Это сообщение отредактировал(а) Alexeis - 15.4.2007, 13:14
PM MAIL   Вверх
Insert
Дата 8.4.2007, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 13.4.2006

Репутация: 1
Всего: 1
Код

var
   ln: byte;
   Ini : TIniFile;
   Root: string; // адрес папки с exe
begin
 ln := 255;
 SetLength(Root, ln);
 ln := windows.GetCurrentDirectory(ln, PChar( Root ));
 SetLength( Root, ln );
 Ini := TIniFile.Create( Root + '\Ini.ini');


 Вот так!  smile 

Это сообщение отредактировал(а) Alexeis - 8.4.2007, 20:47
--------------------
пьяный русский кодер практически непобедим
PM MAIL   Вверх
aktuba
Дата 8.4.2007, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

TIniFile.Create((IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))) + 'Ini.ini');


Какая-то страшная строка  smile Так проще:
Код

TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Ini.ini');



--------------------
user posted image
PM MAIL WWW Skype   Вверх
Guedda
Дата 8.4.2007, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
А ещё проще IncludeTrailingBackSlash


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Sergius
Дата 8.4.2007, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2007

Репутация: нет
Всего: нет
Цитата(Guedda @ 8.4.2007,  18:37)
А ещё проще IncludeTrailingBackSlash

Да вы правы.

Код

var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'Ini.ini');
  Caption := Ini.ReadString('About', 'Version', '1234567');
  Ini.Free;


 smile

Добавлено @ 18:52
Цитата(aktuba @ 8.4.2007,  18:33)
Цитата

TIniFile.Create((IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))) + 'Ini.ini');


Какая-то страшная строка  smile Так проще:
Код

TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Ini.ini');

Поэксперементируйте и поймете, что это не есть гуд...

Это сообщение отредактировал(а) Alexeis - 8.4.2007, 20:48
PM MAIL   Вверх
aktuba
Дата 8.4.2007, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

Поэксперементируйте и поймете, что это не есть гуд...


Почему??? Эксперементы не выявили глюков. Может вы подскажете?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
delphi_
Дата 8.4.2007, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
нет,всеравно он какбудто конфиг не видит и выдает дефолт значение...бред какойто =(
PM MAIL   Вверх
aktuba
Дата 8.4.2007, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

нет,всеравно он какбудто конфиг не видит и выдает дефолт значение...бред какойто =( 


Тогда объясни подробнее, где что лежит. И покажи полный код...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
delphi_
Дата 8.4.2007, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
файл ini.ini лежит собственно в директории программы.мне нужно из него просто узнать значение version..
смысл давать полный код,только эта процедура с ини работает,другие вообще его не трогают...собственно с процедурой и мучаюсь
PM MAIL   Вверх
Yanis
Дата 8.4.2007, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Sergius @  8.4.2007,  19:51 Найти цитируемый пост)
Да вы правы.

var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'Ini.ini');
  Caption := Ini.ReadString('About', 'Version', '1234567');
  Ini.Free;

smile
Будь добр оформляй примеры кода в тег code.


M
Alexeis		Модератор: спасибо Yanis, добавлю что выделение кода это не просто рекомендация, 

а требование записанное в правилах форума обязательное к выполнению.


Это сообщение отредактировал(а) Alexeis - 8.4.2007, 20:55


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
delphi_
Дата 9.4.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
Народ,как поступить то?попробовал щас сделать новый проект-всеравно не читает данные в INI и выводит дефолт

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 Ini : TIniFile;
begin
  Ini := TIniFile.Create(IncludeTrailingBackSlash(ParamStr(0)) + 'ini.ini');
  label1.Caption := Ini.ReadInteger('version', 'ver', '1234567');
  Ini.Free;
end;


Код

[version]
ver=11
PM MAIL   Вверх
Yanis
Дата 9.4.2007, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
delphi_
Ты уверен, что ini файл называется project1.exe\ini.ini?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
delphi_
Дата 9.4.2007, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 140
Регистрация: 30.11.2006

Репутация: нет
Всего: -1
да,Уверен 100%
PM MAIL   Вверх
aktuba
Дата 9.4.2007, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
Цитата

Ты уверен, что ini файл называется project1.exe\ini.ini? 


Твой файл называется ini.ini, а не project1.exe\ini.ini =))) Yanis проверял тебя =)))) Он имел в виду, что ты добавляешь название ini файла не к директории, а к исполняемому файлу. Т.е. вместо Projects\ini.ini ты получаешь Projects.exe\ini.ini Соответственно такого файла нет, вот тебе и возвращается дефолтное значение =)))

P.S: замени ReadInteger на ReadString =))))

Прикладываю ТВОЙ же код, который работает =))))

Это сообщение отредактировал(а) aktuba - 9.4.2007, 12:48

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  test.rar 51,92 Kb


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0575 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.