while循环是否可以求得循环次数吗? 我读入文本文件用 while not eof(txt) do begin ... inc(J) end; lable.caption:=inttostr(J)求循环次数,不得.请帮助! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 方法没问题啊inc函数是什么啊,不记得有这个函数,你自己写的?用j:=j+1试试 哦,原来两星级的朋友也有不知道 inc 函数的,平衡了。 定一个I,I=I+1,不会不知道吧 ""哦,原来两星级的朋友也有不知道 inc 函数的""两星级???我看啊徒有虚名.水分多多. 给你个例子var LoopTimes: Integer;//声明初始循环begin while not eof(txt) do begin LoopTimes:=LoopTimes+1;//循环次数加一 ... inc(J) end; lable.caption:=inttostr(LoopTimes);//在Label中显示循环次数 lable.caption:=inttostr(J)你确定这句没错吗?!好像Lable控件不可以直接命名位Lable!! 1、j要初始化为0;2、有没跟踪Inc(j),是否根本没运行到这儿。 最后是不是加application.initialize初始化一下试试 有些人真是无聊,我不知道inc函数有什么关系啊居然以此判断我水平有问题我从学BASIC开始接触计算机,到现在超过15年了,我没有太多的爱好,每天平均超过十小时以上用来学习这玩意儿。就算我是个比较笨的人,我想这么多年下来水平也不会太差吧。更何况我的IQ怎么也在120以上吧计算机方向太多,谁都不好说什么东西都会。这么多年来,我学过无数的东西,有的学的好一点,有的学的差一点。东西学多了,你再学新的东西就比较快了,因为新的东西不太可能是全新的,很多基本的东西是相似的。前两年做PB的东西比较多,因为PB在internet方面的应用不是很方便,所以开始用delphi做点东西,我对delphi的认识还靠以前用dos下的turbo pascal的经验和windows下编程的经验。现在来delphi这儿,一方面看看我到底会了多少了,另一方面看看别人的经验。回答问题之前,我特地看了delphi 6的帮助,没看到inc函数,不知道是哪里的问题,是delphi的帮助不好?还是我看错了?我在这一行做了这么多年了,做过各种各样的工作,接触过不少计算机行业的顶尖人才,见得人越多,越是不敢妄自菲薄。我喜欢计算机,我为此付出了我的大部分精力和时间。我想,在这个论坛上的很多人应该都有同感。这个论坛上也许有人通过不正当的手段获取分数,可是这个不成为理由认为所有的人都是通过不正当的手段获取的分数。就因为我对计算机的热爱,我无法忍受极少数人对我的指责。simonzone(小菜) ,你找找我的水份在哪里?告诉大家都知道。如果你是信口乱说的,请你说一句对不起,也请告诉大家都知道。我会通过短消息通知你,也请看到这个贴子的人给他发个短消息让他知道。如果他不来,那我们记住这个胆小鬼。反应强烈了点,对不起大家,希望大家原谅我维护自己的名声的迫切心情。 to : ckc(火) 我收回我所说过的话,同时对你的伤害表示歉意.请允许我说声sorry. 但愿我的道歉能给你带来一丝凉意.(附: delphi6帮助里有这个procedure) to : ckc(火) 如果要证明你的实力, 能不能回答这个问题:http://www.csdn.net/expert/topic/1073/1073646.xml to:simonzone(小菜) 我接收你的道歉。让我们都忘记这个不开心的事情吧。我的delphi 6怎么了,我用inc在帮助中找,只找到include file什么的没有inc这个函数,我尝试用dec去找,也没有找到,是我的delphi有问题还是我找的方法有问题还是delphi的这个函数帮助中没有?我找到菜单上三个帮助项:delphi的帮助、 delphi tool的帮助和windows sdk的帮助,都没有找到。to:shingle(迅恒) 我都说得很清楚了,我也在学习delphi,你的问题我也不会。不过你说得没错,为了证明自己,我想看看你的问题到底是什么。 delphi的帮助 里,敲入inc既可. 不知道你们有没有看过奥莱理的《Delphi 技术手册》,inc内嵌函数是有的;我想钻这个牛角尖好象没什么意思,Inc(x)和x:=x+1在程序中的运行速度到底哪个快,哪个用的指令多,好象区别不大;就象C/C++里的x=x+1和x++,绝对意义上说x++速度是快一点,但在程序中能体现出来吗?除非在 4004、8008机器上运行而且有一个较大的循环。 我读入文本文件用 J := 0; while not eof(txt) do begin ...//用Readln读 inc(J) end; lable.caption:=inttostr(J)求循环次数,不得.请帮助! To: ckc(火) 你和小菜都是因为我的那句话而起,这时不好意思.Sorry!我的本意只是开个玩笑,希望ckc(火) 不要介意。 关于TcpClient和TcpServer的一些问题,请高手们多多指教 线程结束问题 怎么样才能将客户端的‘临时表’送到服务器(MS-SQL) 本人穷,50分跪求一个网址。急!成功立即送分! 用什么实现这样的界面?(菜问题) 數據庫問題!!!!如何知道在DBGRID當中已經選擇了這條記錄。 大家来看看这个建立TStrings的语句怎么错了? 谁来帮帮我,在delphi中怎么调用word,excel等应用程序! 高手大虾们帮忙啊 fast report预览(在线等) 问问杭州程序员的收入。 如何在我的程序中调用别的软件执行一个任务并在我的程序里把结果输出
inc函数是什么啊,不记得有这个函数,你自己写的?
用j:=j+1试试
水分多多.
LoopTimes: Integer;//声明初始循环
begin
while not eof(txt) do
begin
LoopTimes:=LoopTimes+1;//循环次数加一
...
inc(J)
end;
lable.caption:=inttostr(LoopTimes);//在Label中显示循环次数
你确定这句没错吗?!
好像Lable控件不可以直接命名位Lable!!
2、有没跟踪Inc(j),是否根本没运行到这儿。
居然以此判断我水平有问题
我从学BASIC开始接触计算机,到现在超过15年了,我没有太多的爱好,每天平均超过十小时以上用来学习这玩意儿。就算我是个比较笨的人,我想这么多年下来水平也不会太差吧。更何况我的IQ怎么也在120以上吧
计算机方向太多,谁都不好说什么东西都会。这么多年来,我学过无数的东西,有的学的好一点,有的学的差一点。东西学多了,你再学新的东西就比较快了,因为新的东西不太可能是全新的,很多基本的东西是相似的。
前两年做PB的东西比较多,因为PB在internet方面的应用不是很方便,所以开始用delphi做点东西,我对delphi的认识还靠以前用dos下的turbo pascal的经验和windows下编程的经验。现在来delphi这儿,一方面看看我到底会了多少了,另一方面看看别人的经验。
回答问题之前,我特地看了delphi 6的帮助,没看到inc函数,不知道是哪里的问题,是delphi的帮助不好?还是我看错了?
我在这一行做了这么多年了,做过各种各样的工作,接触过不少计算机行业的顶尖人才,见得人越多,越是不敢妄自菲薄。
我喜欢计算机,我为此付出了我的大部分精力和时间。我想,在这个论坛上的很多人应该都有同感。
这个论坛上也许有人通过不正当的手段获取分数,可是这个不成为理由认为所有的人都是通过不正当的手段获取的分数。
就因为我对计算机的热爱,我无法忍受极少数人对我的指责。
simonzone(小菜) ,你找找我的水份在哪里?告诉大家都知道。如果你是信口乱说的,请你说一句对不起,也请告诉大家都知道。我会通过短消息通知你,也请看到这个贴子的人给他发个短消息让他知道。如果他不来,那我们记住这个胆小鬼。
反应强烈了点,对不起大家,希望大家原谅我维护自己的名声的迫切心情。
我收回我所说过的话,同时对你的伤害表示歉意.
请允许我说声sorry. 但愿我的道歉能给你带来一丝凉意.
(附: delphi6帮助里有这个procedure)
我接收你的道歉。
让我们都忘记这个不开心的事情吧。
我的delphi 6怎么了,我用inc在帮助中找,只找到include file什么的
没有inc这个函数,我尝试用dec去找,也没有找到,是我的delphi有问题还是我找的方法有问题还是delphi的这个函数帮助中没有?
我找到菜单上三个帮助项:delphi的帮助、 delphi tool的帮助和windows sdk的帮助,都没有找到。to:shingle(迅恒)
我都说得很清楚了,我也在学习delphi,你的问题我也不会。
不过你说得没错,为了证明自己,我想看看你的问题到底是什么。
J := 0;
while not eof(txt) do
begin
...//用Readln读
inc(J)
end;
lable.caption:=inttostr(J)
求循环次数,不得.
请帮助!
我的本意只是开个玩笑,希望ckc(火) 不要介意。