Проверка существования INI файла

@Xaker912 · Регистрация: 03.01.2016

Author24 — интернет-сервис помощи студентам

Вот код:

Delphi

if not FileExists('MyScrSaverSetting.ini') then
  begin
    with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyScrSaverSetting.ini') do
    begin
      WriteString('Setting', 'Cube', edt1.Text);
      WriteString('Setting', 'Speed', edt2.Text);
      Delta := DDelta;
      Free;
    end;
  end
  else
  begin
    with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyScrSaverSetting.ini') do
    begin
      Delta := StrToInt(ReadString('Setting', 'Cube', ''));
      Edt2.Text := ReadString('Setting', 'Speed', '');
      Free;
    end;
  end;

Работает не так как нужно, он перезаписывает значения даже если файл уже существует. Может кто сталкивался с этим.

@northener · 28.03.2016, 15:15

Сообщение от Xaker912

он перезаписывает значения даже если файл уже существует

Какой файл ты проверяешь и какой перезаписываешь? Подумай на досуге.

@Xaker912 · 28.03.2016, 15:25 **[ТС]**

Должен проверять наличие файла MyScrSaverSetting.ini и если он существует то, должен считать с него параметры, если не существует то создать с параметрами по умолчанию.

@northener · 28.03.2016, 15:27

Сообщение от Xaker912

Должен проверять наличие файла MyScrSaverSetting.ini и если он существует

А где существует?

@mss · 28.03.2016, 15:29

Этот файл ищется где-то на Луне:

Сообщение от Xaker912

if not FileExists('MyScrSaverSetting.ini') then

а этот создается конкретно в папке ExtractFilePath(ParamStr(0))

Сообщение от Xaker912

with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyScrSaverSetting.ini') do

Оба с одни и тем же именем)

@northener · 28.03.2016, 15:35

Сообщение от mss

Этот файл ищется где-то на Луне

Пардон ступил. Именно на Луне.

@Xaker912 · 28.03.2016, 15:39 **[ТС]**

Спасибо, понял. Все работает.

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	28.03.2016, 15:15	2
	Сообщение от Xaker912 он перезаписывает значения даже если файл уже существует Какой файл ты проверяешь и какой перезаписываешь? Подумай на досуге. 0

@Xaker912 1 / 1 / 0 Регистрация: 03.01.2016 Сообщений: 10
	28.03.2016, 15:25 [ТС]	3
	Должен проверять наличие файла MyScrSaverSetting.ini и если он существует то, должен считать с него параметры, если не существует то создать с параметрами по умолчанию. 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	28.03.2016, 15:27	4
	Сообщение от Xaker912 Должен проверять наличие файла MyScrSaverSetting.ini и если он существует А где существует? 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	28.03.2016, 15:29	5
	Сообщение было отмечено Xaker912 как решение Решение Этот файл ищется где-то на Луне: Сообщение от Xaker912 if not FileExists('MyScrSaverSetting.ini') then а этот создается конкретно в папке ExtractFilePath(ParamStr(0)) Сообщение от Xaker912 with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyScrSaverSetting.ini') do Оба с одни и тем же именем) 1

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	28.03.2016, 15:35	6
	Сообщение от mss Этот файл ищется где-то на Луне Пардон ступил. Именно на Луне. 0

@Xaker912 1 / 1 / 0 Регистрация: 03.01.2016 Сообщений: 10
	28.03.2016, 15:39 [ТС]	7
	Спасибо, понял. Все работает. 0

Проверка существования INI файла

Решение