[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.