ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
16.04.2010, 17:33
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
Провел на форуме:
475927
Репутация:
12
|
|
Delphi проблемка
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
for i:=1 to intTostr (Edit1.text) do
begin
s:=s+i;
label1.caption:=intTostr (s);
end;
end;
end.
пиплы строчка
for i:=1 to intTostr (Edit1.text) do красная,как написать чтобы юзер сам указал до какого цикл проходит с меня + сики) |
|
|
16.04.2010, 17:36
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808
Репутация:
185
|
|
intTostr - функция перевода целого значения переменной в строковое, а надо наоборот
Код:
for i:=1 to StrToInt(Edit1.text) do
|
|
|
|
16.04.2010, 18:06
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
Провел на форуме:
475927
Репутация:
12
|
|
label1.caption:=intTostr (s);
как сделать чтобы он выводил сумма =s помоги пожалуйста
|
|
|
|
16.04.2010, 18:08
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808
Репутация:
185
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
for i:=1 to StrToInt (Edit1.text) do
begin
s:=s+i;
end;
label1.caption:='сумма = ' + intTostr (s);
end;
end.
///
|
|
|
|
16.04.2010, 18:10
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Он какбэ и так выводит сумму "s"...или я что-то не понял.
upd
 |
|
|
|
16.04.2010, 18:10
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
Провел на форуме:
475927
Репутация:
12
|
|
хакер ответил спасиб  изучаю циклы терь думаю авто регер написать |
|
|
|
16.04.2010, 18:32
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Sunstrider
хакер ответил спасиб изучаю циклы терь думаю авто регер написать  удачного тебе написания)))) если уж ты такие простые вещи не знаешь))) очередной быдло кодер))
|
|
|
|
16.04.2010, 18:38
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
EndLeSSDre@M +1 
Sunstrider, тебе бы сначала хотя бы основы выучить.. а потом уже всякие регеры писать... |
|
|
|
16.04.2010, 18:39
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
ТС, ты же уже с инди работал, регер акков писал...а щас только начал изучать циклы? 
И в том сорце уже есть циклы
Последний раз редактировалось HakaR; 16.04.2010 в 18:41..
|
|
|
|
16.04.2010, 18:55
|
|
Banned
Регистрация: 09.04.2010
Сообщений: 181
Провел на форуме:
475927
Репутация:
12
|
|
там други помогали
|
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Delphi - язык или среда?
|
Seravin |
Болталка |
12 |
28.03.2010 01:46 |
|
Литература Delphi
|
Sams |
С/С++, C#, Delphi, .NET, Asm |
2 |
19.03.2010 19:46 |
|
Проблемка с созданиям компонента Delphi
|
Samivan |
С/С++, C#, Delphi, .NET, Asm |
2 |
15.11.2009 12:57 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
