сохранение ссылок в combobox

[mihali4]

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

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

Что за чепуха?
Только что специально опробовал (заменил только 'File.txt' на 'Urls.txt', ибо не осилил смысла сего изыска) - все чудненько сохраняется и не менее чудненько восстанавливается...

нужно чтобы в combobox сохранялись ссылки после их набора в combobox

Любезный, их нужно "силком" вносить в итемсы, а не пальчиком по клавишам...
Так что изучите-ка метод ComboBox1.Items.Add()... (заодно и AddItem(). Впрочем, там полно методов, которыми можно добавлять хоть сразу списком...) И применяйте его, допустим, по нажатию ENTER на комбобоксе.

[Denisko]

Я имел виду что недобавляются новые ссылки каторые прописывал в ComboBox.А мне и какрас это в первую очередь и надо.

[Neeter]

недобавляются новые ссылки каторые прописывал в ComboBox

Ну код покажите добавления этих ссылок.

[Denisko]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile(ExtractF ilePath(ParamStr(0)) + 'Urls.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(ParamStr (0)) + 'Uels.txt') then
begin
ComboBox1.Items.LoadFromFile(Extrac tFilePath(ParamStr(0)) + 'Urls.txt');
if Combobox1.Items.Count <> 0 then
ComboBox1.ItemIndex := 0;
end;
end;

Этот код каторый ты довал мне.
он сохраняет то сохраняет в файл,но новые туды не добовляет.
Я то просил чтобы сохранялись ссылки в ComboBox и после закрытия сохранялись они в urls.txt

[Neeter]

Надо что-то типа такого?

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  if ComboBox1.Text <> ComboBox1.Items[ComboBox1.ItemIndex] then
   ComboBox1.Items.Add(ComboBox1.Text);
end;

и еще исправь код:

procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(ParamStr (0)) + 'Urls.txt') then
begin
ComboBox1.Items.LoadFromFile(Extrac tFilePath(ParamStr(0)) + 'Urls.txt');
if Combobox1.Items.Count <> 0 then
ComboBox1.ItemIndex := 0;
end;
end;

[Denisko]

Ща папробую

[Denisko]

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

Надо что-то типа такого?

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  if ComboBox1.Text <> ComboBox1.Items[ComboBox1.ItemIndex] then
   ComboBox1.Items.Add(ComboBox1.Text);
end;

и еще исправь код:

procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(ParamStr (0)) + 'Urls.txt') then
begin
ComboBox1.Items.LoadFromFile(Extrac tFilePath(ParamStr(0)) + 'Urls.txt');
if Combobox1.Items.Count <> 0 then
ComboBox1.ItemIndex := 0;
end;
end;

Во спасибо теперь всё работает как надо.