Seleccionar un item en FileListBox desde codigo

[Anel Hernandez]

yo no puse el procedimiento, puse directamente:FLB.FileName := FLB.Items[Inx]

y no entra al onchange

[ecfisa]

Empezado por Anel Hernandez

yo no puse el procedimiento, puse directamente:FLB.FileName := FLB.Items[Inx]

y no entra al onchange

Hola.

Un ejemplo en forma directa:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Inx: Integer;
begin
  Inx := 5;
  with FileListBox1 do
    FileName := Items[Inx];
end;

De este modo también dispara el evento OnChange del TFileListBox sin problemas.

Saludos.

[Anel Hernandez]

lo acabo de poner aparte en un boton y si levanta el onchange.

el mio, lo tengo en un procedimiento aparte que añado, a continuacion, a ver si me dicen por que no lo levanta:

Código Delphi [-]
procedure inidir;
var
 s:string;
 i,j:byte;
begin
 TotalCheck:=0;i:=0;
 IF NOT FileExists(extractfiledir(application.exename)+'\inidir.ini') THEN exit;
 assign(fichero,extractfiledir(application.exename)+'\inidir.ini');RESET(FICHERO);
 readln(fichero,s);form1.radiogroup1.itemindex:=strtoint(s);
 readln(fichero,s);form1.CheckBox1.Checked:=StrToBool(s);
 readln(fichero,s);form1.CheckBox2.Checked:=StrToBool(s);
 readln(fichero,dirE);
 readln(fichero,dirt);
 readln(fichero,dirM);form1.edit4.text:=dirM;
 readln(fichero,s);form1.FileListBox1.ItemIndex:=strtoint(s);
 form1.FileListBox1.FileName := form1.FileListBox1.Items[form1.FileListBox1.ItemIndex];
 readln(fichero,s);
 repeat
  form1.CheckListBox1.Items.Add(copy(s,3,length(s)));
  if strtoint(copy(s,0,1))=1 then BEGIN
   form1.CheckListBox1.Checked[form1.CheckListBox1.count-1]:=true;
   Inc(TotalCheck);
  END;
 readln(fichero,s);
 until pos(':',s)=0;
 while not eof(fichero) do begin
  form1.CheckListBox2.Checked[i]:=StrToBool(s);inc(i);
  readln(fichero,s);
 end;
 close(fichero);
 form1.statusbar1.Panels[3].Text:=inttostr(TotalCheck)+'/'+inttostr(form1.CheckListBox1.Count);
 form1.edit1.text:=dirE;
 form1.edit2.text:=dirT;
end;

gracias

[ecfisa]

Hola.

Pareciera que el problema es el valor que lee del archivo 'fichero' en la variable 's' cosa que sin el archivo no es posible asegurar.

Modifiqué un poco el código (en negrita) sin alterar el funcionamiento original para que visualice el valor de 's' y puedas evaluarlo:

Código Delphi [-]
procedure inidir;
var
 s:string;
 i,j:byte;
 Inx: Integer;
begin
  TotalCheck:=0;i:=0;
  IF NOT FileExists(extractfiledir(application.exename)+'\inidir.ini') THEN exit;
  assign(fichero,extractfiledir(application.exename)+'\inidir.ini');
  Reset(FICHERO);
  readln(fichero,s);
  with Form1 do
  begin
    radiogroup1.itemindex:= strtoint(s);
    readln(fichero,s);
    CheckBox1.Checked:= StrToBool(s);
    readln(fichero,s);
    CheckBox2.Checked:= StrToBool(s);
    readln(fichero,dirE);
    readln(fichero,dirt);
    readln(fichero,dirM);
    edit4.text:= dirM;
    readln(fichero,s);
    Inx := StrToInt(s);
    ShowMessage('Valor del indice: ', IntToStr(Inx));
    FileListBox1.FileName := FileListBox1.Items[Inx]; // o sólo: FileListBox1.FileName := FileListBox1.Items[StrToInt(s)];
    readln(fichero,s);  
    repeat
      CheckListBox1.Items.Add(copy(s,3,length(s)));
      if strtoint(copy(s,0,1))=1 then
      begin
        CheckListBox1.Checked[CheckListBox1.count-1]:=true;
        Inc(TotalCheck);
      end;
      readln(fichero,s);
    until pos(':',s)=0;
    while not eof(fichero) do
    begin
      CheckListBox2.Checked[i]:= StrToBool(s);
      inc(i);
      readln(fichero,s);
    end;
    close(fichero);
    statusbar1.Panels[3].Text:= inttostr(TotalCheck)+'/'+inttostr(CheckListBox1.Count);
    edit1.text:=dirE;
    edit2.text:=dirT;
  end;
end;

Si funciona, sólo elimina la línea del ShowMessage.

Saludos.

[Anel Hernandez]

No, el valor s que lee esta bien.

parece que hay otro problema.

en este ejemplo que me sugieres da error en Close(fichero); dice que "too many actual parameters".

al final resolvi poniendo la sentencia

Código Delphi [-]
FileListBox1.FileName := FileListBox1.Items[Inx];

fuera, en un procedimiento de Tform1.Mil gracias

[ecfisa]

Empezado por Anel Hernandez

No, el valor s que lee esta bien.

parece que hay otro problema.

en este ejemplo que me sugieres da error en Close(fichero); dice que "too many actual parameters".

Pero ese error te lo debería estar dando anteriormente, ya que no toqué para nada esa parte de tu código.
Por otro lado no tiene relación con tu planteo inicial, como te mencioné antes, solo cambié las líneas que figuran en negrita.

Saludos.

[Anel Hernandez]

Y ademas pusiste lo de With Tform1 do.

al ponerlo asi da ese error, con la llamada a las propiedades de cada objeto poniendo la ruta completa uno por uno, form1.objeto.propiedad, no da ese error.

ese error aparece al poner el with.

saludos