Ввод значений

[Человек_Борща]

type
TLBRecord = class(TObject)
private
fURL:string;
public
property url:string read fURL;
constructor Create(url:string); overload;
destructor Destroy; override;
end;

Я описал класс, но не описывал его реализацию.
в конструкторе вызываете конструктор предка.
Там же переменной fURL присваиваете url
все.
Ну и деструктор тоже описываете.

[nefakt]

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

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sListBox, sEdit, ShellApi;

type
  TForm4 = class(TForm)
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sListBox1: TsListBox;
    sButton1: TsButton;
    procedure sButton1Click(Sender: TObject);
    procedure sListBox1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  List: TStringList;
  s1, s2: String;
  i: integer;

implementation

{$R *.dfm}

procedure TForm4.FormShow(Sender: TObject); //Чтение
begin
 List:=TStringList.Create;  //Создаем поток
 List.LoadFromFile('C:\test.qwerty');   //Читаем файл
 begin                      //Читает все строки
  for i := 0 to List.Count - 1 do
    sListBox1.Items.Add(list.Strings[i]);
end;
end;

procedure TForm4.sButton1Click(Sender: TObject); //Запись
begin
  List:= TStringList.Create;  // Создаем поток
  S1:=sedit1.Text; //Название
  S2:=sedit2.Text; //Ссылка
  sListBox1.Items.Add(S1); //Добавляем название в ListBox
  List.Add(S1);     //   Добавляем название в StringList
  List.Add(S2);     //   Добавляем ссылку в StringList
  List.SaveToFile('C:\test.qwerty'); //Сохраняем все в файл
  List.Free;           //Закрываем
end;

procedure TForm4.sListBox1DblClick(Sender: TObject);
begin
 ShellExecute(0, 'open', PWideChar(sListBox1.Items.Strings[sListBox1.ItemIndex]), nil, nil, SW_SHOW) ;
end;

end.

[eval]

код надо выбросить, а лучше сжечь

[nefakt]

:D а что там не так? просто я говорил лучше пример и с edit`ами а дальше я бы сам разобрался как нибудь.

[eval]

а все не так, логика хромает на обе ноги, качесто кода = 0..
надо не тупо по клаве жмякать, а думать прежде и читать, и книги и то что пишут тут, иначе смысла вам писать тут нету

[nefakt]

я в общем решил проблему поставил два ListBox`a в один название в другой ссылку , сделал функцию что бы при выборе одного ListBox`a во втором это же строка выделялась и при клике в первом ListBox`e(то есть по названию) ссылка открывается из второго таким методом

procedure TForm4.sListBox2DblClick(Sender: TObject);
begin
ShellExecute(0, 'open', PWideChar(sListBox4.Items.Strings[sListBox4.ItemIndex]), nil, nil, SW_SHOW);
end;

[nefakt]

Всем спасибо за помощь.

[Аватар]

И что, второй листбокс нужен пользователю? Ай да решил проблему Программист не может заменить листбокс стринглистом - на форму его

[nefakt]

второй ListBox не виден пользователю вписывают через edit название в ListBox который виден и ссылку в тот который не виден. И для новичка это вполне нормально. Как разберусь со StringList`ом как его использовать правильно, так и переделаю на него.
Вот как видит пользователь программу.

[eval]

ListBox и StringList различаються только в том что первый визуальный второй нет, а так вы вместо одного 2 влепили, привет пользователям, которые будут выбрасывать вашу прогу в корзину.