Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

ComboBox   Найти похожие ветки 

 
Sapos ©   (2007-02-12 14:05) [0]

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


 
Elen ©   (2007-02-12 14:14) [1]


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

В файл.


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

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


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

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


 
vasIZmax ©   (2007-02-12 14:15) [4]

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


 
vasIZmax ©   (2007-02-12 14:16) [5]


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

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


 
divBYzero   (2007-02-12 15:02) [6]

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) [7]

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;


 
Sapos ©   (2007-02-12 15:20) [8]

Спасибо!


 
@!!ex ©   (2007-02-12 15:34) [9]


> divBYzero   (12.02.07 15:02) [6]

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

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


 
Sapos ©   (2007-02-12 16:12) [10]


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


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


 
@!!ex ©   (2007-02-12 17:49) [11]


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

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

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


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


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

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


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

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


 
Sapos ©   (2007-02-12 18:07) [13]


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

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


 
iXT ©   (2007-02-12 18:12) [14]

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.045 c
2-1171497080
alert2006
2007-02-15 02:51
2007.03.04
Как убрать FocusRect у ListView


6-1159248027
WhiteBarin
2006-09-26 09:20
2007.03.04
Как определить IP подсоединённого клиента на стандартный сервер W


2-1171204627
cando
2007-02-11 17:37
2007.03.04
Открыть несколько файлов


6-1158733101
mat99
2006-09-20 10:18
2007.03.04
обработка mailto в delphi


6-1159255557
DVM
2006-09-26 11:25
2007.03.04
CloseSocket() в неблокирующем режиме. Вопрос.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский