Student = Record
FirstName, LastName: string[20];
PhoneNumber: string[15];
PostCode: Integer;
Birthday: TDate;
Image :TImage;
end;
var
begin
Student.Image.LoadFromFile()
end;
FirstName, LastName: string[20];
PhoneNumber: string[15];
PostCode: Integer;
Birthday: TDate;
Image :TImage;
end;
var
begin
Student.Image.LoadFromFile()
end;
student.Image.LoadFromFile('YourImageFile.bmp');别忘了用完后要student.Image.Free;
student.Image.LoadFromFile('YourImageFile.bmp');别忘了用完后要student.Image.Free;
##里面应该用什么参数;
P:Student;
begin
new(P);
P.imageImage:=TImage.Create;
p.Image.LoadFromFile('YourImageFile.bmp');
var
Img: TImage;
begin
Img := TImage.Create;
student.Image := Img;
end;