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

Question

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

Answer 1

很简单的东西
不过要先知道你的dat内容格式,才知道怎么取数据

Answer 2

看不到楼主的图片，猜测一下
.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的很牛哦~

Answer 3

54398 4007 11638 39.5 6 1 顺义
54399 3959 11617 46.3 6 1 海淀
54406 4027 11558 489.0 6 1 延庆
这是dat的格式，第一个是台站号 然后是纬度 经度 和海拔 6 1 可以忽略 最后是台站名
恩大概的代码什么的能说说吗？
procedure TForm1.OpenTxtFile(FileName, sMark: String;);
Var
  sData,sLine:String;
  iRow,iCol,i,j:integer;
  tInF:TextFile;
 begin
    iCol:=0;
    icolMax:=0;
    AssignFile(tInF,FileName)  ;
    Reset(tInF);  While not Eof(tInF) Do
  Begin
    Readln(tInF,sLine);
    sLine:=sLine+sMark;
    sData := '';
    iCol:=0;
   For j:=0 to length(sLine) do
    begin
      if (sLine[j] <> sMark)  then
        sData := sData + sLine[j]
      Else IF  (sData<>sMark) then//and (sData<>'') then
           Inc(iCol);
       sData := '' ;
      end;
   end;
End;这是老师上课给的代码，但是TForm1.OpenTxtFile 是不是一个无效的命令啊，反正昨天试了没法运行
哎反正完全不懂，求高手教导啊~

Answer 4

小程序的话DELPHI＋ACCESS
大程序的话DELPHI＋MSSQL

Answer 5

如果你不确定的，你就全部定义成“字符型变量”，结构如下：
type TxxClass   = ^TmyxxClass;
     TmyxxClass = record
     Txxa:string[255];
     Txxb:string[255];
     Txxc:string[255];
     Txxd:string[255];
     Txxe:string[255];
     Txxf:string[255];
     Txxg:string[255];end;