Abrir archivos con OpenDialog

[ecfisa]

Hola radenf.

En realidad no son errores, son advertencias.

• La primera indica que ese símbolo está atado a funcionar bajo W32, si queremos hacer como el avestruz y que no muestre la advertencia, basta con reemplazar faArchive por el número 32.
• La segunda es un residuo de cuando evaluaba si quedaba más legible asignar la larga línea de composición del nombre a una cadena... podes borrar la variable sin problema.

En cuanto al mensaje de error es extraño... No se produjo en ninguna de las pruebas que hice, lógicamente como no poseo el componente CnsDMTable1, probé con otros tipos de archivos.

Hace la siguiente prueba para ver si los nombres de archivos de la carpeta "C:\Users\IV\Documents\Proyectos Delphi 2007\Proyecto Dicom Viewer" son cargados correctamente:

Código Delphi [-]
procedure GetFileNames(Path: string; TS: TStrings);
var
  sr: TSearchRec;
begin
  if FindFirst(ExtractFilePath(Path)+'*'+ExtractFileExt(Path),32,sr) = 0 then
    repeat
      TS.Add(sr.Name);
    until FindNext(sr) <> 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with OpenDialog1 do
    if Execute then
    begin
      GetFileNames(FileName, Files);
      for i:= 0 to Files.Count-1 do
        ListBox1.Items.Add(Files[i]);  // agrega un ListBox y cambia por esta línea
    end;
end;

Saludos.