Hola,
haber si alguien me puede explicar porque este codigo, despues de correr, me indica "indice incorrecto". Este el el codigo:
Código:
var
Cadena : String;
J, I : Integer;
begin
OpenDialog1.Title := 'Borrar dia ...';
If OpenDialog1.Execute Then
begin
I := Pos(',',OpenDialog1.FileName) - 3;
Cadena := Copy(OpenDialog1.FileName,I,20);
Label2.Caption := Cadena;
If MessageDlg('Estas a punto de borrar un dia, ¡estas seguro!',mtConfirmation,
[mbYes,mbNo],0) = IdYes Then
For J := 0 To TreeView1.Items.Count - 1 Do
If (Cadena = TreeView1.Items[J].Text) Then
Begin
DeleteFile(OpenDialog1.FileName);
TreeView1.Items[J].Selected := True;
TreeView1.Selected.Delete;
MessageDlg('El archivo ha sido borrado con exito',mtInformation,[mbOk],0)
End;
end;
end;
Exactamente, me corre el codigo perfectamente, pero cuando acaba y borro el archivo deseado me indica "Incorrecto indice", y me indica esta sentencia If (Cadena = TreeView1.Items[J].Text) Then.
Alguien me puede explicar porque, porque no lo entiendo, gracias de antemano