Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Получаю текст ссылок с сайта и загружаю его в 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, 17:41   #2
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

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

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

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с массивом Marusya293 Помощь студентам 1 21.10.2013 05:53
Работа с массивом. anon321 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 24.05.2011 13:20
Работа с массивом monkey1631 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 19.04.2010 01:16
работа с массивом novi4ok_Delphi Помощь студентам 4 24.03.2010 20:28
С++. Работа с массивом. Bonne Помощь студентам 2 10.02.2010 21:49