我现在在作课程设计,要求不要用数据库编写一个学生管理系统(纯文件类型的)
可是在显示的时候出了问题,我不知道怎样把一条记录显示在对应的StringGrid中,请高手帮忙
我在记事本里是这样些的信息:
01234 李四 20 男 湖南 80 80 80 70
对应的分别是学号 姓名 年龄 性别 籍贯 各科成绩
中间有空格
大家怎么让它显示都说一下
分数可以加!
可是在显示的时候出了问题,我不知道怎样把一条记录显示在对应的StringGrid中,请高手帮忙
我在记事本里是这样些的信息:
01234 李四 20 男 湖南 80 80 80 70
对应的分别是学号 姓名 年龄 性别 籍贯 各科成绩
中间有空格
大家怎么让它显示都说一下
分数可以加!
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;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
ARow.Delimiter := #32;
这是什么意思?
还有定义AROW干什么?
老大
程序执行到这里就抱错
说是I/O错误
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
这里定义ARow是TStrings类型,即字符串列表,在这里是用来保存你文档里的字符传,如:'01234' '李四' '20'以便于将其显示在StringGrid里面;
ARow.Delimiter := #32; 这里是指定分隔符为空格(#32代表空格),即以空格为分隔符来从文本中提取字符串,楼主明白了吗??如果你的文本不是以空格为分隔符的,那就要改变#32为代表分隔符的字符。