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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2023, 04:28   #1
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
Вопрос не могу получить список путей ini Файл

добра всем!
Ситуация смешная до ужаса)
Помогите плиз!
Программа считывать из ини пути к файлом только теь которые нужны,
для этого для выбора 24 CheckBox-а создана переменная масив:
Код:
var
   LED: array [1..24] of Boolean;
выбираем то что нужно:
Код:
if CheckED1.ColorOff = clLime then про
begin
CheckLED1.ColorOff:= clRed;
LED[1]:= false;
end
else
begin
CheckED1.ColorOff := clLime;
LED[1]:= true;
end;
end;
Здесь всё работает нормально,
далее на чём встал:

Код:
var
 ir,l:integer;
 sr:String;
 List,Listik:TStringList;
  Begin
    List:= TStringList.Create;
       Listik:=TStringList.Create;
          for ir:=1 to 24 do
      if LED[ir]=True then
   Listik.Add(IniFile.ReadString('Seplux','SetupFile'+inttostr(ir),''));
Не читает и не считывает
Много как пробовал уже запутался но это последний кусок кода который тоже не работает)
Всево лиш нужно создать список из ини файла)
А ну да в FormCreate ини создал:
Код:
  
IniFile:=TIniFile.Create(extractfilepath(Application.ExeName)+'Setup.ini');
Вроде должно работать а не работает(
Зарание благодарю!
С уважением!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 01.03.2023, 12:25   #2
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

1) В
Код:
IniFile.ReadString('Seplux','SetupFile'+inttostr(ir),'')
третьим параметром укажите значение по умолчанию. Если строки в ini файле найдено не будет, тогда значение будет выбрано корректное (по умолчанию)
2) Откройте ini файл в любом текстовом редакторе (хоть в самой Delphi) и найдите секцию [Seplux], а в ней строки:
SetupFile1=???
...
SetupFile24=???
Возможно вы их туда не сохранили или сохранили в другой секции (возможно название секции Setlux)
macomics вне форума Ответить с цитированием
Старый 02.03.2023, 00:17   #3
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Цитата:
Сообщение от macomics Посмотреть сообщение
Если строки в ini файле найдено не будет,
Спасибо огромное за ответ!
Секция [Seplux] 24 ключа в секции
Код:
[Seplux]
SetupFile1:=""
SetupFile2:="C:\Sef"
SetupFile3:=""
SetupFile4:=""
SetupFile5:=""
SetupFile6:=""
SetupFile7:=""
SetupFile8:=""
SetupFile9:="C:\Sf"
SetupFile10:="C:\Setd7f"
SetupFile11:="C:\S"
SetupFile12:="C:\"
SetupFile13:=""
SetupFile14:=""
SetupFile15:=""
SetupFile16:=""
SetupFile17:=""
SetupFile18:=""
SetupFile19:=""
SetupFile21:="C:\SetupAll"
SetupFile22:=""
SetupFile23:=""
SetupFile24:=""
Да и выдаёт пустые строки(
Не количеством плюсов измеряется репутация человека...!

Последний раз редактировалось Volkogriz; 02.03.2023 в 00:24.
Volkogriz вне форума Ответить с цитированием
Старый 02.03.2023, 00:38   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Разделитель в ini-файле это "=", а не ":=". LED содержит булевы значения, так что вместо "if LED[ir]=True then" можно просто "if LED[ir] then".
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 02.03.2023, 06:07   #5
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Огромное спасибо!!!
Заработала, С просони поставил весь иник без двоеточия а эту секцию поставил
Цитата:
Сообщение от BDA Посмотреть сообщение
Разделитель в ini-файле это "=", а не ":=". LED содержит булевы значения, так что вместо "if LED[ir]=True then" можно просто "if LED[ir] then".
Делал так изначально потом не получалось перепоганил всё и не понимал в чем дело)
Не количеством плюсов измеряется репутация человека...!

Последний раз редактировалось Volkogriz; 02.03.2023 в 06:12.
Volkogriz вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан файл f,компоненты которого являются символами.Получить файл g,образованный из файла f заменой всех строчных букв на прописные qaguero11 Общие вопросы Delphi 1 05.07.2016 17:01
Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с исключением всех слов, встречающихся больше одног Newen Паскаль, Turbo Pascal, PascalABC.NET 2 25.04.2012 17:07
а как я могу получить список созданных мной темы TotKtoNado О форуме и сайтах клуба 1 18.06.2011 21:18
Список с заглавным звеном, из текстового файла получить список из записей и по нему уже сделать задание Zigfried Помощь студентам 2 04.10.2010 20:29
Дан файл, содержащий текст на русском языке.Составить в алфавитном порядке список слов в файл. JiLiYa Паскаль, Turbo Pascal, PascalABC.NET 3 26.12.2008 12:05