Delphi проблемка

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Sunstrider, 16 Apr 2010.

  1. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    Code:
    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 красная,как написать чтобы юзер сам указал до какого цикл проходит с меня + сики)
     
    #1 Sunstrider, 16 Apr 2010
  2. h(f)ucker

    h(f)ucker Member

    Joined:
    11 Jul 2009
    Messages:
    81
    Likes Received:
    84
    Reputations:
    32
    intTostr - функция перевода целого значения переменной в строковое, а надо наоборот

    Code:
     for i:=1 to StrToInt(Edit1.text) do
     
    #2 h(f)ucker, 16 Apr 2010
  3. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    label1.caption:=intTostr (s);
    как сделать чтобы он выводил сумма =s помоги пожалуйста
     
    #3 Sunstrider, 16 Apr 2010
  4. h(f)ucker

    h(f)ucker Member

    Joined:
    11 Jul 2009
    Messages:
    81
    Likes Received:
    84
    Reputations:
    32
    ///
     
    #4 h(f)ucker, 16 Apr 2010
  5. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    Он какбэ и так выводит сумму "s"...или я что-то не понял.

    upd
    :eek:
     
    #5 HakaR, 16 Apr 2010
  6. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    хакер ответил спасиб ;) изучаю циклы терь думаю авто регер написать
     
    #6 Sunstrider, 16 Apr 2010
  7. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    :D :D :D удачного тебе написания)))) если уж ты такие простые вещи не знаешь))) очередной быдло кодер))
     
    #7 EndLeSSDre@M, 16 Apr 2010
    1 person likes this.
  8. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    EndLeSSDre@M +1 :)

    Sunstrider, тебе бы сначала хотя бы основы выучить.. а потом уже всякие регеры писать...
     
    #8 fenixelite, 16 Apr 2010
  9. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    ТС, ты же уже с инди работал, регер акков писал...а щас только начал изучать циклы? :confused:
    И в том сорце уже есть циклы :eek:
     
    #9 HakaR, 16 Apr 2010
    Last edited: 16 Apr 2010
  10. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    там други помогали
     
    #10 Sunstrider, 16 Apr 2010
  11. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Sunstrider, запишись на intuit.ru на курс по Delphi. Его за пару дней изучить можно. Как раз все основы там описаны....
     
    #11 fenixelite, 16 Apr 2010
  12. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    там дорого ?)
     
    #12 Sunstrider, 16 Apr 2010
  13. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Sunstrider, бесплатно )
    http://www.intuit.ru/department/pl/intdelphi/class/free/status/
     
    #13 fenixelite, 16 Apr 2010
  14. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    а там как читаеш видео смотриш или с тобой прям мен сидит и за бесплатно занимается ?)
     
    #14 Sunstrider, 16 Apr 2010
  15. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Sunstrider, зайди да посмотри )) изучаешь(читаешь) лекции, сдаешь тесты. Основы там выучить можно
     
    #15 fenixelite, 16 Apr 2010
  16. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    for i:=0 to (html_tag.length-1) do
    begin
    где тут ошибка фор красным горит
     
    #16 Sunstrider, 16 Apr 2010
  17. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    почему где едит ерор выдает ((
     
    #17 Sunstrider, 16 Apr 2010
  18. Ildon

    Ildon Member

    Joined:
    13 Apr 2010
    Messages:
    43
    Likes Received:
    11
    Reputations:
    -10
    а int i; есть ?
     
    #18 Ildon, 16 Apr 2010
  19. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    var
    i:integer;
    s:string;
    html_tag: variant;
    begin
    html_tag:=WebBrowser1.OleObject.Document.forms.item(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;
     
    #19 Sunstrider, 16 Apr 2010
  20. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    все решил спасиб забыл эдиты поставить ))
     
    #20 Sunstrider, 16 Apr 2010
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.