.....ora vi faccio vedere la procedura che ho scritto nel main ...utilizzando TRichEdit....

procedure TForm1.Button1Click(Sender: TObject);


type dicom = File;

var name: dicom;

dimensioneDataSet,i:Integer;

begin

OpenDialog.Filter := 'Dicom Images|*.*';
if OpenDialog.Execute then begin

OpenDialog.InitialDir := extractfiledir(OpenDialog.FileName);
Label1.Caption:=OpenDialog.fileName;

AssignFile(name,OpenDialog.fileName);
Reset(name,1); // 1 byte alla volta
try
dicomfile:=Tdicomdata.Create( name ); // crea oggetto dicomfile che contiene array
dimensioneDataSet:=dicomfile.getdatasize; // torna dim. array di record
for i:=0 to (dimensionedataset-1) do
begin
RichEdit1.Lines.Add(dicomfile.getdataDescriptionel ement(i)); // stampa ogni elemento dell'array ( la funzione chiamata da come risultato un'unica stringa con le tre stringhe che compongono record)

end;

finally
closefile(name);
end;



end;


end;

in teoria quindi nell''eseguibile cliccO sul bottone nel form scelgo il file da aprire e dovrei avere come risultato un elenco nella parte out (componente TRichEDit...) il problema è che mi genera quella dannata exception ...anche con quei file che per cui non me la dava se usavo Tmemo al posto di TrICHeDIT...STO FORSE USANDO MALE QUESTO COMPONENTE..