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

Вниз

Cохранение выбранного элемента ComboBox как название файла   Найти похожие ветки 

 
kate   (2008-08-01 10:11) [0]

Здравствуйте, я начинающий программист на Delphi. Помогите кто сможет!!
Реальзован календарь, выпадающий список и кнопка "Сохранить". При выборе кнопки в определенной папке должен сохраняться файл с расширением .xml, причем название файла должно состоять из выбранной даты и выбранного элемента списка. Как будет выглядеть обработчик события для кнопки?


 
Vlad Oshin ©   (2008-08-01 10:16) [1]

S:=datetostr(ваш_Calendar.date)+ComboBox.text+".xml";
s:=path+s;
assignfile(f,s);
rewrite(f);


 
a.a.j. ©   (2008-08-01 10:23) [2]

savedialog1.FileName := "C:\" + datetostr(datetimepicker1.Date) + ".xml";
 savedialog1.Execute;


 
KilkennyCat ©   (2008-08-01 10:32) [3]


> a.a.j. ©   (01.08.08 10:23) [2]


вау!


 
a.a.j. ©   (2008-08-01 10:38) [4]


> KilkennyCat

да, ну мало ли


 
Denis__ ©   (2008-08-01 10:42) [5]


> Реальзован календарь, выпадающий список и кнопка "Сохранить".
>  

В смысле? Что вы понимаете под "реализован"? Кинуто на форму?


 
KilkennyCat ©   (2008-08-01 10:54) [6]


> a.a.j. ©   (01.08.08 10:38) [4]
>
> > KilkennyCat
>
> да, ну мало ли


да это просто бред. во-первых, так с savedialog не работают. во-вторых, про него ни слова не было сказано, он вообще коренным образом меняет интерфейс (логику) программы. В-третьих, условие поставленной задачи не выполнено.


 
kate158   (2008-08-01 10:54) [7]

На форму кинуты компоненты DateTimePicker,СomboBox и кнопка.
есть код:
procedure TForm1.Button3Click(Sender: TObject);
var f:string;
begin
DateSeparator:=".";
TimeSeparator:="_";
f:="C:\Temp\Kate\" + DateToStr(calDatePicker.Date)+ " - " + ComboBox1.Text + ".xml";
end;
Сформировано имя файла. нужно открыть файл, сохранить и закрыть..


 
Игорь Шевченко ©   (2008-08-01 10:57) [8]


> Сформировано имя файла. нужно открыть файл, сохранить и
> закрыть..


открой, сохрани и закрой


 
KilkennyCat ©   (2008-08-01 10:57) [9]


> Vlad Oshin ©   (01.08.08 10:16) [1]
> S:=datetostr(ваш_Calendar.date)+ComboBox.text+".xml";
> s:=path+s;
> assignfile(f,s);
> rewrite(f);

+ closefile(f);


 
Denis__ ©   (2008-08-01 11:04) [10]


> На форму кинуты компоненты DateTimePicker,СomboBox и кнопка.

О! уже кинуты. А что с реализованными?


 
kate158   (2008-08-01 11:08) [11]

реализованные в топке.кинутые станут реализованными когда все заработает


 
a.a.j. ©   (2008-08-01 11:10) [12]


> во-первых, так с savedialog не работают.
>  во-вторых, про него ни слова не было сказано, он вообще
> коренным образом меняет интерфейс (логику) программы. В-
> третьих, условие поставленной задачи не выполнено.

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


 
Игорь Шевченко ©   (2008-08-01 11:11) [13]

что-то сессия затянулась


 
Denis__ ©   (2008-08-01 11:12) [14]


> кинутые станут реализованными

Это что-то новенькое

> когда все заработает

Ну... дерзай


 
Denis__ ©   (2008-08-01 11:14) [15]


> "C:\Temp\Kate\"

А такая существует?


 
KilkennyCat ©   (2008-08-01 11:37) [16]


> a.a.j. ©   (01.08.08 11:10) [12]
> да, а как работают?


Ну, хотя бы вызывают его по-человечески.
Читайте справку. Или создавайте отдельную ветку, в которой Вам персонально расскажут про работу со всей вкладкой Dialogs.


 
KilkennyCat ©   (2008-08-01 11:39) [17]

Кроме того, вызов диалога не обеспечивает никакой файловой операции, ни создания, ни записи, ни открытия, ни закрытия, удаления, переименования и т.д. и т.п.


 
kate158   (2008-08-01 11:48) [18]

все работает.спасибо.)



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

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

Наверх




Память: 0.48 MB
Время: 0.046 c
15-1216979977
Jolik
2008-07-25 13:59
2008.09.14
Есть работа...


15-1216318636
@!!ex
2008-07-17 22:17
2008.09.14
Дизайн детей


2-1217770915
mokmoc
2008-08-03 17:41
2008.09.14
TLabel + Paint + Align


6-1193157498
Pacific
2007-10-23 20:38
2008.09.14
smtp


15-1216634664
TUser
2008-07-21 14:04
2008.09.14
Сколько ватт БП и дополнительных вентилияторов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский