Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ComboBox


Sapos ©   (2007-02-12 14:05:00) 

Помогите пожалуйста!!!
Нужно програмно наполнять ComboBox по нажатию кнопки тем, что написано в Edit'e. Это уже есть: ComboBox.Items.Add(Edit1.Text), НО также нужно чтобы все что было наполнено ранее сохранялось. Может нужен другой код или нужно сбрасывать все в файл?


iXT   (2007-02-12 18:12:00) [1]

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


Sapos   (2007-02-12 18:07:00) [2]


> А с какого он тебе должен его сохранить, вот скажи мне.

Не знаю, вот поэтому и спрашиваю! Я вообще только начинающий...
Спасибо добрым людям - помогли и объяснили...


iXT   (2007-02-12 18:00:00) [3]


> @!!ex ©   (12.02.07 17:49) [11]

Ответ был тоже ему :)


> Sapos ©   (12.02.07 16:12) [10]
> Не, ты не совсем понял, при следующем запуске комбо бокс
> остается пустым и его снова приходятся наполнять заново.
> ..

А с какого он тебе должен его сохранить, вот скажи мне.


@!!ex   (2007-02-12 17:49:00) [4]


> Sapos ©   (12.02.07 16:12) [10]

Комент был не тебе. :)
А Автору творения в 6.
Там тупо дублеж, я привел полностью аналогичный код, чтобы было понятнее. :))

Ответ на твой вопрос я дал в самом начале, потом его в 7 разжевали окончательно.


Sapos   (2007-02-12 16:12:00) [5]


> Дублеж строки.
> ТОже самое, только без лишней переменной:
>
> begin
>   ComboBox.Items.Add(edit1.text+Edit1.Text);
> end;


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


@!!ex   (2007-02-12 15:34:00) [6]


> divBYzero   (12.02.07 15:02) [6]

Дублеж строки.
ТОже самое, только без лишней переменной:

begin
  ComboBox.Items.Add(edit1.text+Edit1.Text);
end;


Sapos   (2007-02-12 15:20:00) [7]

Спасибо!


divBYzero   (2007-02-12 15:02:00) [8]

var str:string;
begin
   str:=edit1.text;
   ComboBox.Items.Add(str+Edit1.Text); { или ComboBox.Items.Add(Edit1.Text+str);}
end;

попробуй так... поидеи я так понял вопрос


fd979   (2007-02-12 15:02:00) [9]

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox.Items.LoadToFile(extractFilePath(Application.ExeName) + '\combo.txt');

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ComboBox.Items.SaveToFile(extractFilePath(Application.ExeName) + '\combo.txt');
 Action := caFree;
 Form1 := nil;
end;


vasIZmax   (2007-02-12 14:16:00) [10]


> vasIZmax ©   (12.02.07 14:15) [4]

не сохраняет, а добавляет к списку:)
Зы. описка:)


vasIZmax   (2007-02-12 14:15:00) [11]

чг, я не понял вопроса. даже попробовал твое ComboBox.Items.Add(Edit1.Text). вроде все нормально сохраняет.
ЗЫ. конкретнее:)))


Elen   (2007-02-12 14:14:00) [12]


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

В файл.


@!!ex   (2007-02-12 14:14:00) [13]

Код твой тупо добавляет в список строку.
Сохраняй в файл. SaveToFile
В начале работы грузи LoadFromFile.
В чем пробема то?


@!!ex   (2007-02-12 14:14:00) [14]

Код твой тупо добавляет в список строку.
Сохраняй в файл. SaveToFile
В начале работы грузи LoadFromFile.
В чем пробема то?


Наверх

Титульная страница Поиск, карта сайта Написать письмо