Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
ВнизСчитывание файла Excel в F1Book1 Найти похожие ветки
← →
Оля (2002-09-19 11:38) [0]Извините, что опять повторяюсь, но так и не получила ответа на мой вопрос:
В проекте есть пустой компонент F1Book1
необходимо при запуске программы считывать файл Excel в F1Book1.
Файл создан и находится в томже каталоге, что и программа.
Через SaveDialog я знаю как сделать, а как сделать это без вмешательства пользователя.
← →
Андрей Прокофьев (2002-09-19 11:44) [1]>> Через SaveDialog я знаю как сделать, а как сделать это без вмешательства пользователя.
Как вы делаете через SaveDialog;
Не знаю свойств F1Book;
F1Book.<XLFileName> := ExtractFilePath(Application.ExeName) + "XXX.XLS"
← →
Оля (2002-09-19 13:16) [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 13:22) [3]Значит так.
Что же Вы хотите точно?
Если пользователь ВЫБИРАЕТ, куда сохранять, то должен и выбирать,
откуда считывать данные.
Иначе имя файла надо зарезервировать, например XXX.XLS
сохранять
F1Book1.Write(ExtractFilePath(Application.EXEName) + "XXX.XLS", FileType);
читать
F1Book1.Read(ExtractFilePath(Application.EXEName) + "XXX.XLS", FileType);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c