本人用DELPHI这两天忽然遇到了一个问题,请帮我分析一下.
一个窗体,一个按钮,并声明了一个数组和一个函数:
type
sz=array[1..7,1..7] of string;
function cs(l:sz):integer;
在按钮的CLICK中:
var
i,j:integer;
f:integer;
begin
i:=1;
j:=1;
for i:=1 to 7 do
if (i>2) and (i<6) then
for j:=1 to 7 do
a[i,j]:='T'
..............
F:=CS(A);
..............
好象程序开始的赋值语句没执行?? 不知WHY???
但程序运行开始时,i默认为1,WHY???
函数代码:
function TForm1.cs(l: sz): integer;
var
m,n:integer;
begin RESULT:=0;
m:=1;
n:=1;
for m:=1 to 6 do
for n:=1 to 6 do
BEGIN
......
RESULT:=RESULT+1;
在此函数中我想M,N从1开始循环,但我发现我写的赋值语句根本不执行,
而且我跟踪发现M,N是从6开始的,WHY???
谁可以告诉我 这到底是WHY????
一个窗体,一个按钮,并声明了一个数组和一个函数:
type
sz=array[1..7,1..7] of string;
function cs(l:sz):integer;
在按钮的CLICK中:
var
i,j:integer;
f:integer;
begin
i:=1;
j:=1;
for i:=1 to 7 do
if (i>2) and (i<6) then
for j:=1 to 7 do
a[i,j]:='T'
..............
F:=CS(A);
..............
好象程序开始的赋值语句没执行?? 不知WHY???
但程序运行开始时,i默认为1,WHY???
函数代码:
function TForm1.cs(l: sz): integer;
var
m,n:integer;
begin RESULT:=0;
m:=1;
n:=1;
for m:=1 to 6 do
for n:=1 to 6 do
BEGIN
......
RESULT:=RESULT+1;
在此函数中我想M,N从1开始循环,但我发现我写的赋值语句根本不执行,
而且我跟踪发现M,N是从6开始的,WHY???
谁可以告诉我 这到底是WHY????
解决方案 »
- 如何获得tspeedbutton按钮的句柄;
- 关于对Excel操作的问题。急!!!
- quickreport的输出问题
- 关于单引号的sql语句怎么写
- 这句代码为什么错了,我不太明白它的含义,
- access表中与GRID显示的问题
- 哪位仁兄有李维《delphi分布式电子商务》的源码,给俺发一分,100全给!!
- DBGrid控件的OnColExit事件如何判断是从那一列(字段fields)失去焦点的
- 请问一下,李维的书哪儿可以下,还有那本《 Delphi 5开发人员指南 》,先谢了
- 哪位兄台有Open Tools API的比较详细的资料?先在此谢过!
- 如何设置DBGrid的行高
- 关于思路,高分求教!分数不够在添
不信你用ShowMessage(IntToStr(n))看看,就知道当前循环时n/m的值了!这是Pascal语法对循环值赋值当然是没用的!