delphi余数判断

for I := 1 to Length(code) - 1 do
  begin
    if (I mod 2 = 0) then//当余数为0时为true，但好象一直没有为真，错在哪里呢?
    begin
      test='';
    end;
  end;

作者: lshfong   发布时间: 2011-08-22

var
  i:integer;
begin
  showmessage(inttostr(Length(code)));
  for I := 1 to Length(code) - 1 do
  begin
    if (I mod 2 = 0) then//当余数为0时为true，但好象一直没有为真，错在哪里呢?
    begin
      showmessage('i='+inttostr(i)+',为真');
    end;
  end;

end;

作者: yqdragon   发布时间: 2011-08-22

作者: m617105   发布时间: 2011-08-22

作者: busterchen   发布时间: 2011-08-22

作者: lshfong   发布时间: 2011-08-22

作者: lhs203203   发布时间: 2011-08-22