Может не код, а значение? Все зависит от типа переменной. В случае, если требуется вывести в Memo, не стирая старый текст, то: Числовой Code: Memo1.Lines.Add(IntToStr(имя_переменной)); Текстовый Code: Memo1.Lines.Add(имя_переменной); Если же нужно стереть всё содержимое, и вывести результат, то: Числовой Code: Memo1.Lines.Text := IntToStr(имя_переменной); Текстовый Code: Memo1.Lines.Text := имя_переменной;
все побывал,не вышло вот код 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
Kimimaru Лучше юзать Memo1.Text := page;. Проверь правильность запроса, и попробуй добавить IdHttp1.HandleRedirects := True;
бррррр...Числовой имелось в виду тип. Тем более я четко указал, что: Code: Memo1.Lines.Add(IntToStr([B]имя_переменной[/B])); А разве 0.5 является именем переменной? Что-то не похоже... P.S. Не только integer. Туда можно и DWORD впихнуть и много еще чего...
IdHTTP1.Post('http://мойсервер/login.php', ParamData, PostDataStream); Memo1.Text:=PostDataStream.DataString; Т.е. надо еще передавать ParamData. А Result в PostDataStream. Особо не вникал, так что если что - тапками не кидаться.
Да хватит уже развозить базар, единственный кто заметил реальную причину того, что у ТС не работал его код был ZdezBilYa (к стати знакомый ник, кажется блог есть, да?) Остальные все собрались покакать