Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Считывание файла Excel в F1Book1

Оля © (2002-09-19 11:38:00)
Извините, что опять повторяюсь, но так и не получила ответа на мой вопрос:
В проекте есть пустой компонент F1Book1
необходимо при запуске программы считывать файл Excel в F1Book1.
Файл создан и находится в томже каталоге, что и программа.
Через SaveDialog я знаю как сделать, а как сделать это без вмешательства пользователя.

Андрей Прокофьев (2002-09-19 13:22:00) [1]
Значит так.
Что же Вы хотите точно?
Если пользователь ВЫБИРАЕТ, куда сохранять, то должен и выбирать,
откуда считывать данные.

Иначе имя файла надо зарезервировать, например XXX.XLS

сохранять
F1Book1.Write(ExtractFilePath(Application.EXEName) + "XXX.XLS", FileType);
читать

F1Book1.Read(ExtractFilePath(Application.EXEName) + "XXX.XLS", FileType);

Оля (2002-09-19 13:16:00) [2]
Через SaveDialog я делаю это так:

Вставляю SaveDialog
его свойства
DefaultExt - *.xls
Filter - Excel File (*. xls)|*.xls

procedure TForm1.SpeedButton3Click(Sender: TObject);
var FileType : SmallInt;
begin
If SaveDialog1.Execute then
begin
if SaveDialog1.FilterIndex = 1
then FileType := 1
else FileType := 3;
F1Book1.FileName := SaveDialog1.FileName;
F1Book1.Write(SaveDialog1.FileName,FileType);
end;
end;

Андрей Прокофьев (2002-09-19 11:44:00) [3]
>> Через SaveDialog я знаю как сделать, а как сделать это без вмешательства пользователя.

Как вы делаете через SaveDialog;

Не знаю свойств F1Book;
F1Book.<XLFileName> := ExtractFilePath(Application.ExeName) + "XXX.XLS"

Наверх

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