首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

小女子~求高手教delphi编一个小程序~

2012-05-28 
小女子求助~求高手教delphi编一个小程序~~选课选了delphi ,但是都没怎么听课期末要交报告了 昨晚研究了很

小女子求助~求高手教delphi编一个小程序~~
选课选了delphi ,但是都没怎么听课
期末要交报告了 昨晚研究了很久,各种程序出错无法运行很是头大啊!
虽然有c语言和fortran的基础,但看老师给的课件很多处还是看不懂
不需要高手替写报告,只要教我稍微入门一下就好
是要做一个关于气象台站的查询软件,有.dat的资料但是不知道如何读入
更不知道应该如何才能进行台站的查询
本来想老师给的范本的界面的
但是不能发图
万分感谢各位大神啊
QQ:345052069
好心人帮帮我
最近忙着给老师翻译论文刚刚word死掉还无法恢复文档导致一整天翻译的东西都没了
心情各种down 
希望有个高手能抽空帮帮我啦!

[解决办法]
很简单的东西
不过要先知道你的dat内容格式,才知道怎么取数据
[解决办法]
看不到楼主的图片,猜测一下
.dat文件应该是个记录文件吧?
如果你知道它的格式,可以定义一个与之相对应的记录来读取数据,
我以前做的一个读取老版钱龙股票日线数据的,当时我也不知道格式,
只是用UltraEdit打开它的文件,一个个猜测它的十六进制表示的意义,
最后终于读出来,并用canvas画出K线图。

type
Tfile = record //钱龙
xx01 : integer; // 日期
xx02 : integer; // 开盘
xx03 : integer; // 最高
xx04 : integer; // 最低
xx05 : integer; // 收盘
xx06 : integer; // 金额
xx07 : integer; // 量
xx08 : integer; // 笔数
xx09 : shortint; // 面额
xx10 : shortint; // 拆股数
xx11 : smallint; // 权息值
xx12 : integer; // 总股本
end;
然后用read函数将内容读取取来即可

 for i:=count downto 1 do
begin
read(f3,st);
aa[i,1]:=st.xx01;
aa[i,2]:=st.xx02;
aa[i,3]:=st.xx03;
aa[i,4]:=st.xx04;
aa[i,5]:=st.xx05;
aa[i,6]:=st.xx06;
aa[i,7]:=st.xx07;
aa[i,8]:=st.xx08;
aa[i,9]:=st.xx09;
aa[i,10]:=st.xx10;
aa[i,11]:=st.xx11;
aa[i,12]:=st.xx12;
 end; { end for }

大致是这样吧,希望对楼主有用!

还有楼主现在学校设Delphi吗?我当年可只能学Pascal哦,那时觉得学foxpro2.5的很牛哦~
[解决办法]
小程序的话DELPHI+ACCESS
大程序的话DELPHI+MSSQL

热点排行