我现在在作课程设计,要求不要用数据库编写一个学生管理系统(纯文件类型的)
可是在显示的时候出了问题,我不知道怎样把一条记录显示在对应的StringGrid中,请高手帮忙
我在记事本里是这样些的信息:
01234 李四 20 男 湖南 80 80 80 70 
对应的分别是学号 姓名 年龄 性别 籍贯 各科成绩
中间有空格
大家怎么让它显示都说一下
分数可以加!

解决方案 »

  1.   

    var
      Strs, ARow: TStrings;
      I: Integer;
    begin
      Strs := TStringList.Create;
      ARow := TStringList.Create;
      Strs.LoadFromFile('C:\Documents and Settings\Administrator\桌面\zpy.sql');
      ARow.Delimiter := #32;  StringGrid1.RowCount := Strs.Count;
      for I := 0 to Strs.Count-1 do with StringGrid1 do
      begin
        ARow.DelimitedText := Strs[I];
        if ARow.Count > ColCount then
          ColCount := ARow.Count;
        Rows[I].Assign(ARow);
      end;
      Strs.Free;
      ARow.Free;
    end;————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    那请问
    ARow.Delimiter := #32;
    这是什么意思?
    还有定义AROW干什么?
      

  3.   

    ARow.Delimiter := #32;
    老大
    程序执行到这里就抱错
    说是I/O错误
      

  4.   

    简直晕倒,要将‘c:\Documents and Settings\Administrator\桌面\zpy.sql'换成你的文件的实际路径啊————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  5.   

    老大写的程序没有错,运行正常;
    这里定义ARow是TStrings类型,即字符串列表,在这里是用来保存你文档里的字符传,如:'01234' '李四' '20'以便于将其显示在StringGrid里面;
    ARow.Delimiter := #32; 这里是指定分隔符为空格(#32代表空格),即以空格为分隔符来从文本中提取字符串,楼主明白了吗??如果你的文本不是以空格为分隔符的,那就要改变#32为代表分隔符的字符。