Question

关于pascal语言中record的使用

program P1;
var
a:array[1..10,1..20] of char;
i,j,g,nmaxf,f,m,nmaxm:integer;x, bm,bf,mmax,fmax,maxm,maxf:real;
begin
assign(input,'diyici.inp');
reset(input);
assign(output,'di1ci.out');
rewrite(output);
m:=0;
f:=0;
bm:=0;
bf:=0;
for i:=1 to 10 do
begin
for j:=1 to 20 do
begin
read(a[i,j]);
write(a[i,j]);
end;
x:=0;
for g:=1 to 4 do
x:=x+ord(A[i,g+16])-48;
x:=x/4;
if a[i,14]='m'
then
begin
if m=0
then
begin
mmax:=x;
nmaxm:=i;
end
else
if x>mmax
then
begin
mmax:=x;
nmaxm:=i;
end;
bm:=bm+x;
m:=m+1;
end
else
begin
if f=0
then
begin
fmax:=x;
nmaxf:=i;
end
else
if x>fmax
then
begin
fmax:=x;
nmaxf:=i;
end;
bf:=bf+x;
f:=f+1
end;
readln;
writeln;
end;
bm:=bm/m;
bf:=bf/f;
writeln;
for j:=1 to 12 do
write(a[nmaxm,j]);
for j:=17 to 20 do
write(a[nmaxm,j]);
write('sr.bal',mmax:7:2);
for j:=1 to 12 do
write(a[nmaxf,j]);
for j:=17 to 20 do
write(a[nmaxf,j]);
writeln('sr.bal',fmax:7:2);
writeln('Obshiy sredniy ball muzhchin raven ',bm:7:2);
writeln('Obshiy sredniy ball zhenshin raven ',bf:7:2);
close(input);
close(output);
end.
这是个普通程序，如何用record来改变一下，使其依然能运行
在线等 拜托了 大侠们

Answer 1

怎么用程序将record记录集添入datagrid? 华软论坛 2001-09-04 16:10:08 在 VB / 基础类 提问
因为datagrid已经定义好样式，所以要用程序有选择的将rs中的记录添入datagrid中，谢谢 问题点数：50、回复次数：5

1 楼 回复于 2001-09-04 16:19:20 得分 0
set datagrid.datasource=rs

2 楼 回复于 2001-09-04 16:29:21 得分 0
大哥50分不是这么简单的啦

是有选择的啊，比如 datagrid1.xxx=rs.fields(a)
之类的外面再套个 do while not rs.eof
.........
loop
的循环啦

3 楼 回复于 2001-09-04 16:30:44 得分 50
在DATAGRID的属性对话框的第三个选项页中数据字段填入数据库中相应的字段名称，然后再加上绑定的话：set datagrid1.datasource=rs.

4 楼 回复于 2001-09-04 16:40:17 得分 0
用ado控件多好，费那劲干什么？

5 楼 回复于 2001-09-04 16:45:56 得分 0
追求美观，呵呵。

欢迎转载，但请保留出处，本文章转自[华软网] 原文链接：http://www.huarw.com/program/bbs/VB/200109/407317.html

Answer 2

又不说清楚用记录改什么，而且这种程序根本没必要用记录