如何指定循环次数

Question

如何指定循环次数
循环N遍后在继续忘下执行代码如何把MOME的第一行设置变量成某个字母

Answer 1

循环找到你想要的结果后就break

Answer 2

for i:=0 to 9 do begin  //循环10次end;

Answer 3

for i:=1 to NUmber do
begin
  if i=n then
   break;
end;

Answer 4

for i:=1 to NUmber do 
begin 
  if i=n then 
  break; 
end;

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to 100 do
  begin
    if i = 10 then
    begin
      Memo1.Lines.Delete(0);
      Memo1.Lines.Insert(0, 'A');
      break;
    end;
  end;
  ShowMessage(IntToStr(i));
end;

Answer 6

for 然后嵌入if 是这样的。

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  Temp: Integer;
begin
  for Temp:=0 to 2000 do   //2000即为循环次数
  begin
    if i=200 then          //条件满足跳出 
    begin
      break;               
    end;
  end;
  ShowMessage(IntToStr(Temp));
end;
Memo1.Lines.Clear;
Memo1.Lines.Add('Test');

Answer 8

如何把MEMO的第一行设置变量成某个字母

Answer 9

for i=0 to memo1.line.count-1 do

Answer 10

7楼的答案中有了呀Memo1.Lines.Delete(0);
Memo1.Lines.Insert(0, 'A');

Answer 11

郁闷拉,
我的意思是
比如MEMO中第一行为11111
我想把I:= MEMO中第一行

Answer 12

还有个问题就是如何删除MEMO的第一行,第2行就成了第1行

Answer 13

用一个stringlist先加载memo.text，然后再进行处理，处理后将其再赋给memomemo1.Lines.Delete(0);  删除一行

Answer 14

code=Delphi(Pascal)]var
  S: string;
begin
  S := Memo1.Lines[0];
  ShowMessage(S);
  Memo1.Lines.Delete(0);
end;[[/code]