Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2018, 17:32   #1
РезедаМуратова
Пользователь
 
Регистрация: 05.12.2017
Сообщений: 69
По умолчанию StringGrid->Word экспорт. Delphi - Delphi

Здравствуйте, столкнулась с задачей: В пункте "Экспорт результатов» главного меню запрограммируйте процедуру «В документ ТХТ» обеспечив сохранение в текстовый документ".
Создан шаблон Word и нужно из StringGrid данные перенести в таблицу Word шаблон----но почему-то не выходит экспортировать данные, а именно открывается и выходит только нумерация. И если вычислять два варианта экспортируется лишь одна строчка. Помогите пожалуйста
Вложения
Тип файла: zip помощник преподавателя.zip (582.6 Кб, 4 просмотров)

Последний раз редактировалось РезедаМуратова; 18.01.2018 в 17:49. Причина: не правильное название
РезедаМуратова вне форума Ответить с цитированием
Старый 18.01.2018, 17:57   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ещё не открывал архив, но резануло:

Цитата:
Сообщение от РезедаМуратова Посмотреть сообщение
«В документ ТХТ» обеспечив сохранение в текстовый документ"
Цитата:
Сообщение от РезедаМуратова Посмотреть сообщение
Создан шаблон Word и нужно из StringGrid данные перенести в таблицу Word
Вы извините, но Word - это не текстовый документ TXT.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.01.2018, 18:02   #3
РезедаМуратова
Пользователь
 
Регистрация: 05.12.2017
Сообщений: 69
По умолчанию

Знаю это цитаты из задания.
Дело в том, что я не знала как лучше выполнить это задание и поискав в интернете натыкалась на экспорт в Word так и было решено создать шаблон Word куда будут вписываться значения из Stringgid.
РезедаМуратова вне форума Ответить с цитированием
Старый 19.01.2018, 14:48   #4
РезедаМуратова
Пользователь
 
Регистрация: 05.12.2017
Сообщений: 69
По умолчанию

Я реализовала и исправила свои ошибки. Далее почему-то ругается на код.
вот задание-> В пункте «Файл» главного меню запрограммируйте процедуру «Начать работу» так, чтобы возможность ввода данных и вычисления появлялась только после выполнения данной команды.
Код:
procedure TMAIN.N4Click(Sender: TObject);
var
s:string;
begin
s:='Project2.exe';
ShellExecute(handle,'open',PChar(s+ #0),nil,nil,SW_SHOWNORMAL)
end; ругается на ShellExecute. неизвестный идентификатор.
Пробовала вот еще так
procedure TMAIN.FormCreate(Sender: TObject);
begin
MAin.N3.Enabled:=False;
MAin.N2.Enabled:=False;
StrCount:=1;
if N4.Click=false then
WasStart:=False;
GroupBox1:=Enabled:=False;
GroupBox2:=Enabled:=False;
GroupBox3:=Enabled:=False
else begin
WasStart:=True;
GroupBox1:=Enabled:=True;
GroupBox2:=Enabled:=True;
GroupBox3:=Enabled:=True;
end;
тоже ругается. Помогите пожалуйста.
Вложения
Тип файла: zip помощник преподавателя.zip (580.7 Кб, 6 просмотров)
РезедаМуратова вне форума Ответить с цитированием
Старый 19.01.2018, 18:00   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Вы что-то не в ту сторону копали.

попробуйте.

вот код на FormCreate, который выключает все Edit'ы и блокирует другие пункты меню:
Код:
procedure TMAIN.FormCreate(Sender: TObject);
var i: integer;
begin
  N3.Enabled := False;
  N2.Enabled := False;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then begin
      TEdit(Components[i]).Enabled := false;
      TEdit(Components[i]).Visible := false;
    end;
  StringGrid1.Visible := false;
end;
а на пункт меню "Начать работу" тогда такой код:
Код:
// разрешить работу
procedure TMAIN.N4Click(Sender: TObject);
var i: integer;
begin
  N3.Enabled := True;
  N2.Enabled := True;
  N4.Enabled := False;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then begin
      TEdit(Components[i]).Enabled := True;
      TEdit(Components[i]).Visible := True;
    end;
  StringGrid1.Visible := True;

  StrCount := 1; //сч?тчик количества подсч?тов
  StringGrid1.FixedCols := 0; StringGrid1.FixedRows := 1; //Это можно задать и в инспекторе объектов
  StringGrid1.Cells[0, 0] := '№';
  StringGrid1.Cells[1, 0] := 'семестр';
  StringGrid1.Cells[2, 0] := 'группа';
  StringGrid1.Cells[3, 0] := 'предмет';
  StringGrid1.Cells[4, 0] := 'Всего уч-ся';
  StringGrid1.Cells[5, 0] := 'Допущено';
  StringGrid1.Cells[6, 0] := '5';
  StringGrid1.Cells[7, 0] := '4';
  StringGrid1.Cells[8, 0] := '3';
  StringGrid1.Cells[9, 0] := '2';
  StringGrid1.Cells[10, 0] := 'Обученность в %';
  StringGrid1.Cells[11, 0] := 'Средний балл';
  StringGrid1.Cells[12, 0] := 'Успеваемость';
  StringGrid1.Cells[13, 0] := '';
end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 20.01.2018, 18:56   #6
РезедаМуратова
Пользователь
 
Регистрация: 05.12.2017
Сообщений: 69
По умолчанию

Спасибо Вам большое. И спасибо за легкий и понятный код. Я поняла свои ошибки и разобралась как нужно было писать код.
РезедаМуратова вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi БД - Экспорт DBGrid в Word Nasle73 Общие вопросы Delphi 2 12.05.2015 11:08
Экспорт из StringGrid в Word Polotenchik Общие вопросы Delphi 12 23.09.2011 23:22
экспорт из StringGrid в Word Бусурманин хлоров Общие вопросы Delphi 1 11.12.2010 09:20
Экспорт из БД в Word в Delphi sting1920 Помощь студентам 3 03.03.2010 13:36