Показать сообщение отдельно
  #2  
Старый 24.01.2012, 12:13
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Код:
var
  i: integer;
begin
  for i := 1 to 100 do
    if i mod 3 = 0  then
      ListBox1.Items.Add(IntToStr(i));
end;
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием