[Alexandr_8700]

У меня возникла проблема при использовании компонента ListBox

Суть проблемы заключается в следующем:
У меня есть следующий текстовый файл
Link1
[http//example1]
Link2
[http//example2]
………………………………………….

В ListBox мне нужно загрузить только Link1.2.3…. Но когда я нажимаю в Lisbox например Link1, то должен передаваться параметр [http//example1], а не Link.

Заранее благодарен

[U.B.M.]

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

В ListBox мне нужно загрузить только Link1.2.3…. Но когда я нажимаю в Lisbox например Link1, то должен передаваться параметр [http//example1], а не Link.

Создай второй ListBox, сделай невидимым и туда закинь ссылки. Или даже лучше не ListBox, а StringList.

[Alexandr_8700]

а Вы кусочек кода не покажите как реализовать 2 Listbox

[PhoeniX]

В раздел "работа". Ибо совсем гуглом обленились пользоваться.

[friz]

Сообщение от DJ PhoeniX

В раздел "работа". Ибо совсем гуглом обленились пользоваться.

Феникс, когда это ты стал таким корыстным?

Самое просто решение, это прочитать файл построчно. пример:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t:TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f : textfile;
    temp:string;
begin
   AssignFile(f,'c:\1.txt');  //имя файлика
   Reset(f);
   while not Eof(f) do
    begin
      Readln(f,temp);  //читаем построчно
      if Pos('[',temp)>0 then t.Add(temp)  //если есть [ значит параметр 
                         else ListBox1.Items.Add(temp); //если нету значит описание, добавляем в listbox
    end;
   CloseFile(f);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
t.Free; //очищаем список параметров
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
t:=TStringList.Create; //создаем список параметров
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.Lines.Add(t[ListBox1.ItemIndex]); //при клике на listbox добавляем в мемо параметр для данного link
end;

end.

[Alexandr_8700]

СПАСИБО FRIZ.
Разобрался!

[PhoeniX]

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

Феникс, когда это ты стал таким корыстным?

Да просто совсем обленились, сил нету уже. Бесит.

[U.B.M.]

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

а Вы кусочек кода не покажите как реализовать 2 Listbox

Странный вопрос при том что

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

В ListBox мне нужно загрузить только Link1.2.3…. Но когда я нажимаю в Lisbox например Link1, то....

Если есть скил делать листбокс и загружать туда нечетные строки (1,3,5,...), то какая проблема возникает при загрузке четных строк в другой листбокс?