VPF::Извлечение информации из ComboBox'а

LordDon

Дата 15.12.2009, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.11.2008

Репутация: нет
Всего: нет

Есть ComboBox в котором заполнено 6 строк, мне нужно чтобы выбранную из него строку можно было вписать файл или вывести на экран. Как это сделать?
var s : string;
S:=ComboBox1.Items; - не работает =(

Данкинг

Дата 15.12.2009, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Код


s:=ComboBox1.Items.Strings[ComboBox1.itemindex];

--------------------

There's nothing left but silent epitaphs.

profesiachuvak

Дата 15.12.2009, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

Если я правильно понял , то попробуй вот так :

Код


procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=Combobox1.text;
ShowMessage(s);
end;

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

Teleport

Дата 15.12.2009, 23:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

Код


procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 //заполняем строками
 for i := 0 to 6 do
   CB.Items.Add('Строка ' + IntToStr(i))
end;

//показываем на экран
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(CB.Text);
end;

//сохраняем выбранную строку в файл
procedure TForm1.Button2Click(Sender: TObject);
var
 f: TextFile;
begin
 AssignFile(f, 'my_file.txt'); //Связь дескриптора и конкретного файла на компьютере

 try //пробуем открыть файл
   Append(f); //если файл существует - открываем его для записи
 except
   ReWrite(f) //если файл не существует - создаем его и - открываем для записи
 end;
 Writeln(f, CB.Text); // добавляем строку в файл
 Closefile(f);  //закрывам файл

 //а так можно все строки сохранить сразу из ComboBox
 //CB.Items.SaveToFile('my_file.txt');
 //У большинства компонентов, связанных с тестовой информацией есть метод SaveToFile

end;

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »