Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Neskajuyavam
0 / 0 / 0
Регистрация: 30.09.2016
Сообщений: 9
#1

Lazarus,OpenDialog

30.09.2016, 13:32. Просмотров 342. Ответов 1

Через OpenDialog я указываю путь к листу Excel. Как сделать чтобы этот путь заносился на место "p".
Заранее спасибо!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm3.Button1Click(Sender: TObject);
 
begin
 
  MyWorkbook := TsWorkbook.Create;
   MyWorkbook.ReadFromFile(p, sfExcel8);
   MyWorksheet := MyWorkbook.GetFirstWorksheet;
    MyWorksheet.WriteUTF8Text(1,1,edit1.text);
   MyWorkbook.WriteToFile(p, sfExcel8, True);
   MyWorkbook.Free;
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2016, 13:32
Ответы с готовыми решениями:

Установка ZEOS в Lazarus, работа с PostgressSQL в Lazarus
Не получается никак установить компонент ZEOS в Lazarus открываю пакет с...

В чём разница между Lazarus Linux i386 RPM и Lazarus Linux i386 DEB
Здравствуйте. Установил в виртуалке Ubuntu и хочу "покрутить" в ней Lazarus....

OpenDialog и SaveDialog
Даны три файла вещественных чисел с именами S1, S2 и S3, элемнты ко- торых...

OpenDialog и SaveDialog
Как сохранить и открыть программу через OpenDialog и SaveDialog. Подскажите...

Вызов окна OpenDialog
Нигде не могу найти то, как вызвать это окно, в учебнике есть упоминание о том,...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25966 / 17410 / 6906
Регистрация: 22.10.2011
Сообщений: 30,655
Записей в блоге: 6
30.09.2016, 14:38 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm3.Button1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
   begin
      MyWorkbook := TsWorkbook.Create;
      MyWorkbook.ReadFromFile(OpenDialog1.FileName, sfExcel8);
      MyWorksheet := MyWorkbook.GetFirstWorksheet;
      MyWorksheet.WriteUTF8Text(1,1,edit1.text);
      MyWorkbook.WriteToFile(OpenDialog1.FileName, sfExcel8, True);
      MyWorkbook.Free;
   end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2016, 14:38

Компонент opendialog и stringgrid
procedure TForm1.LoadStringGrid(StringGrid: TStringGrid; FileName: string);...

Использование SaveDialog и OpenDialog
вот она эта программа

Долго и некорректно открывается OpenDialog
Здравствуйте. После нажатия на кнопку procedure TForm1.Button1Click(Sender:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru