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]); end;
end;
Saludos.