Правильно определить знак перед строкой и в зависимости от этого выставить checked свойство

[Человек_Борща]

Всем Доброго времени суток!


У меня есть файл с таким содержамием:

mysql
;sqlite
;fun
engine
fakemeta
;geoip
;sockets
;regex
nvault
cstrike
csx
;hamsandwich

это имена dll которые подгружаются другой программой.
Знак ; обозначает что данный элемент отключён.

Моя задача написать программу которая заполняет CheckListBox этим списком, и выставить элементам свойство checked(включён) если перед элементом нет знака ";" , и наоборот если выключен.

Проблема в проверке этого свойства checked у элемента.

вот как проверяю:

const
  Disabled_prifix=';';

{$R *.dfm}

function ItemsEnabled(s: string): Boolean;
var
  Ts: TStringList;
  i, n: Integer;
  myDir: string;
  ss: string;
begin
  myDir := ExtractFilePath(ParamStr(0));
  Ts := TStringList.Create;
  try
    Ts.LoadFromFile(myDir + 'configs\' + 'modules.ini');
    ss := Disabled_prifix + s;
    for i := 0 to Ts.Count - 1 do
    begin
      n := AnsiPos(ss, Ts.Strings[i]);
      //если не нашли
      if (n = 0) then
      begin
        //передаём что элемент включён
        Result := True;
        Exit;
      end
      else
      begin
        //иначе передаём что выключён
        Result := False;
      end;
    end;
  finally
    Ts.Free;
  end;
end;

Проблема в том, что немогу привильно определить свойство checked основываясь на нахождении знака ; перед названием модуля в списке.

Вот прекрипляю проект, подскажите как привильно проверить это свойство, основываясь на стоящем знаке ; перед названием модуля?

[AlDelta]

Вложение не смотрел, но навскидку:

Загрузили в TCheckListBox строки и...

var i: integer;
    str:string;
begin
  for i:=0 to CheckListBox1.Count-1 do
    if CheckListBox1.Items[i][1]<>';' then
      CheckListBox1.Checked[i]:=true
    else
      Begin
        str:=CheckListBox1.Items[i];
        delete(str,1,1);
        CheckListBox1.Items[i]:=str;
      End;
end;

[Человек_Борща]

Нет в Checklistbox загружаются названия dll без всяких ;
Проверку надо зделать именно в файле.

[AlDelta]

var i: integer;
    list: TStringList;
begin
  list:=TStringList.Create;
  try
    list.LoadFromFile(myDir + 'configs\' + 'modules.ini');
    for i:=0 to list.Count-1 do
      if list[i][1]<>';' then
        CheckListBox1.Checked[i]:=true
      else
        CheckListBox1.Checked[i]:=false
  finally
    list.Free;
  end;
end;

[Человек_Борща]

Спасибо, если бы всё было так просто. Прядок в mugules.ini может не совподать с порядком наваний в checklistbox.

По этому я делаю проверку ;+имя из списка checklistbox (код в первом посте).

Я не понимаю в чем причина неработоспособности кода.

Вроде ксе привильно:
Перестчитываем все строки в файле. Далее в каждой строке ищем сроку вида: ;+имя из checlistbox , если нету значит элемен работает(стоит галочка).

Но почему-то данный код не работает. И я ищу причину, либо я что-то не так делаю, либо надо по другому делать. Вопрос как и почему?

[Прик]

Слишком все усложнено.
А проще просканировать список на наличие имени и, если такое есть, то проверить нет ли перед ним нужного символа:

var
  Ts: TStringList;

function ItemsEnabled(s: string): Boolean;
var
  i, n: Integer;
begin
  Result := True;
  for i := 0 to Ts.Count-1 do begin
    n := AnsiPos(s, Ts.Strings[i]);
    if (n > 0) and (Ts.Strings[i][1] = Disabled_prifix) then begin
      Result := False;
      Exit;
    end;
  end;
end;

Проверено, мин нет.
Правда, поправлено - Ts списком заряжается один раз в LoadModulesBtnClick. Чего этот лист трепать каждый раз.

[Человек_Борща]

Спасибо, теперь все работает. Маленькая поправка:

    for i := 0 to Ts.Count - 1 do
    begin
      n := AnsiPos(s, Ts.Strings[i]);
      if (n > 0) and (Ts.Strings[i][1] = Disabled_prifix) then
      begin
        Result := False;
        Exit;
      end else
      Result:=True; //Иначе все элементы отключались(Chacked=false)
    end;

Вопрос решён! Ставлю +

[AlDelta]

procedure TForm1.Button2Click(Sender: TObject);
var
  myDir,str: string;
  list: TStringList;
  i,j: Integer;
begin
  myDir := ExtractFilePath(ParamStr(0));
  list:=TStringList.Create;
  try

    list.LoadFromFile(myDir + 'configs\' + 'modules.ini');
    list.Sort;
    CheckListBox1.Items.Text:=list.Text;

    ModulesList.Items.LoadFromFile(myDir + 'configs\' + 'modules.ini');

    for i:=0 to ModulesList.Count-1 do
      if ModulesList.Items[i][1]=';' then
        Begin
          str:=ModulesList.Items[i];
          delete(str,1,1);
          ModulesList.Items[i]:=str;
        End;

    for i:=0 to list.Count-1 do
      if list[i][1]<>';' then
        for j:=0 to ModulesList.Count-1 do
          Begin
            str:=list[i];
            if str=ModulesList.Items[j] then
              Begin
                ModulesList.Checked[j]:=true;
                break;
              End;
          End;

  finally
    list.Free;
  end;
end;

[Человек_Борща]

Можно и так=)

[Прик]

Спасибо на добром слове. Но наверное, более оптимально поставить Result := True в начале тела функции один раз (как в моем примере), чем присваивать результату значение True на каждой итерации, если условие не срабатывает. Т.е. единожды лучше, чем много раз
У меня то отключались только те элементы, которые должны быть отключены, а не все.
Ну, это так, замечание в порядке оптимизации кода.