[Lenok]

Привет, мне нужна помощь...
Переслать цифры из MS Exsel в StringGrid, а потом эти цифры присвоить переменным для использования в расчетных формулах (что-то вроде а:=..., а потом а/2*в).
ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО!!!!!!

[Aristarh Dark]

Т.к. наработок я не вижу - то за очень дополнительные деньги.

[Lenok]

Всмысле...

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

В смысле, кроме просьбы о помощи надо-бы выложить код в котором эту помощь надо оказать. А иначе, как и сказал Aristarh Dark идите в работу.

[Lenok]

Код:

procedure TForm1.SpeedButton17Click(Sender: TObject);
begin

case radiogroup1.ItemIndex of
0: begin
if radiobutton1.Checked then
label6.Caption:='jgjgjgjgj'
else if radiobutton2.Checked then
label6.Caption:='jgjg1121'
end;
1: begin
if radiobutton1.Checked then
label6.Caption:='jgjgjgjgj'
else if radiobutton2.Checked then
label6.Caption:='jgjg1121'
end;
2: begin
if radiobutton1.Checked then
label6.Caption:='jgjgjgjgj'
else if radiobutton2.Checked then
label6.Caption:='jgjg1121'
end;
end;
end;

Admin: Пользуемся тегами!

Суть данной процедуры в том,ч то после нажатия кнопки - Расчет- происходит,вначале проверка, radiobutton в radiogroup1, далее происходит проверка radiobutton в radiogroup2. И взависимоти от того какой radiobutton выбран, применяется формула для математических расчетов. А цифры для данных расчетов находятся в Excel файле(там таьлица со значениями-цена товара и его коэффициент). Файл Excel необходим, что бы если поменяются цена и коэффициент не переписывать программу, а просто обновить Excel файл.

[Lenok]

Да, кстати, забыла сказать, что вместо label должно быть вывод конечного результата на экран через Edit

[Grunch]

http://articles.org.ru/cn/showdetail.php?cid=7013

[TOJluK]

Код:

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;

зы Код не проверял, могут быть ошибки и если я правильно понял твою проблему, то должно помочь. И еще, в uses не забудь указать Variants

[Lenok]

Спасибки за код, но он ругается воть на это слово CreateOleObject

[Lenok]

А еще вопрос...как сделать exe-приложение из файлов делфи?)))))

[TOJluK]

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

Спасибки за код, но он ругается воть на это слово CreateOleObject

ComObj еще в USES добавь

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

А еще вопрос...как сделать exe-приложение из файлов делфи?)))))

Не совсем понятно. Откомпилировать и в папке проекта будет exe файл.

[Lenok]

Нет, я имела ввиду, что...короче мне нужно прекрипить к сайту exe-приложение, а если прикрипить компилируемый ехе-файл, страница сайта требует дополнений делфи. Я не знаю как правильно описать...нужно архив или ехе-приложение, что бы не куча файлов,а один файл...например calc.exe...короче сама не поняла,что написала

[Aristarh Dark]

Lenok, может вам бросить заниматься программированием, от греха...

[Ferra]

Открываешь файл dpr своего приложения. Жмешь F9. Если всё прошло нормально, то в папке с исходниками получишь исполняемый файл.

[Lenok]

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