[Asinkrit]

Ну вот, опять тупой копи-пастинг, люди учитесь думать, это очень сильно помогает.

Код:

if ListBox1.items[0].Text='' then

[hatsub]

ок, а что насчет ссылок? Можно как-то реализовать без подключения посторонних излишеств...

[Assistant]

в Uses подключите ShellAPI и на событие OnChange (OnClick, шо у вас там)

Код:

ShellExecute(Handle,'open',PChar(ListBox1.Items[ListBox1.ItemIndex]),nil,nil,1);

могу не дописать параметр какой нибудь, на память писал.

[hatsub]

Огромное спасибо. Возникает еще одна проблема...
Без добавления проблемной строки все работает нормално.



Код:

PHP код:

function Add(lineadd:string): string;
begin
...
lineadd вводится
...
Listbox2.Items.Add(lineadd);
...
end; 


Listbox2 присутствует на форме.
lineadd: string;
В чем может быть такая проблема.

Если нужно код функции могу скинуть полностью.

Код:

function Add(lineadd:string): string;
begin
  lineadd:=inputbox('Адрес rss-ленты','Вводите адрес правильно!','');
  if (lineadd<>'') then lineaddtemp := lineadd[1]+lineadd[2]+lineadd[3]+lineadd[4]+lineadd[5]+lineadd[6]+lineadd[7];
  if (lineadd='')or(lineaddtemp<>'http://') then showmessage('Неправильно введен адрес')
  else
  begin
    //записываем в массив, массив файл, а из файла в ListBox спомощью функции раз здесь код не робит!

    // add to array
    i:=1;
    while i<100 do
    begin
      if p[i]='' then
      begin
        p[i]:=lineadd;
        numar:=i+1;
        i:=i+200;
      end;
      i:=i+1;
    end;

    //массив в файл
    AssignFile(f,'1.txt');
    ReWrite(f);
    j:=1;
    while j<numar do
    begin
        Writeln(f,p[j]);
        j:=j+1;
    end;
    CloseFile(f);

    Listbox2.Items.Add(lineadd);

  end;
end;

Админ: Пользуемся тегами для оформления кода!

[Assistant]

функция Add не принадлежит классу TForm1, там и находится ListBox2
сделайте так:
объявите в классе TForm1 функцию Add вот так:

Код:

......
type
  TForm1 = class(TForm)
  // блаблабла
  function Add(lineadd: string): string;
......

function TForm1.Add(lineadd: string): string;
begin
  ...
  // lineadd вводится
  ...
  Listbox2.Items.Add(lineadd);
  ...
end;

[hatsub]

Огромное спасибо! Функция add стала работать, но при компиляции выделяет красным эту строку:

function TForm1.delete(host:string):string;

и пишет ошибку
[DCC Error] Unit1.pas(60): E2037 Declaration of 'delete' differs from previous declaration

Обе функции объявлены в type, но работает только одна:
type
....
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
function Add(lineadd: string): string;
function delete(lineadd: string): string;

В чем на этот раз проблема?

[Asinkrit]

Метод Delete уже определен для формы, выберите другое название, к примеру DeleteItem.

[hatsub]

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



Слышал о перехватчике ошибок:

PHP код:

try
...
except или finally
...
else
..
end; 


Подскажите пожалуйста, как пользоваться или ссылку на тему про ошибки.

[einstein]

Сообщение от hatsub

PHP код:

try
...
except или finally
...
else
..
end; 


эта ошибка всегда является проблемой прокладки между монитором и креслом и "лечить" такие ошибки try..except все-равно что накрывать Фукусиму-1 носовыми платками

[flexterful]

Индекс выбранная строки здесь - ListBox.ItemIndex.
Это если ListBox.ItemIndex = -1 - строка не выбрана.
Проверка на кол-во елементов ListBox.Count = 0.

Код:

var
 Index : integer;
begin
 if ListBox.Count = 0
  then Exit;

 Index := ListBox.ItemIndex;
 if Index < 0
  then Exit;

 ListBox.Items[Index].Do_Miracle; // or whatever you want.

end;