[TOJluK]

Сообщение от Lenok

Aristarh Dark , да я вот тоже думаю зачем мне это все нужно, отучилась три года, так ничему не научилась...

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

[Lenok]

TOJluK я в колледже учусь, всего три года, э то программа с которой я мучаюсь моя дипломная работа, вот...Что мне нужно...Написав программу мы имеем много различных файлов. Компилирую в делфи получаем project.exe, вот в чем вопрос:как сделать установочный файл setup.exe...и еще потом мне это приложении необходимо прикрепить к сайту.
P.S. мне нравиться программировать, поэтому я и учусь, не все понимаю, но стараюсь)))

[Страдалецъ]

Для создания Installera существуют специальные программы. Насколько я в курсе в дельфи этого удовольствия нет, надо пользоваться сторонними разработками. Вот посмотрите по ссылке http://depositfiles.com/files/2074296 вроде то что вам нужно.

[Sphinx]

Сообщение от Страдалецъ

Насколько я в курсе в дельфи этого удовольствия нет, надо пользоваться сторонними разработками.

В дельфе кабы есть эта тема) Насчет поздних версий не могу утвержать, но по крайней мере если у вас на руках полный образ дельфи 7 (у меня например такой), там присутсвует спец программка InstallShield.

[Lenok]

Привет всем, вопрос...

var
EXL: OLEVariant;
Path:string;
a:integer; // твоя переменная
begin
Path:='d:\file.xls'; // тут путь к файлу экселя
EXL := CreateOleObject('Excel.Application');
EXL.Visible := False;
EXL.Workbooks.Open(Path);
a:=EXL.Cells[1, 1].Value;// присвоить переменной значение из ячейки 1-1
EXL.Quit
end;

Как сделать так, что бы путь к екселю менялся в зависимости от носителя.
Например: когда сохранила на флешке путь был Path:='G:\диплом\Лена\прог с кнопками\Metall1.xls'; // тут путь к файлу экселя, пренеся флешку на другой компьютер, программа написала что не может найти данный путь.

[Страдалецъ]

Попробуйте так:

Код:

Path := ExtractFilePath(Application.ExeName)+'file.xls';

[Lenok]

В дельфе кабы есть эта тема) Насчет поздних версий не могу утвержать, но по крайней мере если у вас на руках полный образ дельфи 7 (у меня например такой), там присутсвует спец программка InstallShield.

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

[Lenok]

Страдалецъ , СПАСИБО ВАМ ОГРОМНОЕ!!!
А можно еще вопрос?! У меня на форме лежат: кнопки speedbutton, radiogroup1, radiogroup2, edit1, edit2, edit3, edit4, edit5. Вот мне нужно сделать так, что бы после нажатия кнопки "Распечатать", название speedbutton, название radiogroup1 и название выбранного radiobutton,название radiogroup2 и название выбранного radiobutton, данные из edit1, edit2, edit3, edit4, edit5 перемещались в excel или word в виде печатной формы.

я наверное совсем обнаглела, извините меня

[Страдалецъ]

Тут уже парой строчек не отделаться. Посмотрите примеры работы либо здесь на форуме, либо скачайте неплохой пример отсюда http://www.delphisite.ru/ishodniki/r...cell-iz-delphi

[Lenok]

procedure TForm1.SpeedButton18Click(Sender: TObject);
var
Excel, WorkBook, Sheet: Variant;
begin
Excel:=CreateOleObject('Excel.Application'); // для остальных
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add;
Sheet:=WorkBook.WorkSheets[1];
Sheet.Cells.VerticalAlignment:=xlCenter;
Sheet.Cells[2, 1]:='Вид изделия';
Sheet.Cells[5, 5]:='XX___1___XX';
Sheet.Cells.Columns.AutoFit;
Excel.Visible:=True;
end;

Этот код более или менее подходит, но есть проблема...как ячейкам присвоить не просто текст, а текст из Edit, или название(Caption) speedbutton, а еще название radiogroup1 и radiogroup2, и еще один момент выбранный из radiogroup1 и radiogroup2 radiobutton

[Страдалецъ]

Для RadioGroup можно сделать так:

Код:

for i := 0 to RadioGroup1.Items.Count - 1
do begin
   Sheet.Cells[i+1, 1] := RadioGroup1.Items.Strings[i];
   if RadioGroup1.ItemIndex = i
   then Sheet.Cells[i+1, 2] := 'Да'
   else Sheet.Cells[i+1, 2] := 'Нет';
   end;

По аналогии и с остальными компонентами можно поступить.