1个回答
展开全部
添加一个openDialog组件
var rmFilestream:Tfilestream;
xuanzewenjian:string;
MemSize:integer;
begin
if (openDialog1.Execute) and (openDialog1.FileName<>'') then
begin
xuanzewenjian:=OpenDialog1.FileName;//获取文件名称及完整路径
rmFilestream:=TFileStream.Create(xuanzewenjian,fmopenRead);
rmFilestream.Position:=0;
MemSize:= rmFilestream.Size;//获取文件大小
showmessage(inttostr(memsize));
end;
end;
var rmFilestream:Tfilestream;
xuanzewenjian:string;
MemSize:integer;
begin
if (openDialog1.Execute) and (openDialog1.FileName<>'') then
begin
xuanzewenjian:=OpenDialog1.FileName;//获取文件名称及完整路径
rmFilestream:=TFileStream.Create(xuanzewenjian,fmopenRead);
rmFilestream.Position:=0;
MemSize:= rmFilestream.Size;//获取文件大小
showmessage(inttostr(memsize));
end;
end;
追问
怎么添加一个openDialog组件啊,我是菜鸟,高手指教,谢谢
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询