Emergency!!!!!! Beset by this code for a long time, do not understand, I am just learning to become a college students

CodePudding user response:

Tinformation=record
PatientID,
PatientName
PatientBirthDate,
PatientSex,
StudyID,
StudyDate,
StudyTime,
InstitutionName,
Manufacturer,
NumerOfFrames: String
end;
.

Var
Information: TInformation;

.
Procedure LoadFileInformation (FileName: String);
Var
Ds: TDComFileClass;
The begin
Ds:=dcom. The read_file (FileName);
Information... :=ds... ;
end;
end;