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

Discussion in 'С/С++, C#, Delphi, .NET, Asm' started by Alina2015, 12 Feb 2018.

  1. Alina2015

    Alina2015 New Member

    Joined:
    29 Jan 2018
    Messages:
    10
    Likes Received:
    1
    Reputations:
    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

    Joined:
    8 Jul 2015
    Messages:
    69
    Likes Received:
    50
    Reputations:
    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 likes this.
Loading...