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

[nefakt]

Всем привет.
Хотел узнать, можно ли сделать так.
Например на форму ListBox и 2 edit
в один edit вводить название, а во второй например ссылку с сайта,
но что бы в listBox выводилось только название а ссылка хранилась в программе, и при нажатии в listbox на название открывалась нужная ссылка.
Сейчас у меня пока сохраняет только ссылки в listBox`e и при закрытии формы они сохраняются в файле, а после открытия из него загружаются обратно в форму.
Заранее спасибо.

[FaTaL]

Ну так храни ссылки в массиве или в TStringList

[nefakt]

Да но после завершение программы массив очиститься так же как и TStringList, а мне надо что бы ссылки хранились при последующих запусках программы.

[Stilet]

У StringList есть методы SaveToFile() и LoadFromFile().
Используй их чтоб сохранить в файле, и считать при запуске.

[nefakt]

Ясно, спасибо. Сейчас попробую.

Я первый раз работаю с TStringList можете помочь?
Вот пример как я добавляю в ListBox

procedure TForm4.sSpeedButton1Click(Sender: TObject);
Begin
sListBox1.Items.Add(sEdit1.Text);
End

Но как я говорил выше нужно что бы название шло в ListBox а сама ссылка получается в TStringList ну и + название тоже. в Один Edit пишем название во второй Edit ссылку.

и вот как он читает из файла

procedure TForm4.FormCreate(Sender: TObject);
Begin
sListBox1.Items.LoadFromFile('bookmarks.qwerty');
End

Можете написать пример хотя бы с использованием 2-ух Edit , 1 ListBox`ом и TStringList`ом.
Заранее спасибо

[eval]

ненужен вам TStringList, ListBox-а достаточно

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

TStrings умеет хранить объекты со строкой.

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

//Заполнение списка

var
 R:TLBRecord;
begin
R:=TLBRecord.Create('http://LOL.com/');
LB.items.AddObject('Сайт LOL',R);

При двойном клике получаете объект и переходите о ссылке. Освобождать объекты самому не надо, TStrings сам их освобождает при удалении строки/списка. Потому class а не record

[eval]

эдитов нет, некачественный пример, автор опять в ступор уйдет

[nefakt]

Если я правильно понял то так

procedure TForm4.sSpeedButton1Click(Sender: TObject);
 var
 R:TLBRecord;
begin
R:=TLBRecord.Create(sEdit1.Text);
sListBox1.items.AddObject(sEdit2.Text,R);
end;

но что с этим делать я не понял)

  property url:string read fURL;
  constructor Create(url:string); overload;
  destructor Destroy; override;
  end;

Понял что их создать нужно но что туда вписывать я не знаю.

нет все так с этим тоже ошибся )

 var
 R:TLBRecord;
begin
R:=TLBRecord.Create(sEdit1.Text);
sListBox1.items.AddObject(sEdit2.Text,R);
end;

[doktor255]

Лёгкая оптимизация, чтоб из программиста не превращаться в формошлёпа.

procedure TForm1.Button1Click(Sender: TObject);
var s1, s2: string;
begin
s2 := 'http://';
if InputQuery('Ввод', 'Имя ссылки', s1)
  and
    InputQuery('Ввод', 'Адрес ссылки', s2)
then ShowMessage('Имя ссылки: ' + s1 + #10 + 'Адрес ссылки: ' + s2);
end;