Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 16.02.2015, 18:21   #1
nibufep
Форумчанин
 
Регистрация: 02.08.2014
Сообщений: 476
Репутация: 14
По умолчанию Работа с массивом

Получаю текст ссылок с сайта и загружаю его в comboox и сами ссылки в массив, потом выбрав текст в comboox пытаюсь вывести ссылку которая относится к этому тексту из массива, ну что-то не работает:

Код:

var
  Form1: TForm1;
  byteArray  : Array[5..20] of string;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
html:string;
RegExpr:tRegExpr;
i:integer;
begin
i:=0;
html:=idhttp1.Get('');
RegExpr:=TRegExpr.Create;
RegExpr.Expression := 'href="(.*?)">(.*?)</a>';
if RegExpr.Exec(html) then
repeat
i:=i+1;
ComboBox1.Items.Add(RegExpr.Match[2]);
byteArray[i] :=   RegExpr.Match[1];
until not RegExpr.ExecNext;
RegExpr.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(byteArray[ComboBox1.ItemIndex]);
end;

Что не так? И возможно есть другой способ чтобы это реализовать?
nibufep вне форума   Ответить с цитированием
Старый 16.02.2015, 18:41   #2
northener
Профессионал
 
Регистрация: 15.07.2013
Сообщений: 1,453
Репутация: 477
По умолчанию

Цитата:
Array[5..20]
Нафига с пятого по двадцатое?
northener вне форума   Ответить с цитированием
Старый 16.02.2015, 18:42   #3
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,712
Репутация: 2097
По умолчанию

очень полезная опция при работе с массивами
__________________
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума   Ответить с цитированием
Старый 16.02.2015, 18:46   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,957
Репутация: 6832
По умолчанию

Цитата:
Array[5..20]
А че это от пяти?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 16.02.2015, 18:52   #5
nibufep
Форумчанин
 
Регистрация: 02.08.2014
Сообщений: 476
Репутация: 14
По умолчанию

а все понятно ошибка в этом была byteArray : Array[1..20] of string;
nibufep вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с массивом Marusya293 Помощь студентам 1 21.10.2013 05:53
Работа с массивом. anon321 Assembler 1 24.05.2011 13:20
Работа с массивом monkey1631 Assembler 2 19.04.2010 01:16
работа с массивом novi4ok_Delphi Помощь студентам 4 24.03.2010 21:28
С++. Работа с массивом. Bonne Помощь студентам 2 10.02.2010 22:49


12:12.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru