brunnengi

30к записей это не много. Если всё нормально и правильно подключаетесь к базе, то должно работать.
Покажите код как вы к базе конектитесь и запрос к ней делаете.

Оки, вроде получилось))
 
R := 450; x0 := (form1.layout1.Width - form1.Circle1.Width) / 2; y0 := (form1.layout1.Height - form1.Circle1.Height) / 2; Ang := 45; // к примеру x := x0 + (R/2)*cos(ang*pi/180); y := y0 + (R/2)*sin(ang*pi/180); circle1.Position.X := x; circle1.Position.Y := y; где: R - радиус, Ang - угол в градусах от 0 до 360 layout1 я выставил в Align:=Client;

Парсить и запускать счетчик это разные задачи.
Если парсить то можно и через GET получать страничку и парсить её.
Если ЯваСкрипт запускает счетчик, то надо понять что за счетчик и как работает.
Если это счетчик уникальных посищений или типа того, то заходя на одну и ту же страничку врядли что то измениться.
Если скрипт просто отправляет некие данные на сервер, а полученные данные отображает ввиде увеличения счетчика, то имеет смысл посмотреть что и куда он отправляет и слать такие же запросы уже через idHTTP в потоке.
Задачи по работе с сайтами всегда разные.
WebBrowser хорош как решение и если оно вас устраивает (пос скорости, по результатам), то конечно юзайте его.
В противном случае надо копаться глубже.

Здравствуй.
Увы, но сделать так, как ты хочешь, нельзя.

Не знаю то или не то что ты хочешь, но вот:
Пример:
Строка JSON: {"type1":199, "type2":"val2","ar":["arval1","arval2"]}
первый это число, второе строка, третье массив
 
Код на кнопку:
procedure TForm1.Button1Click(Sender: TObject); var s : string; js : TJSONObject; begin s := '{"type1":199, "type2":"val2","ar":["arval1","arval2"]}'; JS := TJSONObject.ParseJSONValue(s) as TJSONObject; memo1.Lines.Add(JS.Pairs[0].JsonValue.ClassName); memo1.Lines.Add(JS.Pairs[1].JsonValue.ClassName); memo1.Lines.Add(JS.Pairs[2].JsonValue.ClassName); end; Запускаем и в memo1 попадают вот такие ответы:
TJSONNumber TJSONString TJSONArray     Думаю дальше ты знаешь что делать, если конечно я правильно тебя понял и правильно тебе насоветовал тут.

Да, это баг XE7, вроде как в QC уже запостили.
Другие варианты с вложением в Edit компонента TText или Tlabel мне известны, интересовало чисто TextPromt.
Тему можно закрыть.