Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi проблемка (https://forum.antichat.xyz/showthread.php?t=196723)

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

h(f)ucker 16.04.2010 17:36
intTostr - функция перевода целого значения переменной в строковое, а надо наоборот

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

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

h(f)ucker 16.04.2010 18:08
Цитата:
Код:
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 16.04.2010 18:10
Он какбэ и так выводит сумму "s"...или я что-то не понял.

upd
:o

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

EndLeSSDre@M 16.04.2010 18:32
Цитата:
Сообщение от Sunstrider
хакер ответил спасиб ;) изучаю циклы терь думаю авто регер написать
:D :D :D удачного тебе написания)))) если уж ты такие простые вещи не знаешь))) очередной быдло кодер))

fenixelite 16.04.2010 18:38
EndLeSSDre@M +1 :)

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

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

Sunstrider 16.04.2010 18:55
там други помогали

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

Sunstrider 16.04.2010 20:02
там дорого ?)

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

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

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

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

Sunstrider 16.04.2010 21:52
Цитата:
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 16.04.2010 21:52
а int i; есть ?

Sunstrider 16.04.2010 21:53
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 16.04.2010 21:55
все решил спасиб забыл эдиты поставить ))


Время: 00:54