Delphi вывод в memo

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Kimimaru, 9 Aug 2011.

  1. Kimimaru

    Kimimaru New Member

    Joined:
    25 Jul 2011
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    Подскажите пожалуйста,как вывести код переменной в memo1
     
  2. brain

    brain Elder - Старейшина

    Joined:
    4 Jul 2010
    Messages:
    249
    Likes Received:
    90
    Reputations:
    33
    Что вы имете в виду под "кодом переменной"?
     
  3. Sams

    Sams Member

    Joined:
    18 Apr 2009
    Messages:
    247
    Likes Received:
    70
    Reputations:
    17
    Может не код, а значение? Все зависит от типа переменной.
    В случае, если требуется вывести в Memo, не стирая старый текст, то:
    Числовой
    Code:
    Memo1.Lines.Add(IntToStr(имя_переменной));
    Текстовый
    Code:
    Memo1.Lines.Add(имя_переменной);
    Если же нужно стереть всё содержимое, и вывести результат, то:
    Числовой
    Code:
    Memo1.Lines.Text := IntToStr(имя_переменной);
    Текстовый
    Code:
    Memo1.Lines.Text := имя_переменной;
     
  4. Kimimaru

    Kimimaru New Member

    Joined:
    25 Jul 2011
    Messages:
    17
    Likes Received:
    0
    Reputations:
    0
    все побывал,не вышло
    вот код
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    data:tstringlist;
    page:string;
    begin
     IdHTTP1.AllowCookies:=true;
     data:=tstringlist.create;
      data.Add('тут были данные ');
      data.Add('тут были данные');
      try
      Page:=IdHTTP1.Post('тут был урл ', data);
      except
      Memo1.Lines.Text := page;
    end;
        end;
    end.
    
    прога не выдает ,мне нужно исходной код страницы заключенный в page
     
  5. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    Sams
    Не просто числовой, а тип данных integer. Если Тс напишет следующий код:
    будет еррор.
     
  6. brain

    brain Elder - Старейшина

    Joined:
    4 Jul 2010
    Messages:
    249
    Likes Received:
    90
    Reputations:
    33
    Kimimaru
    Исходный код страницы достается с помощью гет запроса
    Page:=IdHTTP1.Get('урл ');
     
    #6 brain, 9 Aug 2011
    Last edited: 9 Aug 2011
  7. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    Kimimaru
    Лучше юзать Memo1.Text := page;.
    Проверь правильность запроса, и попробуй добавить IdHttp1.HandleRedirects := True;
     
  8. ZdezBilYa

    ZdezBilYa Elder - Старейшина

    Joined:
    29 Aug 2008
    Messages:
    198
    Likes Received:
    75
    Reputations:
    19
    try
    Page:=IdHTTP1.Post('тут был урл ', data);
    except
    end;
    Memo1.Lines.Text := page;
     
    1 person likes this.
  9. Sams

    Sams Member

    Joined:
    18 Apr 2009
    Messages:
    247
    Likes Received:
    70
    Reputations:
    17
    бррррр...Числовой имелось в виду тип. Тем более я четко указал, что:
    Code:
    Memo1.Lines.Add(IntToStr([B]имя_переменной[/B]));
    А разве 0.5 является именем переменной? Что-то не похоже...
    P.S. Не только integer. Туда можно и DWORD впихнуть и много еще чего...
     
  10. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    var
    r:real;
    begin
    Memo1.Lines.Add(IntToStr(r));
    end
     
  11. TremaS

    TremaS New Member

    Joined:
    1 Aug 2011
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    IdHTTP1.Post('http://мойсервер/login.php', ParamData, PostDataStream);
    Memo1.Text:=PostDataStream.DataString;

    Т.е. надо еще передавать ParamData.
    А Result в PostDataStream.

    Особо не вникал, так что если что - тапками не кидаться.
     
  12. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    А в приведенном Тс коде нет переменной Data? И это не то же самое, что и ParamData?
     
  13. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    Да хватит уже развозить базар, единственный кто заметил реальную причину того,
    что у ТС не работал его код был ZdezBilYa (к стати знакомый ник, кажется блог есть, да?)
    Остальные все собрались покакать :(
     
  14. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    Code:
    http://avtuh.ru