Delphi проблемка

[Sunstrider]

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 красная,как написать чтобы юзер сам указал до какого цикл проходит с меня + сики)

[h(f)ucker]

intTostr - функция перевода целого значения переменной в строковое, а надо наоборот

for i:=1 to StrToInt(Edit1.text) do

[Sunstrider]

label1.caption:=intTostr (s);
как сделать чтобы он выводил сумма =s помоги пожалуйста

[h(f)ucker]

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.




///

[HakaR]

Он какбэ и так выводит сумму "s"...или я что-то не понял.

upd
:o

[Sunstrider]

хакер ответил спасиб ;) изучаю циклы терь думаю авто регер написать

[EndLeSSDre@M]

хакер ответил спасиб ;) изучаю циклы терь думаю авто регер написать
:D :D :D удачного тебе написания)))) если уж ты такие простые вещи не знаешь))) очередной быдло кодер))

[fenixelite]

EndLeSSDre@M +1 :)

Sunstrider, тебе бы сначала хотя бы основы выучить.. а потом уже всякие регеры писать...

[HakaR]

ТС, ты же уже с инди работал, регер акков писал...а щас только начал изучать циклы? :confused:
И в том сорце уже есть циклы :o

[Sunstrider]

там други помогали

[fenixelite]

Sunstrider, запишись на intuit.ru на курс по Delphi. Его за пару дней изучить можно. Как раз все основы там описаны....

[Sunstrider]

там дорого ?)

[fenixelite]

Sunstrider, бесплатно )
http://www.intuit.ru/department/pl/intdelphi/class/free/status/

[Sunstrider]

а там как читаеш видео смотриш или с тобой прям мен сидит и за бесплатно занимается ?)

[fenixelite]

Sunstrider, зайди да посмотри )) изучаешь(читаешь) лекции, сдаешь тесты. Основы там выучить можно

[Sunstrider]

for i:=0 to (html_tag.length-1) do
begin
где тут ошибка фор красным горит

[Sunstrider]

begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='login') then
html_tag.item(i).value:=StrToInt(Edit1.text);

if (html_tag.item(i).name='passw') then
html_tag.item(i).value:=StrToInt(Edit2.text) ;

if (html_tag.item(i).value=' Âîéòè ') then
html_tag.item(i).click;

почему где едит ерор выдает ((

[Ildon]

а int i; есть ?

[Sunstrider]

var
i:integer;
s:string;
html_tag: variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.ite m(0).elements;
for i:=0 to (html_tag.length-1) do
begin
if (html_tag.item(i).name='login') then
html_tag.item(i).value:=varToInt(Edit1.text);

if (html_tag.item(i).name='passw') then
html_tag.item(i).value:=StrToInt(Edit2.text) ;

if (html_tag.item(i).value=' Âîéòè ') then
html_tag.item(i).click;

[Sunstrider]

все решил спасиб забыл эдиты поставить ))