Вопрос № 173441: Уважаемые эксперты помогите в написание программы в Delphi 7.0. Имеются следующие компоненты: TMainMenu1, TCombobox1, TOpenDialog1. Сделать следующее: Заблокировать Combobox1. Переписать список слов из Combobox1 в файл с помощью методов O...
Вопрос № 173441:
Уважаемые эксперты помогите в написание программы в Delphi 7.0. Имеются следующие компоненты: TMainMenu1, TCombobox1, TOpenDialog1. Сделать следующее: Заблокировать Combobox1. Переписать список слов из Combobox1 в файл с помощью методов OpenDialog1.
Отвечает Anton A., 3-й класс :
Здравствуйте, Спиридонов Данил Сергеевич.
Код в приложении.
Пояснения: * Список слов в Combobox1 хранится в свойстве Items, у которого есть метод SaveToFile(const FileName: String) - сохраняющий список в файл FileName в текстовом виде. * Имя выбранного в диалоге OpenDialog1 файла хранится в свойстве FileName диалога. * Для открытия диалогового окна OpenDialog1 используется его метод Execute, возвращающий true, если пользователь ввёл имя файла и нажал кнопку Ok, и false - если
пользователь нажал кнопку Отмена (алнг., Cancel).
С уважением, Антон.
Приложение:
Ответ отправил: Anton A., 3-й класс
Ответ отправлен: 20.10.2009, 07:13
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 255615
на номер 1151 (Россия) |
Еще номера »
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает Евгений/Genia007/, Практикант :
Здравствуйте, Спиридонов Данил Сергеевич. Для текстового файла сохранение строк из ComboBox можно сделать следующим образом:
Код:
procedure TForm1.N1Click(Sender: TObject); var i: integer; F: TextFile; begin Combobox1.Enabled:= False; // Сделали комбобокс неактивным
If not OpenDialog1.Execute then // Если не удалось открыть диалог выйти из процедуры exit; AssignFile(F,OpenDialog1.FileName + '.txt'); // Связываем файловую переменную f с именем файла из диалога Rewrite(F); // Создаём новый файл For i:= 0 to Combobox1.Items.Count - 1 do // Перебираем все строки комбобокса Writeln(F, Combobox1.Items.Strings[i]); // Записываем в файл строку из комбобокса CloseFile(F); // Закрыл
и файл end;
----- Помогли тебе, помоги и ты.
Ответ отправил: Евгений/Genia007/, Практикант
Ответ отправлен: 22.10.2009, 11:38
Оценка ответа: 5 Комментарий к оценке: Подробно и точно.
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 255707
на номер 1151 (Россия) |
Еще номера »
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.