 |
|
26.05.2010, 20:59
|
|
Постоянный
Регистрация: 02.11.2009
Сообщений: 341
С нами:
8696259
Репутация:
65
|
|
Ага всем спасибо большое) что-то я затупил с изучением поскаля)
Первая моя задача по паскалю закончилась)
Вдруг кому нужно будет
program chetnie; var i,s:integer; begin s:=1; for i:=1 to 10 do begin if i mod 2 = 0 then s:=s*i; end; writeln('Произведение первых 5-ти ЧЁТНЫХ чисел равно ',s); end.
|
|
|
27.05.2010, 00:33
|
|
Познающий
Регистрация: 11.11.2008
Сообщений: 72
С нами:
9208607
Репутация:
0
|
|
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
|
|
|
|
27.05.2010, 17:03
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
Сообщение от cel
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
это где у них такое?
|
|
|
|
27.05.2010, 17:03
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
С нами:
9162683
Репутация:
175
|
|
Сообщение от cel
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
Код:
Image.Parent := Edit;
Image.Left := 0;
Image.Top := 0;
|
|
|
|
28.05.2010, 00:04
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
С нами:
8582520
Репутация:
6
|
|
Сообщение от heretic1990
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
Что у тебя там не получилось? Кинь код, у меня все работает.
|
|
|
|
28.05.2010, 01:16
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
Сообщение от heretic1990
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.tag:=Timer1.tag+1;
Form1.caption:=IntToStr(Timer1.tag);
end;
|
|
|
|
28.05.2010, 01:41
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
С нами:
8582520
Репутация:
6
|
|
Мсье знает толк в извращениях  |
|
|
|
29.05.2010, 16:53
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
090808, большое спасибо! то что надо!
|
|
|
|
30.05.2010, 15:39
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами:
10892546
Репутация:
2274
|
|
Delphi
Как называется такая штука и как её сделать
Я думал "Всплывающая подсказка" но нет  |
|
|
|
30.05.2010, 16:00
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
с помощью CoolTrayIcon можно наподобие этого сделать.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
