Пути повышения рентабельности производства Борисовского завода пластмассовых изделий
Дипломная работа - Экономика
Другие дипломы по предмету Экономика
xt:=DateToStr(Now);
end;
procedure TfrmContract.btnOkClick(Sender: TObject);
Var S : String;
R : Real;
begin
S:=edtDate.Text+Sep+edtPost.Text+Sep+edtSum.Text+Sep;
If edtPog.Font.Color=clRed Then edtPog.Text:=0;
S:=S+edtPog.Text+Sep;
R:=StrToFloat(edtSum.Text)-StrToFloat(edtPog.Text);
S:=S+FloatToStr(R);
With Form1 do If Index=-1 Then
Begin
Contr.Add(S);
1ThenForm1.SG.RowCount:=Form1.SG.RowCount+1;"> If Form1.Contr.Count>1 Then Form1.SG.RowCount:=Form1.SG.RowCount+1;
End Else Contr[Index]:=S;
Form1.SG.Repaint;
end;
end.