СheckBox и форматы файлов (Delphi)

Обсуждение в разделе «С/С++, C#, Delphi, .NET, Asm», начал(-а) Alina2015, 12.02.2018.

  1. Alina2015

    Alina2015 New Member

    Регистрация:
    29.01.2018
    Сообщения:
    8
    Одобрения:
    1
    Репутация:
    0
    Как прописать что бы программа обрабатывала разные расширения файлов при выборе двух CheckBox.

    На форме два checkBox. Делаю по отдельности, то есть:
    Code:
    if CheckBox1.Checked then afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.ini', RL);
    if CheckBox2.Checked then afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.txt', RL);
    
    Все работает. Если выбираю два чекбокса то ничего не работает.

    Вопрос: Что нужно прописать что бы при выборе CheckBox1 + CheckBox2 программа обрабатывала текст формата .ini + .txt.
     
  2. spiner

    spiner Member

    Регистрация:
    8.07.2015
    Сообщения:
    58
    Одобрения:
    42
    Репутация:
    1
    как вариант как-то так:
    Code:
    SetLength(afList, 0);
    SetLength(afTempList, 0);
    if CheckBox1.Checked then afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.ini', RL);
    if CheckBox2.Checked then afTempList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.txt', RL);
    for i:=0 to Length(afTempList)-1 do
    begin
      SetLength(afList, Length(afList)+1);
      afList[Length(afList)-1] := afTempList[i];
    end;
    
     
    Это одобряет Alina2015.
Загрузка...
Similar Threads - СheckBox форматы файлов
  1. Quntugo
    Ответы:
    0
    Просмотры:
    582
  2. Goldwiks
    Ответы:
    6
    Просмотры:
    1 503
  3. shadowrun
    Ответы:
    0
    Просмотры:
    824
  4. bertys
    Ответы:
    4
    Просмотры:
    1 222