переписать модули программы

[fcdk_pavel]

есть программа работающая со StringGrid и Excel, нужно переписать чтобы она работала также, только со StringGrid и LibreOffice(calc).
http://files.mail.ru/A811827B241C461C87DD21BE41C77B96

[Человек_Борща]

Вам в раздел "Фриланс".

[Slym]

я вот от этого афигел....

procedure TForm3.Edit1Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit2Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit5Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit6Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit3Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit4Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit7Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit8Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;
procedure TForm3.Edit13Change(Sender: TObject);
begin
Button1.Enabled:= (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <>'')
  and (Edit5.Text<>'')and (Edit6.Text<>'')and (Edit7.Text<>'')and (Edit8.Text<>'') and (Edit13.Text<>'');
end;

а дальше!!! форма с 32 едитами и знаете что? 32 раза одно и тоже

[Stilet]

Тему перенес.

[Alex11223]

Путь к хелп файлу прикольный
Application.HelpFile := 'J:\APP\elektro\prog\Help.chm';
Юзеры недостойны чтения справки.

[Slym]

сравним 2 результата

procedure TForm5.Button1Click(Sender: TObject);
var n_zd424, k_zd424, rez_zd424, day, SN:Integer;
begin
//Организация ввода данных
n_zd424:=StrToInt(Edit1.Text);
k_zd424:=StrToInt(Edit2.Text);
day:=StrToInt(Edit3.Text);
//Расчеты
rez_zd424:=(n_zd424-k_zd424)*2;
// Проверка на отрицательные с расчетом, если отрицательные
if ((ComboBox1.Text='Январь') and (day<=29) and (rez_zd424<=0)) then
SN:=zd114+0+16 else
if ((ComboBox1.Text='Январь') and (day>29) and (rez_zd424<=0)) then

120 строк кода
и

procedure TForm5.Button2Click(Sender: TObject);
type
TXZ=record
D,L,H:integer;
end;
const Months:array[0..12] of string = (
'Январь','Февраль','Март',
'Апрель','Май','Июнь',
'Июль','Август','Сентябрь',
'Октябрь','Ноябрь','Декабрь','Февра ль(29 дней)');
const XZ:array[0..12] of TXZ=(
(D:29;L:16;H:18),(D:24;L:17;H:23),( D:29;L:16;H:18),
(D:28;L:16;H:26),(D:29;L:16;H:18),( D:28;L:16;H:26),
(D:29;L:16;H:18),(D:29;L:16;H:18),( D:28;L:16;H:26),
(D:29;L:16;H:18),(D:28;L:16;H:26),( D:29;L:16;H:18),(D:28;L:17;H:24));
var
Month, n_zd424, k_zd424, rez_zd424, day, SN:Integer;
begin
n_zd424:=StrToInt(Edit1.Text);
k_zd424:=StrToInt(Edit2.Text);
day:=StrToInt(Edit3.Text);
rez_zd424:=(n_zd424-k_zd424)*2;
Label7.Caption:=IntToStr(rez_zd424) ;

if rez_zd424<=0 then rez_zd424:=0;
Month:=AnsiIndexText(ComboBox1.Text ,Months);
if Month<>-1 then
if day<=XZ[Month].D then
SN:=zd114+rez_zd424+XZ[Month].L
else
SN:=zd114+rez_zd424+XZ[Month].H;

Edit4.Text:=IntToStr(SN);
Form5.Hide;
end;

34 строки кода, в более 3 раз быстрей на пессимистичном Феврале 29

[Человек_Борща]

О да... там много переписывать. Очень, очень. Но мозг взлетит раньше.

[Petrovi4]

ICQ: 324-783-266
e-mail: Petrovi486@gmail.com
Делаю быстро, качественно, не дорого.
Предоплаты не требую!!!

Скорее всего напишем заново.

[Avazart]

Только с нуля, по готовому ТЗ, пишите :

Icq 673574224
E-mail avazart@yandex.ua

Для прикладных программ использую Delphi/С++Builder/C++Qt
Работаю только с предоплатой 30%.