root / UFImpExp.pas @ 5
Historique | Voir | Annoter | Télécharger (45,36 ko)
| 1 | 3 | avalancogn | unit UFImpExp ;
|
|---|---|---|---|
| 2 | |||
| 3 | interface
|
||
| 4 | |||
| 5 | uses
|
||
| 6 | Windows, Forms, Classes, Controls, Dialogs, StdCtrls, Buttons, UVariables; |
||
| 7 | |||
| 8 | type
|
||
| 9 | TFImpExp = class(TForm)
|
||
| 10 | LBMatiere: TListBox; |
||
| 11 | GBMatiere: TGroupBox; |
||
| 12 | GBAliment: TGroupBox; |
||
| 13 | LBAliment: TListBox; |
||
| 14 | GBFichier: TGroupBox; |
||
| 15 | LBFichier: TListBox; |
||
| 16 | SBExpMat: TSpeedButton; |
||
| 17 | SBImpMat: TSpeedButton; |
||
| 18 | SBExpAli: TSpeedButton; |
||
| 19 | SBImpAli: TSpeedButton; |
||
| 20 | EFichier: TEdit; |
||
| 21 | SBFichier: TSpeedButton; |
||
| 22 | SDFichier: TSaveDialog; |
||
| 23 | LTypeMat: TLabel; |
||
| 24 | CBTypeMat: TComboBox; |
||
| 25 | LTypeAli: TLabel; |
||
| 26 | CBTypeAli: TComboBox; |
||
| 27 | GBExpr: TGroupBox; |
||
| 28 | LFibres: TLabel; |
||
| 29 | LGal: TLabel; |
||
| 30 | LCompo: TLabel; |
||
| 31 | LAA: TLabel; |
||
| 32 | LAG: TLabel; |
||
| 33 | LMacro: TLabel; |
||
| 34 | LOligo: TLabel; |
||
| 35 | LTFibres: TLabel; |
||
| 36 | LTOligo: TLabel; |
||
| 37 | LTMacro: TLabel; |
||
| 38 | LTAG: TLabel; |
||
| 39 | LTAA: TLabel; |
||
| 40 | LdAA: TLabel; |
||
| 41 | LTCompo: TLabel; |
||
| 42 | LdCompo: TLabel; |
||
| 43 | LRap: TLabel; |
||
| 44 | LDig: TLabel; |
||
| 45 | procedure FormShow(Sender: TObject);
|
||
| 46 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
||
| 47 | procedure FormActivate(Sender: TObject);
|
||
| 48 | procedure FormDeactivate(Sender: TObject);
|
||
| 49 | procedure SBFichierClick(Sender: TObject);
|
||
| 50 | procedure SBExpMatClick(Sender: TObject);
|
||
| 51 | procedure SBImpMatClick(Sender: TObject);
|
||
| 52 | procedure SBExpAliClick(Sender: TObject);
|
||
| 53 | procedure SBImpAliClick(Sender: TObject);
|
||
| 54 | procedure CBTypeMatChange(Sender: TObject);
|
||
| 55 | procedure CBTypeAliChange(Sender: TObject);
|
||
| 56 | procedure FormCreate(Sender: TObject);
|
||
| 57 | private
|
||
| 58 | { D?clarations priv?es }
|
||
| 59 | ModifMat, ModifAli: Boolean; |
||
| 60 | F: TextFile; |
||
| 61 | ListCSV: TList; |
||
| 62 | Separator: String;
|
||
| 63 | procedure SaveMat;
|
||
| 64 | procedure SaveAli;
|
||
| 65 | function GetInteger(var I: Integer; var Ch: Char): Boolean; |
||
| 66 | function GetDouble(var D: Double; var Ch: Char): Boolean; |
||
| 67 | function GetString(var S: string; var Ch: Char): Boolean; |
||
| 68 | procedure FormatInToOut(const recIn: PRecCSV; var recOut: PRecCSV); |
||
| 69 | procedure FormatOutToIn(const recOut: PRecCSV; var recIn: PRecCSV); |
||
| 70 | procedure PutCSV(recIn: PRecCSV);
|
||
| 71 | public
|
||
| 72 | { D?clarations publiques }
|
||
| 73 | procedure DisplayConfig;
|
||
| 74 | end;
|
||
| 75 | |||
| 76 | var
|
||
| 77 | FImpExp: TFImpExp; |
||
| 78 | |||
| 79 | implementation
|
||
| 80 | |||
| 81 | uses
|
||
| 82 | SysUtils, gnugettext, UStrings, UInit, UUtil, UFindRec, UFConfig; |
||
| 83 | |||
| 84 | {$R *.dfm}
|
||
| 85 | |||
| 86 | { TFImpExp }
|
||
| 87 | |||
| 88 | procedure TFImpExp.FormCreate(Sender: TObject);
|
||
| 89 | begin
|
||
| 90 | if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1 |
||
| 91 | then
|
||
| 92 | Font.Name := 'Arial Unicode MS';
|
||
| 93 | TranslateComponent(Self); |
||
| 94 | Constraints.MinWidth := 792 + (Width - ClientWidth);
|
||
| 95 | Width := Constraints.MinWidth; |
||
| 96 | Constraints.MinHeight := 416 + (Height - ClientHeight);
|
||
| 97 | Height := Constraints.MinHeight; |
||
| 98 | CBTypeMat.ItemIndex := 0;
|
||
| 99 | CBTypeAli.ItemIndex := 0;
|
||
| 100 | end;
|
||
| 101 | |||
| 102 | procedure TFImpExp.FormShow (Sender : TObject) ;
|
||
| 103 | begin
|
||
| 104 | ModifMat := FALSE ; |
||
| 105 | ModifAli := FALSE ; |
||
| 106 | ListCSV := TList.Create ; |
||
| 107 | Separator := ListSeparator; |
||
| 108 | // Ajustement du mode d'expression
|
||
| 109 | FConfig := TFConfig.Create(Self); // Cr?ation de la configuration
|
||
| 110 | DisplayConfig; // Affichage des libell?s
|
||
| 111 | FConfig.Release; // Lib?ration de la configuration
|
||
| 112 | end ;
|
||
| 113 | |||
| 114 | procedure TFImpExp.FormClose (Sender : TObject ; var Action : TCloseAction) ; |
||
| 115 | var
|
||
| 116 | i: Integer; |
||
| 117 | recIn: PRecCSV; |
||
| 118 | begin
|
||
| 119 | if ModifMat then SaveMat ; |
||
| 120 | if ModifAli then SaveAli ; |
||
| 121 | if ListCSV.Count > 0 |
||
| 122 | then
|
||
| 123 | for i := 0 to ListCSV.Count - 1 do |
||
| 124 | begin
|
||
| 125 | recIn := ListCSV[i]; |
||
| 126 | Dispose(recIn); |
||
| 127 | end;
|
||
| 128 | ListCSV.Free; |
||
| 129 | Action := caFree ; |
||
| 130 | NumWinImpExp := -1 ;
|
||
| 131 | end ;
|
||
| 132 | |||
| 133 | procedure TFImpExp.FormActivate (Sender : TObject) ;
|
||
| 134 | begin
|
||
| 135 | CBTypeMatChange (nil) ;
|
||
| 136 | CBTypeAliChange (nil) ;
|
||
| 137 | end ;
|
||
| 138 | |||
| 139 | procedure TFImpExp.FormDeactivate (Sender : TObject) ;
|
||
| 140 | begin
|
||
| 141 | if ModifMat then SaveMat ; |
||
| 142 | if ModifAli then SaveAli ; |
||
| 143 | end ;
|
||
| 144 | |||
| 145 | procedure TFImpExp.SaveMat ;
|
||
| 146 | begin
|
||
| 147 | ModifMat := FALSE ; |
||
| 148 | if MessageDlg (MsgSaveMat, mtConfirmation, [mbYes, mbNo], 0) = mrYes |
||
| 149 | then
|
||
| 150 | SaveMatiere |
||
| 151 | else
|
||
| 152 | LoadMatiere ; |
||
| 153 | end ;
|
||
| 154 | |||
| 155 | procedure TFImpExp.SaveAli ;
|
||
| 156 | begin
|
||
| 157 | ModifAli := FALSE ; |
||
| 158 | if MessageDlg (MsgSaveAli, mtConfirmation, [mbYes, mbNo], 0) = mrYes |
||
| 159 | then
|
||
| 160 | SaveAliment |
||
| 161 | else
|
||
| 162 | LoadAliment ; |
||
| 163 | end ;
|
||
| 164 | |||
| 165 | function TFImpExp.GetInteger (var I : Integer ; var Ch : Char) : Boolean ; |
||
| 166 | var
|
||
| 167 | S : string ;
|
||
| 168 | Fin : boolean ; |
||
| 169 | begin
|
||
| 170 | S := '' ;
|
||
| 171 | Read (F, Ch) ;
|
||
| 172 | Fin := (Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26)) ; |
||
| 173 | while not Fin do |
||
| 174 | begin
|
||
| 175 | S := S + Ch ; |
||
| 176 | Read (F, Ch) ;
|
||
| 177 | Fin := (Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26)) ; |
||
| 178 | end ;
|
||
| 179 | S := Trim (S) ; |
||
| 180 | result := TRUE ; |
||
| 181 | if Length (S) = 0 |
||
| 182 | then
|
||
| 183 | I := 0
|
||
| 184 | else
|
||
| 185 | try
|
||
| 186 | I := StrToInt (S) ; |
||
| 187 | except
|
||
| 188 | result := FALSE ; |
||
| 189 | end ;
|
||
| 190 | end ;
|
||
| 191 | |||
| 192 | function TFImpExp.GetDouble (var D : Double ; var Ch : Char) : Boolean ; |
||
| 193 | var
|
||
| 194 | S : string ;
|
||
| 195 | Fin : boolean ; |
||
| 196 | begin
|
||
| 197 | S := '' ;
|
||
| 198 | Read (F, Ch) ;
|
||
| 199 | Fin := (Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26)) ; |
||
| 200 | while not Fin do |
||
| 201 | begin
|
||
| 202 | S := S + Ch ; |
||
| 203 | Read (F, Ch) ;
|
||
| 204 | Fin := (Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26)) ; |
||
| 205 | end ;
|
||
| 206 | S := Trim (S) ; |
||
| 207 | result := TRUE ; |
||
| 208 | if Length (S) = 0 |
||
| 209 | then
|
||
| 210 | D := 0
|
||
| 211 | else
|
||
| 212 | try
|
||
| 213 | D := StrToFloat (S) ; |
||
| 214 | except
|
||
| 215 | result := FALSE ; |
||
| 216 | end ;
|
||
| 217 | end ;
|
||
| 218 | |||
| 219 | function TFImpExp.GetString (var S : string ; var Ch : Char) : Boolean ; |
||
| 220 | var
|
||
| 221 | Fin, Quoted : boolean ; |
||
| 222 | begin
|
||
| 223 | S := '' ;
|
||
| 224 | Read (F, Ch) ;
|
||
| 225 | Fin := (Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26)) ; |
||
| 226 | Quoted := (Ch = '"') ;
|
||
| 227 | if Quoted
|
||
| 228 | then
|
||
| 229 | begin
|
||
| 230 | Read (F, Ch) ;
|
||
| 231 | Fin := (Ch = Chr (26)) ;
|
||
| 232 | while not Fin do |
||
| 233 | begin
|
||
| 234 | if (Ch = '"') |
||
| 235 | then
|
||
| 236 | begin
|
||
| 237 | Read (F, Ch) ;
|
||
| 238 | Fin := (Ch <> '"') ;
|
||
| 239 | Quoted := not ((Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26))) ; |
||
| 240 | end ;
|
||
| 241 | if not Fin |
||
| 242 | then
|
||
| 243 | begin
|
||
| 244 | S := S + Ch ; |
||
| 245 | Read (F, Ch) ;
|
||
| 246 | Fin := (Ch = Chr (26)) ;
|
||
| 247 | end ;
|
||
| 248 | end ;
|
||
| 249 | end
|
||
| 250 | else
|
||
| 251 | while not Fin do |
||
| 252 | begin
|
||
| 253 | S := S + Ch ; |
||
| 254 | Read (F, Ch) ;
|
||
| 255 | Fin := (Ch = Separator) or (Ch = Chr (13)) or (Ch = Chr (26)) ; |
||
| 256 | end ;
|
||
| 257 | result := not Quoted ;
|
||
| 258 | end ;
|
||
| 259 | |||
| 260 | procedure TFImpExp.FormatInToOut(const recIn: PRecCSV; var recOut: PRecCSV); |
||
| 261 | var
|
||
| 262 | i: Integer; |
||
| 263 | RapMS, RapTcompo, RapTAA, RapTAG, RapTMacro, RapTOligo, RapTFibres, RapDCompo, RapDAA: Double; |
||
| 264 | begin
|
||
| 265 | recOut.Nom := recIn.Nom; |
||
| 266 | recOut.Memo := recIn.Memo; |
||
| 267 | recOut.Typ := recIn.Typ; |
||
| 268 | if ConfTCompo = 0 |
||
| 269 | then // g/kg |
||
| 270 | recOut.CC.MS := recIn.CC.MS |
||
| 271 | else // % |
||
| 272 | recOut.CC.MS := recIn.CC.MS / 1000 * 100; |
||
| 273 | if ConfRap = 0 |
||
| 274 | then // sur frais |
||
| 275 | RapMS := recIn.CC.MS / 1000
|
||
| 276 | else // sur mati?re s?che |
||
| 277 | RapMS := 1;
|
||
| 278 | if ConfTCompo = 0 |
||
| 279 | then // g/kg |
||
| 280 | RapTCompo := RapMS |
||
| 281 | else // % |
||
| 282 | RapTCompo := 100 / 1000 * RapMS; |
||
| 283 | recOut.CC.MM := recIn.CC.MM * RapTCompo; |
||
| 284 | recOut.CC.MO := recIn.CC.MO * RapTCompo; |
||
| 285 | recOut.CC.Lip := recIn.CC.Lip * RapTCompo; |
||
| 286 | recOut.CC.MAT := recIn.CC.MAT * RapTCompo; |
||
| 287 | recOut.CC.Amidon := recIn.CC.Amidon * RapTCompo; |
||
| 288 | recOut.CC.Sucres := recIn.CC.Sucres * RapTCompo; |
||
| 289 | if ConfDig = 0 |
||
| 290 | then // CUD |
||
| 291 | RapDCompo := 1
|
||
| 292 | else // Teneur digestible |
||
| 293 | if ConfdCompo = 0 |
||
| 294 | then // g/kg |
||
| 295 | RapDCompo := 1 / 100 * RapMS |
||
| 296 | else // % |
||
| 297 | RapDCompo := 1 / 1000 * RapMS; |
||
| 298 | if ConfDig = 0 |
||
| 299 | then // CUD |
||
| 300 | begin
|
||
| 301 | recOut.CC.dMO_T := recIn.CC.dMO_T * RapDCompo; |
||
| 302 | recOut.CC.dMO_C := recIn.CC.dMO_C * RapDCompo; |
||
| 303 | recOut.CC.dLip_T := recIn.CC.dLip_T * RapDCompo; |
||
| 304 | recOut.CC.dLip_C := recIn.CC.dLip_C * RapDCompo; |
||
| 305 | recOut.CC.dMAT_T := recIn.CC.dMAT_T * RapDCompo; |
||
| 306 | recOut.CC.dMAT_C := recIn.CC.dMAT_C * RapDCompo; |
||
| 307 | end
|
||
| 308 | else // Teneur digestible |
||
| 309 | begin
|
||
| 310 | recOut.CC.dMO_T := recIn.CC.dMO_T * recIn.CC.MO * RapDCompo; |
||
| 311 | recOut.CC.dMO_C := recIn.CC.dMO_C * recIn.CC.MO * RapDCompo; |
||
| 312 | recOut.CC.dLip_T := recIn.CC.dLip_T * recIn.CC.Lip * RapDCompo; |
||
| 313 | recOut.CC.dLip_C := recIn.CC.dLip_C * recIn.CC.Lip * RapDCompo; |
||
| 314 | recOut.CC.dMAT_T := recIn.CC.dMAT_T * recIn.CC.MAT * RapDCompo; |
||
| 315 | recOut.CC.dMAT_C := recIn.CC.dMAT_C * recIn.CC.MAT * RapDCompo; |
||
| 316 | end;
|
||
| 317 | recOut.CC.EB := recIn.CC.EB * RapMS; |
||
| 318 | recOut.CC.ED_T := recIn.CC.ED_T * RapMS; |
||
| 319 | recOut.CC.ED_C := recIn.CC.ED_C * RapMS; |
||
| 320 | recOut.CC.EM_T := recIn.CC.EM_T * RapMS; |
||
| 321 | recOut.CC.EM_C := recIn.CC.EM_C * RapMS; |
||
| 322 | recOut.CC.EN_T := recIn.CC.EN_T * RapMS; |
||
| 323 | recOut.CC.EN_C := recIn.CC.EN_C * RapMS; |
||
| 324 | if ConfTMacro = 0 |
||
| 325 | then // g/kg |
||
| 326 | RapTMacro := RapMS |
||
| 327 | else // % |
||
| 328 | RapTMacro := 100 / 1000 * RapMS; |
||
| 329 | recOut.CC.Ca := recIn.CC.Ca * RapTMacro; |
||
| 330 | recOut.CC.P := recIn.CC.P * RapTMacro; |
||
| 331 | recOut.CC.Na := recIn.CC.Na * RapTMacro; |
||
| 332 | recOut.CC.K := recIn.CC.K * RapTMacro; |
||
| 333 | recOut.CC.Mg := recIn.CC.Mg * RapTMacro; |
||
| 334 | recOut.CC.Cl := recIn.CC.Cl * RapTMacro; |
||
| 335 | recOut.CC.S := recIn.CC.S * RapTMacro; |
||
| 336 | if ConfTOligo = 0 |
||
| 337 | then // mg/kg |
||
| 338 | RapTOligo := RapMS |
||
| 339 | else // % |
||
| 340 | RapTOligo := 100 / 1000000 * RapMS; |
||
| 341 | recOut.CC.Cu := recIn.CC.Cu * RapTOligo; |
||
| 342 | recOut.CC.Zn := recIn.CC.Zn * RapTOligo; |
||
| 343 | recOut.CC.Mn := recIn.CC.Mn * RapTOligo; |
||
| 344 | recOut.CC.Fe := recIn.CC.Fe * RapTOligo; |
||
| 345 | recOut.CC.Se := recIn.CC.Se * RapTOligo; |
||
| 346 | recOut.CC.Co := recIn.CC.Co * RapTOligo; |
||
| 347 | recOut.CC.Mb := recIn.CC.Mb * RapTOligo; |
||
| 348 | recOut.CC.I := recIn.CC.I * RapTOligo; |
||
| 349 | recOut.CC.PdigG := recIn.CC.PdigG * RapMS; |
||
| 350 | recOut.CC.PdigF := recIn.CC.PdigF * RapMS; |
||
| 351 | recOut.CC.Phytase := recIn.CC.Phytase; |
||
| 352 | recOut.CC.ActPhytE := recIn.CC.ActPhytE * RapMS; |
||
| 353 | recOut.CC.ActPhytM := recIn.CC.ActPhytM * RapMS; |
||
| 354 | recOut.CC.AGsLip := recIn.CC.AGsLip; |
||
| 355 | case ConfTAG of |
||
| 356 | 0 : // g/kg |
||
| 357 | RapTAG := 1000 / 100 * recIn.CC.AGsLip / 100 * recIn.CC.Lip / 1000 * RapMS; |
||
| 358 | 1 : // % |
||
| 359 | RapTAG := recIn.CC.AGsLip / 100 * recIn.CC.Lip / 1000 * RapMS; |
||
| 360 | else // % acides gras |
||
| 361 | RapTAG := 1;
|
||
| 362 | end;
|
||
| 363 | recOut.CC.C6C8C10 := recIn.CC.C6C8C10 * RapTAG; |
||
| 364 | recOut.CC.C12_0 := recIn.CC.C12_0 * RapTAG; |
||
| 365 | recOut.CC.C14_0 := recIn.CC.C14_0 * RapTAG; |
||
| 366 | recOut.CC.C16_0 := recIn.CC.C16_0 * RapTAG; |
||
| 367 | recOut.CC.C16_1 := recIn.CC.C16_1 * RapTAG; |
||
| 368 | recOut.CC.C18_0 := recIn.CC.C18_0 * RapTAG; |
||
| 369 | recOut.CC.C18_1 := recIn.CC.C18_1 * RapTAG; |
||
| 370 | recOut.CC.C18_2 := recIn.CC.C18_2 * RapTAG; |
||
| 371 | recOut.CC.C18_3 := recIn.CC.C18_3 * RapTAG; |
||
| 372 | recOut.CC.C18_4 := recIn.CC.C18_4 * RapTAG; |
||
| 373 | recOut.CC.C20_0 := recIn.CC.C20_0 * RapTAG; |
||
| 374 | recOut.CC.C20_1 := recIn.CC.C20_1 * RapTAG; |
||
| 375 | recOut.CC.C20_4 := recIn.CC.C20_4 * RapTAG; |
||
| 376 | recOut.CC.C20_5 := recIn.CC.C20_5 * RapTAG; |
||
| 377 | recOut.CC.C22_0 := recIn.CC.C22_0 * RapTAG; |
||
| 378 | recOut.CC.C22_1 := recIn.CC.C22_1 * RapTAG; |
||
| 379 | recOut.CC.C22_5 := recIn.CC.C22_5 * RapTAG; |
||
| 380 | recOut.CC.C22_6 := recIn.CC.C22_6 * RapTAG; |
||
| 381 | recOut.CC.C24_0 := recIn.CC.C24_0 * RapTAG; |
||
| 382 | if ConfTFibres = 0 |
||
| 383 | then // g/kg |
||
| 384 | RapTFibres := RapMS |
||
| 385 | else // % |
||
| 386 | RapTFibres := 100 / 1000 * RapMS; |
||
| 387 | recOut.CC.CB := recIn.CC.CB * RapTFibres; |
||
| 388 | if ConfDig = 0 |
||
| 389 | then // CUD |
||
| 390 | begin
|
||
| 391 | recOut.CC.dCB_T := recIn.CC.dCB_T * RapDCompo; |
||
| 392 | recOut.CC.dCB_C := recIn.CC.dCB_C * RapDCompo; |
||
| 393 | end
|
||
| 394 | else // Teneur digestible |
||
| 395 | begin
|
||
| 396 | recOut.CC.dCB_T := recIn.CC.dCB_T * recIn.CC.CB * RapDCompo; |
||
| 397 | recOut.CC.dCB_C := recIn.CC.dCB_C * recIn.CC.CB * RapDCompo; |
||
| 398 | end;
|
||
| 399 | recOut.CC.Residu := recIn.CC.Residu * RapTCompo; |
||
| 400 | if ConfDig = 0 |
||
| 401 | then // CUD |
||
| 402 | begin
|
||
| 403 | recOut.CC.dResidu_T := recIn.CC.dResidu_T * RapDCompo; |
||
| 404 | recOut.CC.dResidu_C := recIn.CC.dResidu_C * RapDCompo; |
||
| 405 | end
|
||
| 406 | else // Teneur digestible |
||
| 407 | begin
|
||
| 408 | recOut.CC.dResidu_T := recIn.CC.dResidu_T * recIn.CC.Residu * RapDCompo; |
||
| 409 | recOut.CC.dResidu_C := recIn.CC.dResidu_C * recIn.CC.Residu * RapDCompo; |
||
| 410 | end;
|
||
| 411 | recOut.CC.NDF := recIn.CC.NDF * RapTFibres; |
||
| 412 | recOut.CC.ADF := recIn.CC.ADF * RapTFibres; |
||
| 413 | recOut.CC.ADL := recIn.CC.ADL * RapTFibres; |
||
| 414 | recOut.CC.Parois := recIn.CC.Parois * RapTFibres; |
||
| 415 | case ConfTAA of |
||
| 416 | 1 : // % |
||
| 417 | RapTAA := 100 / 1000 * RapMS; |
||
| 418 | 2 : // % MAT |
||
| 419 | if recIn.CC.MAT = 0 |
||
| 420 | then
|
||
| 421 | RapTAA := 0
|
||
| 422 | else
|
||
| 423 | RapTAA := 100 / recIn.CC.MAT;
|
||
| 424 | else // g/kg |
||
| 425 | RapTAA := RapMS; |
||
| 426 | end;
|
||
| 427 | for i := 1 to 12 do |
||
| 428 | recOut.AAtotal[i] := recIn.AAtotal[i] * RapTAA; |
||
| 429 | if ConfDig = 0 |
||
| 430 | then // CUD |
||
| 431 | RapDAA := 1
|
||
| 432 | else // Teneur digestible |
||
| 433 | if ConfdAA = 0 |
||
| 434 | then // g/kg |
||
| 435 | RapDAA := 1 / 100 * RapMS |
||
| 436 | else // % |
||
| 437 | RapDAA := 1 / 1000 * RapMS; |
||
| 438 | for i := 0 to 12 do |
||
| 439 | if ConfDig = 0 |
||
| 440 | then // CUD |
||
| 441 | recOut.CUDAA[i] := recIn.CUDAA[i] * RapDAA |
||
| 442 | else // Teneur digestible |
||
| 443 | recOut.CUDAA[i] := recIn.CUDAA[i] * recIn.AAtotal[i] * RapDAA; |
||
| 444 | end;
|
||
| 445 | |||
| 446 | procedure TFImpExp.FormatOutToIn(const recOut: PRecCSV; var recIn: PRecCSV); |
||
| 447 | var
|
||
| 448 | i: Integer; |
||
| 449 | RapMS, RapTcompo, RapTAA, RapTAG, RapTMacro, RapTOligo, RapTFibres, RapDCompo, RapDAA: Double; |
||
| 450 | begin
|
||
| 451 | recIn.Nom := recOut.Nom; |
||
| 452 | recIn.Memo := recOut.Memo; |
||
| 453 | recIn.Typ := recOut.Typ; |
||
| 454 | if ConfTCompo = 0 |
||
| 455 | then // g/kg |
||
| 456 | recIn.CC.MS := recOut.CC.MS |
||
| 457 | else // % |
||
| 458 | recIn.CC.MS := recOut.CC.MS / 100 * 1000; |
||
| 459 | if ConfRap = 0 |
||
| 460 | then // sur frais |
||
| 461 | if recIn.CC.MS = 0 |
||
| 462 | then
|
||
| 463 | RapMS := 0
|
||
| 464 | else
|
||
| 465 | RapMS := 1000 / recIn.CC.MS
|
||
| 466 | else // sur mati?re s?che |
||
| 467 | RapMS := 1;
|
||
| 468 | if ConfTCompo = 0 |
||
| 469 | then // g/kg |
||
| 470 | RapTCompo := RapMS |
||
| 471 | else // % |
||
| 472 | RapTCompo := 1000 / 100 * RapMS; |
||
| 473 | recIn.CC.MM := recOut.CC.MM * RapTCompo; |
||
| 474 | recIn.CC.MO := recOut.CC.MO * RapTCompo; |
||
| 475 | recIn.CC.Lip := recOut.CC.Lip * RapTCompo; |
||
| 476 | recIn.CC.MAT := recOut.CC.MAT * RapTCompo; |
||
| 477 | recIn.CC.Amidon := recOut.CC.Amidon * RapTCompo; |
||
| 478 | recIn.CC.Sucres := recOut.CC.Sucres * RapTCompo; |
||
| 479 | if ConfDig = 0 |
||
| 480 | then // CUD |
||
| 481 | RapDCompo := 1
|
||
| 482 | else // Teneur digestible |
||
| 483 | if ConfdCompo = 0 |
||
| 484 | then // g/kg |
||
| 485 | RapDCompo := 100 * RapMS
|
||
| 486 | else // % |
||
| 487 | RapDCompo := 1000 * RapMS;
|
||
| 488 | if ConfDig = 0 |
||
| 489 | then // CUD |
||
| 490 | begin
|
||
| 491 | recIn.CC.dMO_T := recOut.CC.dMO_T * RapDCompo; |
||
| 492 | recIn.CC.dMO_C := recOut.CC.dMO_C * RapDCompo; |
||
| 493 | recIn.CC.dLip_T := recOut.CC.dLip_T * RapDCompo; |
||
| 494 | recIn.CC.dLip_C := recOut.CC.dLip_C * RapDCompo; |
||
| 495 | recIn.CC.dMAT_T := recOut.CC.dMAT_T * RapDCompo; |
||
| 496 | recIn.CC.dMAT_C := recOut.CC.dMAT_C * RapDCompo; |
||
| 497 | end
|
||
| 498 | else // Teneur digestible |
||
| 499 | begin
|
||
| 500 | if recIn.CC.MO = 0 |
||
| 501 | then
|
||
| 502 | begin
|
||
| 503 | recIn.CC.dMO_T := 0;
|
||
| 504 | recIn.CC.dMO_C := 0;
|
||
| 505 | end
|
||
| 506 | else
|
||
| 507 | begin
|
||
| 508 | recIn.CC.dMO_T := recOut.CC.dMO_T / recIn.CC.MO * RapDCompo; |
||
| 509 | recIn.CC.dMO_C := recOut.CC.dMO_C / recIn.CC.MO * RapDCompo; |
||
| 510 | end;
|
||
| 511 | if recIn.CC.Lip = 0 |
||
| 512 | then
|
||
| 513 | begin
|
||
| 514 | recIn.CC.dLip_T := 0;
|
||
| 515 | recIn.CC.dLip_C := 0;
|
||
| 516 | end
|
||
| 517 | else
|
||
| 518 | begin
|
||
| 519 | recIn.CC.dLip_T := recOut.CC.dLip_T / recIn.CC.Lip * RapDCompo; |
||
| 520 | recIn.CC.dLip_C := recOut.CC.dLip_C / recIn.CC.Lip * RapDCompo; |
||
| 521 | end;
|
||
| 522 | if recIn.CC.MAT = 0 |
||
| 523 | then
|
||
| 524 | begin
|
||
| 525 | recIn.CC.dMAT_T := 0;
|
||
| 526 | recIn.CC.dMAT_C := 0;
|
||
| 527 | end
|
||
| 528 | else
|
||
| 529 | begin
|
||
| 530 | recIn.CC.dMAT_T := recOut.CC.dMAT_T / recIn.CC.MAT * RapDCompo; |
||
| 531 | recIn.CC.dMAT_C := recOut.CC.dMAT_C / recIn.CC.MAT * RapDCompo; |
||
| 532 | end;
|
||
| 533 | end;
|
||
| 534 | recIn.CC.EB := recOut.CC.EB * RapMS; |
||
| 535 | recIn.CC.ED_T := recOut.CC.ED_T * RapMS; |
||
| 536 | recIn.CC.ED_C := recOut.CC.ED_C * RapMS; |
||
| 537 | recIn.CC.EM_T := recOut.CC.EM_T * RapMS; |
||
| 538 | recIn.CC.EM_C := recOut.CC.EM_C * RapMS; |
||
| 539 | recIn.CC.EN_T := recOut.CC.EN_T * RapMS; |
||
| 540 | recIn.CC.EN_C := recOut.CC.EN_C * RapMS; |
||
| 541 | if ConfTMacro = 0 |
||
| 542 | then // g/kg |
||
| 543 | RapTMacro := RapMS |
||
| 544 | else // % |
||
| 545 | RapTMacro := 1000 / 100 * RapMS; |
||
| 546 | recIn.CC.Ca := recOut.CC.Ca * RapTMacro; |
||
| 547 | recIn.CC.P := recOut.CC.P * RapTMacro; |
||
| 548 | recIn.CC.Na := recOut.CC.Na * RapTMacro; |
||
| 549 | recIn.CC.K := recOut.CC.K * RapTMacro; |
||
| 550 | recIn.CC.Mg := recOut.CC.Mg * RapTMacro; |
||
| 551 | recIn.CC.Cl := recOut.CC.Cl * RapTMacro; |
||
| 552 | recIn.CC.S := recOut.CC.S * RapTMacro; |
||
| 553 | if ConfTOligo = 0 |
||
| 554 | then // mg/kg |
||
| 555 | RapTOligo := RapMS |
||
| 556 | else // % |
||
| 557 | RapTOligo := 1000000 / 100 * RapMS; |
||
| 558 | recIn.CC.Cu := recOut.CC.Cu * RapTOligo; |
||
| 559 | recIn.CC.Zn := recOut.CC.Zn * RapTOligo; |
||
| 560 | recIn.CC.Mn := recOut.CC.Mn * RapTOligo; |
||
| 561 | recIn.CC.Fe := recOut.CC.Fe * RapTOligo; |
||
| 562 | recIn.CC.Se := recOut.CC.Se * RapTOligo; |
||
| 563 | recIn.CC.Co := recOut.CC.Co * RapTOligo; |
||
| 564 | recIn.CC.Mb := recOut.CC.Mb * RapTOligo; |
||
| 565 | recIn.CC.I := recOut.CC.I * RapTOligo; |
||
| 566 | recIn.CC.PdigG := recOut.CC.PdigG * RapMS; |
||
| 567 | recIn.CC.PdigF := recOut.CC.PdigF * RapMS; |
||
| 568 | recIn.CC.Phytase := recOut.CC.Phytase; |
||
| 569 | recIn.CC.ActPhytE := recOut.CC.ActPhytE * RapMS; |
||
| 570 | recIn.CC.ActPhytM := recOut.CC.ActPhytM * RapMS; |
||
| 571 | recIn.CC.AGsLip := recOut.CC.AGsLip; |
||
| 572 | case ConfTAG of |
||
| 573 | 0 : // g/kg |
||
| 574 | if (recIn.CC.AGsLip = 0) or (recIn.CC.Lip = 0) |
||
| 575 | then
|
||
| 576 | RapTAG := 0
|
||
| 577 | else
|
||
| 578 | RapTAG := 100 / 1000 / recIn.CC.AGsLip * 100 / recIn.CC.Lip * 1000 * RapMS; |
||
| 579 | 1 : // % |
||
| 580 | if (recIn.CC.AGsLip = 0) or (recIn.CC.Lip = 0) |
||
| 581 | then
|
||
| 582 | RapTAG := 0
|
||
| 583 | else
|
||
| 584 | RapTAG := 1 / recIn.CC.AGsLip * 100 / recIn.CC.Lip * 1000 * RapMS; |
||
| 585 | else // % acides gras |
||
| 586 | RapTAG := 1;
|
||
| 587 | end;
|
||
| 588 | recIn.CC.C6C8C10 := recOut.CC.C6C8C10 * RapTAG; |
||
| 589 | recIn.CC.C12_0 := recOut.CC.C12_0 * RapTAG; |
||
| 590 | recIn.CC.C14_0 := recOut.CC.C14_0 * RapTAG; |
||
| 591 | recIn.CC.C16_0 := recOut.CC.C16_0 * RapTAG; |
||
| 592 | recIn.CC.C16_1 := recOut.CC.C16_1 * RapTAG; |
||
| 593 | recIn.CC.C18_0 := recOut.CC.C18_0 * RapTAG; |
||
| 594 | recIn.CC.C18_1 := recOut.CC.C18_1 * RapTAG; |
||
| 595 | recIn.CC.C18_2 := recOut.CC.C18_2 * RapTAG; |
||
| 596 | recIn.CC.C18_3 := recOut.CC.C18_3 * RapTAG; |
||
| 597 | recIn.CC.C18_4 := recOut.CC.C18_4 * RapTAG; |
||
| 598 | recIn.CC.C20_0 := recOut.CC.C20_0 * RapTAG; |
||
| 599 | recIn.CC.C20_1 := recOut.CC.C20_1 * RapTAG; |
||
| 600 | recIn.CC.C20_4 := recOut.CC.C20_4 * RapTAG; |
||
| 601 | recIn.CC.C20_5 := recOut.CC.C20_5 * RapTAG; |
||
| 602 | recIn.CC.C22_0 := recOut.CC.C22_0 * RapTAG; |
||
| 603 | recIn.CC.C22_1 := recOut.CC.C22_1 * RapTAG; |
||
| 604 | recIn.CC.C22_5 := recOut.CC.C22_5 * RapTAG; |
||
| 605 | recIn.CC.C22_6 := recOut.CC.C22_6 * RapTAG; |
||
| 606 | recIn.CC.C24_0 := recOut.CC.C24_0 * RapTAG; |
||
| 607 | if ConfTFibres = 0 |
||
| 608 | then // g/kg |
||
| 609 | RapTFibres := RapMS |
||
| 610 | else // % |
||
| 611 | RapTFibres := 1000 / 100 * RapMS; |
||
| 612 | recIn.CC.CB := recOut.CC.CB * RapTFibres; |
||
| 613 | if ConfDig = 0 |
||
| 614 | then // CUD |
||
| 615 | begin
|
||
| 616 | recIn.CC.dCB_T := recOut.CC.dCB_T * RapDCompo; |
||
| 617 | recIn.CC.dCB_C := recOut.CC.dCB_C * RapDCompo; |
||
| 618 | end
|
||
| 619 | else // Teneur digestible |
||
| 620 | if recIn.CC.CB = 0 |
||
| 621 | then
|
||
| 622 | begin
|
||
| 623 | recIn.CC.dCB_T := 0;
|
||
| 624 | recIn.CC.dCB_C := 0;
|
||
| 625 | end
|
||
| 626 | else
|
||
| 627 | begin
|
||
| 628 | recIn.CC.dCB_T := recOut.CC.dCB_T / recIn.CC.CB * RapDCompo; |
||
| 629 | recIn.CC.dCB_C := recOut.CC.dCB_C / recIn.CC.CB * RapDCompo; |
||
| 630 | end;
|
||
| 631 | recIn.CC.Residu := recOut.CC.Residu * RapTCompo; |
||
| 632 | if ConfDig = 0 |
||
| 633 | then // CUD |
||
| 634 | begin
|
||
| 635 | recIn.CC.dResidu_T := recOut.CC.dResidu_T * RapDCompo; |
||
| 636 | recIn.CC.dResidu_C := recOut.CC.dResidu_C * RapDCompo; |
||
| 637 | end
|
||
| 638 | else // Teneur digestible |
||
| 639 | if recIn.CC.Residu = 0 |
||
| 640 | then
|
||
| 641 | begin
|
||
| 642 | recIn.CC.dResidu_T := 0;
|
||
| 643 | recIn.CC.dResidu_C := 0;
|
||
| 644 | end
|
||
| 645 | else
|
||
| 646 | begin
|
||
| 647 | recIn.CC.dResidu_T := recOut.CC.dResidu_T / recIn.CC.Residu * RapDCompo; |
||
| 648 | recIn.CC.dResidu_C := recOut.CC.dResidu_C / recIn.CC.Residu * RapDCompo; |
||
| 649 | end;
|
||
| 650 | recIn.CC.NDF := recOut.CC.NDF * RapTFibres; |
||
| 651 | recIn.CC.ADF := recOut.CC.ADF * RapTFibres; |
||
| 652 | recIn.CC.ADL := recOut.CC.ADL * RapTFibres; |
||
| 653 | recIn.CC.Parois := recOut.CC.Parois * RapTFibres; |
||
| 654 | case ConfTAA of |
||
| 655 | 1 : // % |
||
| 656 | RapTAA := 1000 / 100 * RapMS; |
||
| 657 | 2 : // % MAT |
||
| 658 | RapTAA := recIn.CC.MAT / 100;
|
||
| 659 | else // g/kg |
||
| 660 | RapTAA := RapMS; |
||
| 661 | end;
|
||
| 662 | recIn.AAtotal[0] := recIn.CC.MAT;
|
||
| 663 | for i := 1 to 12 do |
||
| 664 | recIn.AAtotal[i] := recOut.AAtotal[i] * RapTAA; |
||
| 665 | if ConfDig = 0 |
||
| 666 | then // CUD |
||
| 667 | RapDAA := 1
|
||
| 668 | else // Teneur digestible |
||
| 669 | if ConfdAA = 0 |
||
| 670 | then // g/kg |
||
| 671 | RapDAA := 100 * RapMS
|
||
| 672 | else // % |
||
| 673 | RapDAA := 1000 * RapMS;
|
||
| 674 | for i := 0 to 12 do |
||
| 675 | if ConfDig = 0 |
||
| 676 | then // CUD |
||
| 677 | recIn.CUDAA[i] := recOut.CUDAA[i] * RapDAA |
||
| 678 | else // Teneur digestible |
||
| 679 | if recIn.AAtotal[i] = 0 |
||
| 680 | then
|
||
| 681 | recIn.CUDAA[i] := 0
|
||
| 682 | else
|
||
| 683 | recIn.CUDAA[i] := recOut.CUDAA[i] / recIn.AAtotal[i] * RapDAA; |
||
| 684 | end;
|
||
| 685 | |||
| 686 | procedure TFImpExp.PutCSV(recIn: PRecCSV);
|
||
| 687 | var
|
||
| 688 | i: Integer; |
||
| 689 | recOut: PRecCSV; |
||
| 690 | begin
|
||
| 691 | New(recOut); |
||
| 692 | FormatInToOut(recIn, recOut); |
||
| 693 | Append(f); |
||
| 694 | with recOut^ do |
||
| 695 | begin
|
||
| 696 | Write(f, AnsiQuotedStr(Nom, '"')); |
||
| 697 | Write(f, Separator, AnsiQuotedStr(Memo, '"')); |
||
| 698 | Write(f, Separator, Format('%d', [Typ])); |
||
| 699 | // Composition ?l?mentaire
|
||
| 700 | if ConfTCompo = 0 |
||
| 701 | then // g/kg |
||
| 702 | begin
|
||
| 703 | Write(f, Separator, Format('%1.1f', [CC.MS])); |
||
| 704 | Write(f, Separator, Format('%1.1f', [CC.MM])); |
||
| 705 | Write(f, Separator, Format('%1.1f', [CC.MO])); |
||
| 706 | Write(f, Separator, Format('%1.1f', [CC.Lip])); |
||
| 707 | Write(f, Separator, Format('%1.1f', [CC.MAT])); |
||
| 708 | Write(f, Separator, Format('%1.1f', [CC.Amidon])); |
||
| 709 | Write(f, Separator, Format('%1.1f', [CC.Sucres])); |
||
| 710 | end
|
||
| 711 | else // % |
||
| 712 | begin
|
||
| 713 | Write(f, Separator, Format('%1.2f', [CC.MS])); |
||
| 714 | Write(f, Separator, Format('%1.2f', [CC.MM])); |
||
| 715 | Write(f, Separator, Format('%1.2f', [CC.MO])); |
||
| 716 | Write(f, Separator, Format('%1.2f', [CC.Lip])); |
||
| 717 | Write(f, Separator, Format('%1.2f', [CC.MAT])); |
||
| 718 | Write(f, Separator, Format('%1.2f', [CC.Amidon])); |
||
| 719 | Write(f, Separator, Format('%1.2f', [CC.Sucres])); |
||
| 720 | end;
|
||
| 721 | if (ConfDig = 0) |
||
| 722 | then // CUD |
||
| 723 | begin
|
||
| 724 | Write(f, Separator, Format('%1.1f', [CC.dMO_T])); |
||
| 725 | Write(f, Separator, Format('%1.1f', [CC.dMO_C])); |
||
| 726 | Write(f, Separator, Format('%1.1f', [CC.dLip_T])); |
||
| 727 | Write(f, Separator, Format('%1.1f', [CC.dLip_C])); |
||
| 728 | Write(f, Separator, Format('%1.1f', [CC.dMAT_T])); |
||
| 729 | Write(f, Separator, Format('%1.1f', [CC.dMAT_C])); |
||
| 730 | end
|
||
| 731 | else // Teneur digestible |
||
| 732 | if ConfdCompo = 0 |
||
| 733 | then // g/kg |
||
| 734 | begin
|
||
| 735 | Write(f, Separator, Format('%1.1f', [CC.dMO_T])); |
||
| 736 | Write(f, Separator, Format('%1.1f', [CC.dMO_C])); |
||
| 737 | Write(f, Separator, Format('%1.1f', [CC.dLip_T])); |
||
| 738 | Write(f, Separator, Format('%1.1f', [CC.dLip_C])); |
||
| 739 | Write(f, Separator, Format('%1.1f', [CC.dMAT_T])); |
||
| 740 | Write(f, Separator, Format('%1.1f', [CC.dMAT_C])); |
||
| 741 | end
|
||
| 742 | else // % |
||
| 743 | begin
|
||
| 744 | Write(f, Separator, Format('%1.2f', [CC.dMO_T])); |
||
| 745 | Write(f, Separator, Format('%1.2f', [CC.dMO_C])); |
||
| 746 | Write(f, Separator, Format('%1.2f', [CC.dLip_T])); |
||
| 747 | Write(f, Separator, Format('%1.2f', [CC.dLip_C])); |
||
| 748 | Write(f, Separator, Format('%1.2f', [CC.dMAT_T])); |
||
| 749 | Write(f, Separator, Format('%1.2f', [CC.dMAT_C])); |
||
| 750 | end;
|
||
| 751 | Write(f, Separator, Format('%1.2f', [CC.EB])); |
||
| 752 | Write(f, Separator, Format('%1.2f', [CC.ED_T])); |
||
| 753 | Write(f, Separator, Format('%1.2f', [CC.ED_C])); |
||
| 754 | Write(f, Separator, Format('%1.2f', [CC.EM_T])); |
||
| 755 | Write(f, Separator, Format('%1.2f', [CC.EM_C])); |
||
| 756 | Write(f, Separator, Format('%1.2f', [CC.EN_T])); |
||
| 757 | Write(f, Separator, Format('%1.2f', [CC.EN_C])); |
||
| 758 | // Min?raux
|
||
| 759 | if ConfTMacro = 0 |
||
| 760 | then // g/kg |
||
| 761 | begin
|
||
| 762 | Write(f, Separator, Format('%1.2f', [CC.Ca])); |
||
| 763 | Write(f, Separator, Format('%1.2f', [CC.P])); |
||
| 764 | Write(f, Separator, Format('%1.2f', [CC.Na])); |
||
| 765 | Write(f, Separator, Format('%1.2f', [CC.K])); |
||
| 766 | Write(f, Separator, Format('%1.2f', [CC.Mg])); |
||
| 767 | Write(f, Separator, Format('%1.2f', [CC.Cl])); |
||
| 768 | Write(f, Separator, Format('%1.2f', [CC.S])); |
||
| 769 | end
|
||
| 770 | else // % |
||
| 771 | begin
|
||
| 772 | Write(f, Separator, Format('%1.3f', [CC.Ca])); |
||
| 773 | Write(f, Separator, Format('%1.3f', [CC.P])); |
||
| 774 | Write(f, Separator, Format('%1.3f', [CC.Na])); |
||
| 775 | Write(f, Separator, Format('%1.3f', [CC.K])); |
||
| 776 | Write(f, Separator, Format('%1.3f', [CC.Mg])); |
||
| 777 | Write(f, Separator, Format('%1.3f', [CC.Cl])); |
||
| 778 | Write(f, Separator, Format('%1.3f', [CC.S])); |
||
| 779 | end;
|
||
| 780 | if ConfTOligo = 0 |
||
| 781 | then // mg/kg |
||
| 782 | begin
|
||
| 783 | Write(f, Separator, Format('%1.2f', [CC.Cu])); |
||
| 784 | Write(f, Separator, Format('%1.2f', [CC.Zn])); |
||
| 785 | Write(f, Separator, Format('%1.2f', [CC.Mn])); |
||
| 786 | Write(f, Separator, Format('%1.2f', [CC.Fe])); |
||
| 787 | Write(f, Separator, Format('%1.2f', [CC.Se])); |
||
| 788 | Write(f, Separator, Format('%1.2f', [CC.Co])); |
||
| 789 | Write(f, Separator, Format('%1.2f', [CC.Mb])); |
||
| 790 | Write(f, Separator, Format('%1.2f', [CC.I])); |
||
| 791 | end
|
||
| 792 | else // % |
||
| 793 | begin
|
||
| 794 | Write(f, Separator, Format('%1.6f', [CC.Cu])); |
||
| 795 | Write(f, Separator, Format('%1.6f', [CC.Zn])); |
||
| 796 | Write(f, Separator, Format('%1.6f', [CC.Mn])); |
||
| 797 | Write(f, Separator, Format('%1.6f', [CC.Fe])); |
||
| 798 | Write(f, Separator, Format('%1.6f', [CC.Se])); |
||
| 799 | Write(f, Separator, Format('%1.6f', [CC.Co])); |
||
| 800 | Write(f, Separator, Format('%1.6f', [CC.Mb])); |
||
| 801 | Write(f, Separator, Format('%1.6f', [CC.I])); |
||
| 802 | end;
|
||
| 803 | Write(f, Separator, Format('%1.2f', [CC.PdigG])); |
||
| 804 | Write(f, Separator, Format('%1.2f', [CC.PdigF])); |
||
| 805 | Write(f, Separator, Format('%1.1f', [CC.Phytase])); |
||
| 806 | Write(f, Separator, Format('%1.0f', [CC.ActPhytE])); |
||
| 807 | Write(f, Separator, Format('%1.0f', [CC.ActPhytM])); |
||
| 808 | // Acides gras
|
||
| 809 | case ConfTAG of |
||
| 810 | 0 : // g/kg |
||
| 811 | begin
|
||
| 812 | Write(f, Separator, Format('%1.2f', [CC.C6C8C10])); |
||
| 813 | Write(f, Separator, Format('%1.2f', [CC.C12_0])); |
||
| 814 | Write(f, Separator, Format('%1.2f', [CC.C14_0])); |
||
| 815 | Write(f, Separator, Format('%1.2f', [CC.C16_0])); |
||
| 816 | Write(f, Separator, Format('%1.2f', [CC.C16_1])); |
||
| 817 | Write(f, Separator, Format('%1.2f', [CC.C18_0])); |
||
| 818 | Write(f, Separator, Format('%1.2f', [CC.C18_1])); |
||
| 819 | Write(f, Separator, Format('%1.2f', [CC.C18_2])); |
||
| 820 | Write(f, Separator, Format('%1.2f', [CC.C18_3])); |
||
| 821 | Write(f, Separator, Format('%1.2f', [CC.C18_4])); |
||
| 822 | Write(f, Separator, Format('%1.2f', [CC.C20_0])); |
||
| 823 | Write(f, Separator, Format('%1.2f', [CC.C20_1])); |
||
| 824 | Write(f, Separator, Format('%1.2f', [CC.C20_4])); |
||
| 825 | Write(f, Separator, Format('%1.2f', [CC.C20_5])); |
||
| 826 | Write(f, Separator, Format('%1.2f', [CC.C22_0])); |
||
| 827 | Write(f, Separator, Format('%1.2f', [CC.C22_1])); |
||
| 828 | Write(f, Separator, Format('%1.2f', [CC.C22_5])); |
||
| 829 | Write(f, Separator, Format('%1.2f', [CC.C22_6])); |
||
| 830 | Write(f, Separator, Format('%1.2f', [CC.C24_0])); |
||
| 831 | end;
|
||
| 832 | 1 : // % |
||
| 833 | begin
|
||
| 834 | Write(f, Separator, Format('%1.3f', [CC.C6C8C10])); |
||
| 835 | Write(f, Separator, Format('%1.3f', [CC.C12_0])); |
||
| 836 | Write(f, Separator, Format('%1.3f', [CC.C14_0])); |
||
| 837 | Write(f, Separator, Format('%1.3f', [CC.C16_0])); |
||
| 838 | Write(f, Separator, Format('%1.3f', [CC.C16_1])); |
||
| 839 | Write(f, Separator, Format('%1.3f', [CC.C18_0])); |
||
| 840 | Write(f, Separator, Format('%1.3f', [CC.C18_1])); |
||
| 841 | Write(f, Separator, Format('%1.3f', [CC.C18_2])); |
||
| 842 | Write(f, Separator, Format('%1.3f', [CC.C18_3])); |
||
| 843 | Write(f, Separator, Format('%1.3f', [CC.C18_4])); |
||
| 844 | Write(f, Separator, Format('%1.3f', [CC.C20_0])); |
||
| 845 | Write(f, Separator, Format('%1.3f', [CC.C20_1])); |
||
| 846 | Write(f, Separator, Format('%1.3f', [CC.C20_4])); |
||
| 847 | Write(f, Separator, Format('%1.3f', [CC.C20_5])); |
||
| 848 | Write(f, Separator, Format('%1.3f', [CC.C22_0])); |
||
| 849 | Write(f, Separator, Format('%1.3f', [CC.C22_1])); |
||
| 850 | Write(f, Separator, Format('%1.3f', [CC.C22_5])); |
||
| 851 | Write(f, Separator, Format('%1.3f', [CC.C22_6])); |
||
| 852 | Write(f, Separator, Format('%1.3f', [CC.C24_0])); |
||
| 853 | end
|
||
| 854 | else // % acides gras |
||
| 855 | begin
|
||
| 856 | Write(f, Separator, Format('%1.1f', [CC.C6C8C10])); |
||
| 857 | Write(f, Separator, Format('%1.1f', [CC.C12_0])); |
||
| 858 | Write(f, Separator, Format('%1.1f', [CC.C14_0])); |
||
| 859 | Write(f, Separator, Format('%1.1f', [CC.C16_0])); |
||
| 860 | Write(f, Separator, Format('%1.1f', [CC.C16_1])); |
||
| 861 | Write(f, Separator, Format('%1.1f', [CC.C18_0])); |
||
| 862 | Write(f, Separator, Format('%1.1f', [CC.C18_1])); |
||
| 863 | Write(f, Separator, Format('%1.1f', [CC.C18_2])); |
||
| 864 | Write(f, Separator, Format('%1.1f', [CC.C18_3])); |
||
| 865 | Write(f, Separator, Format('%1.1f', [CC.C18_4])); |
||
| 866 | Write(f, Separator, Format('%1.1f', [CC.C20_0])); |
||
| 867 | Write(f, Separator, Format('%1.1f', [CC.C20_1])); |
||
| 868 | Write(f, Separator, Format('%1.1f', [CC.C20_4])); |
||
| 869 | Write(f, Separator, Format('%1.1f', [CC.C20_5])); |
||
| 870 | Write(f, Separator, Format('%1.1f', [CC.C22_0])); |
||
| 871 | Write(f, Separator, Format('%1.1f', [CC.C22_1])); |
||
| 872 | Write(f, Separator, Format('%1.1f', [CC.C22_5])); |
||
| 873 | Write(f, Separator, Format('%1.1f', [CC.C22_6])); |
||
| 874 | Write(f, Separator, Format('%1.1f', [CC.C24_0])); |
||
| 875 | end;
|
||
| 876 | end ;
|
||
| 877 | Write(f, Separator, Format('%1.1f', [CC.AGsLip])) ; |
||
| 878 | // Fibres
|
||
| 879 | if ConfTFibres = 0 |
||
| 880 | then // g/kg |
||
| 881 | Write(f, Separator, Format('%1.1f', [CC.CB])) |
||
| 882 | else // % |
||
| 883 | Write(f, Separator, Format('%1.2f', [CC.CB])); |
||
| 884 | if (ConfDig = 0) |
||
| 885 | then // CUD |
||
| 886 | begin
|
||
| 887 | Write(f, Separator, Format('%1.1f', [CC.dCB_T])); |
||
| 888 | Write(f, Separator, Format('%1.1f', [CC.dCB_C])); |
||
| 889 | end
|
||
| 890 | else // Teneur digestible |
||
| 891 | if ConfdCompo = 0 |
||
| 892 | then // g/kg |
||
| 893 | begin
|
||
| 894 | Write(f, Separator, Format('%1.1f', [CC.dCB_T])); |
||
| 895 | Write(f, Separator, Format('%1.1f', [CC.dCB_C])); |
||
| 896 | end
|
||
| 897 | else // % |
||
| 898 | begin
|
||
| 899 | Write(f, Separator, Format('%1.2f', [CC.dCB_T])); |
||
| 900 | Write(f, Separator, Format('%1.2f', [CC.dCB_C])); |
||
| 901 | end;
|
||
| 902 | if ConfTCompo = 0 |
||
| 903 | then // g/kg |
||
| 904 | Write(f, Separator, Format('%1.1f', [CC.Residu])) |
||
| 905 | else // % |
||
| 906 | Write(f, Separator, Format('%1.2f', [CC.Residu])); |
||
| 907 | if (ConfDig = 0) |
||
| 908 | then // CUD |
||
| 909 | begin
|
||
| 910 | Write(f, Separator, Format('%1.1f', [CC.dResidu_T])); |
||
| 911 | Write(f, Separator, Format('%1.1f', [CC.dResidu_C])); |
||
| 912 | end
|
||
| 913 | else // Teneur digestible |
||
| 914 | if ConfdCompo = 0 |
||
| 915 | then // g/kg |
||
| 916 | begin
|
||
| 917 | Write(f, Separator, Format('%1.1f', [CC.dResidu_T])); |
||
| 918 | Write(f, Separator, Format('%1.1f', [CC.dResidu_C])); |
||
| 919 | end
|
||
| 920 | else // % |
||
| 921 | begin
|
||
| 922 | Write(f, Separator, Format('%1.2f', [CC.dResidu_T])); |
||
| 923 | Write(f, Separator, Format('%1.2f', [CC.dResidu_C])); |
||
| 924 | end;
|
||
| 925 | if ConfTFibres = 0 |
||
| 926 | then // g/kg |
||
| 927 | begin
|
||
| 928 | Write(f, Separator, Format('%1.1f', [CC.NDF])); |
||
| 929 | Write(f, Separator, Format('%1.1f', [CC.ADF])); |
||
| 930 | Write(f, Separator, Format('%1.1f', [CC.ADL])); |
||
| 931 | Write(f, Separator, Format('%1.1f', [CC.Parois])); |
||
| 932 | end
|
||
| 933 | else // % |
||
| 934 | begin
|
||
| 935 | Write(f, Separator, Format('%1.2f', [CC.NDF])); |
||
| 936 | Write(f, Separator, Format('%1.2f', [CC.ADF])); |
||
| 937 | Write(f, Separator, Format('%1.2f', [CC.ADL])); |
||
| 938 | Write(f, Separator, Format('%1.2f', [CC.Parois])); |
||
| 939 | end;
|
||
| 940 | // Acides amin?s
|
||
| 941 | if ConfTAA = 1 |
||
| 942 | then // % |
||
| 943 | for i := 1 to 12 do |
||
| 944 | Write(f, Separator, Format('%1.3f', [AAtotal[i]])) |
||
| 945 | else // %MAT ou g/kg |
||
| 946 | for i := 1 to 12 do |
||
| 947 | Write(f, Separator, Format('%1.2f', [AAtotal[i]])); |
||
| 948 | if ConfDig = 0 |
||
| 949 | then // CUD |
||
| 950 | for i := 0 to 12 do |
||
| 951 | Write(f, Separator, Format('%1.1f', [CUDAA[i]])) |
||
| 952 | else // Teneur digestible |
||
| 953 | if ConfdAA = 0 |
||
| 954 | then // g/kg |
||
| 955 | for i := 0 to 12 do |
||
| 956 | Write(f, Separator, Format('%1.2f', [CUDAA[i]])) |
||
| 957 | else // % |
||
| 958 | for i := 0 to 12 do |
||
| 959 | Write(f, Separator, Format('%1.3f', [CUDAA[i]])); |
||
| 960 | WriteLn(f); |
||
| 961 | end;
|
||
| 962 | CloseFile(f); |
||
| 963 | Dispose(recOut); |
||
| 964 | end;
|
||
| 965 | |||
| 966 | procedure TFImpExp.DisplayConfig;
|
||
| 967 | begin
|
||
| 968 | LRap.Caption := FConfig.CBRap.Items[ConfRap]; |
||
| 969 | LDig.Caption := FConfig.CBDig.Items[ConfDig]; |
||
| 970 | LTCompo.Caption := FConfig.CBTCompo.Items[ConfTCompo]; |
||
| 971 | LdCompo.Caption := FConfig.CBdCompo.Items[ConfDCompo]; |
||
| 972 | LTAA.Caption := FConfig.CBTAA.Items[ConfTAA]; |
||
| 973 | LdAA.Caption := FConfig.CBdAA.Items[ConfDAA]; |
||
| 974 | LTAG.Caption := FConfig.CBTAG.Items[ConfTAG]; |
||
| 975 | LTMacro.Caption := FConfig.CBTMacro.Items[ConfTMacro]; |
||
| 976 | LTOligo.Caption := FConfig.CBTOligo.Items[ConfTOligo]; |
||
| 977 | LTFibres.Caption := FConfig.CBTFibres.Items[ConfTFibres]; |
||
| 978 | end;
|
||
| 979 | |||
| 980 | procedure TFImpExp.CBTypeMatChange (Sender : TObject) ;
|
||
| 981 | begin
|
||
| 982 | StringsMatiere (LBMatiere.Items, CBTypeMat.ItemIndex, FALSE, FALSE) ; |
||
| 983 | end ;
|
||
| 984 | |||
| 985 | procedure TFImpExp.CBTypeAliChange (Sender : TObject) ;
|
||
| 986 | begin
|
||
| 987 | StringsAliment (LBAliment.Items, CBTypeAli.ItemIndex, FALSE) ; |
||
| 988 | end ;
|
||
| 989 | |||
| 990 | procedure TFImpExp.SBFichierClick (Sender : TObject) ;
|
||
| 991 | var
|
||
| 992 | i, lig, col: Integer; |
||
| 993 | recOut, recIn: PRecCSV; |
||
| 994 | Titre: String;
|
||
| 995 | ok: Boolean; |
||
| 996 | s: string;
|
||
| 997 | v: Double; |
||
| 998 | sep: Char; |
||
| 999 | begin
|
||
| 1000 | SDFichier.InitialDir := GetCurrentDir; |
||
| 1001 | if not SDFichier.Execute |
||
| 1002 | then // Annulation |
||
| 1003 | Exit; |
||
| 1004 | // effacement de la liste avant chargement
|
||
| 1005 | LBFichier.Clear; |
||
| 1006 | if ListCSV.Count > 0 |
||
| 1007 | then
|
||
| 1008 | for i := 0 to ListCSV.Count - 1 do |
||
| 1009 | begin
|
||
| 1010 | recIn := ListCSV[i]; |
||
| 1011 | Dispose(recIn); |
||
| 1012 | end;
|
||
| 1013 | ListCSV.Clear; |
||
| 1014 | EFichier.Text := SDFichier.FileName; |
||
| 1015 | AssignFile(F, SDFichier.FileName); |
||
| 1016 | LBFichier.Clear; |
||
| 1017 | // Composition du titre (avec remplacement du ';' par ListSeparator)
|
||
| 1018 | Titre := StringReplace(StrTitreCSV1, ';', Separator, [rfReplaceAll])
|
||
| 1019 | + StringReplace(StrTitreCSV2, ';', Separator, [rfReplaceAll])
|
||
| 1020 | + StringReplace(StrTitreCSV3, ';', Separator, [rfReplaceAll])
|
||
| 1021 | + StringReplace(StrTitreCSV4, ';', Separator, [rfReplaceAll])
|
||
| 1022 | + StringReplace(StrTitreCSV5, ';', Separator, [rfReplaceAll])
|
||
| 1023 | + StringReplace(StrTitreCSV6, ';', Separator, [rfReplaceAll])
|
||
| 1024 | + StringReplace(StrTitreCSV7, ';', Separator, [rfReplaceAll]);
|
||
| 1025 | if not FileExists(SDFichier.FileName) |
||
| 1026 | then // Le fichier n'existe pas : cr?ation avec titre |
||
| 1027 | begin
|
||
| 1028 | Rewrite(F); |
||
| 1029 | Writeln(F, Titre); |
||
| 1030 | CloseFile(F); |
||
| 1031 | Exit; |
||
| 1032 | end;
|
||
| 1033 | Reset(F); |
||
| 1034 | if Eof(F)
|
||
| 1035 | then // Le fichier est vide : insertion du titre |
||
| 1036 | begin
|
||
| 1037 | Writeln(F, Titre); |
||
| 1038 | CloseFile(F); |
||
| 1039 | Exit; |
||
| 1040 | end;
|
||
| 1041 | Readln(F, s); // Lecture de la ligne de titre
|
||
| 1042 | if Eof(F)
|
||
| 1043 | then // Il n'y a pas d'enregistrement |
||
| 1044 | begin
|
||
| 1045 | CloseFile(F); |
||
| 1046 | Exit; |
||
| 1047 | end;
|
||
| 1048 | lig := 1;
|
||
| 1049 | col := 1;
|
||
| 1050 | New(recOut); |
||
| 1051 | with recOut^ do |
||
| 1052 | repeat
|
||
| 1053 | ok := TRUE; |
||
| 1054 | case col of |
||
| 1055 | 1: // Nom |
||
| 1056 | begin
|
||
| 1057 | ok := GetString(s, sep); |
||
| 1058 | if ok then Nom := Trim(s); |
||
| 1059 | end;
|
||
| 1060 | 2: // Commentaire |
||
| 1061 | begin
|
||
| 1062 | ok := GetString(s, sep); |
||
| 1063 | if ok then Memo := s; |
||
| 1064 | end;
|
||
| 1065 | 3: // Type |
||
| 1066 | ok := GetInteger(Typ, sep); |
||
| 1067 | 4..98: // Valeurs |
||
| 1068 | begin
|
||
| 1069 | ok := GetDouble(v, sep); |
||
| 1070 | if ok
|
||
| 1071 | then
|
||
| 1072 | case col of |
||
| 1073 | 4: CC.MS := v;
|
||
| 1074 | 5: CC.MM := v;
|
||
| 1075 | 6: CC.MO := v;
|
||
| 1076 | 7: CC.Lip := v;
|
||
| 1077 | 8: CC.MAT := v;
|
||
| 1078 | 9: CC.Amidon := v;
|
||
| 1079 | 10: CC.Sucres := v;
|
||
| 1080 | 11: CC.dMO_T := v;
|
||
| 1081 | 12: CC.dMO_C := v;
|
||
| 1082 | 13: CC.dLip_T := v;
|
||
| 1083 | 14: CC.dLip_C := v;
|
||
| 1084 | 15: CC.dMAT_T := v;
|
||
| 1085 | 16: CC.dMAT_C := v;
|
||
| 1086 | 17: CC.EB := v;
|
||
| 1087 | 18: CC.ED_T := v;
|
||
| 1088 | 19: CC.ED_C := v;
|
||
| 1089 | 20: CC.EM_T := v;
|
||
| 1090 | 21: CC.EM_C := v;
|
||
| 1091 | 22: CC.EN_T := v;
|
||
| 1092 | 23: CC.EN_C := v;
|
||
| 1093 | 24: CC.Ca := v;
|
||
| 1094 | 25: CC.P := v;
|
||
| 1095 | 26: CC.Na := v;
|
||
| 1096 | 27: CC.K := v;
|
||
| 1097 | 28: CC.Mg := v;
|
||
| 1098 | 29: CC.Cl := v;
|
||
| 1099 | 30: CC.S := v;
|
||
| 1100 | 31: CC.Cu := v;
|
||
| 1101 | 32: CC.Zn := v;
|
||
| 1102 | 33: CC.Mn := v;
|
||
| 1103 | 34: CC.Fe := v;
|
||
| 1104 | 35: CC.Se := v;
|
||
| 1105 | 36: CC.Co := v;
|
||
| 1106 | 37: CC.Mb := v;
|
||
| 1107 | 38: CC.I := v;
|
||
| 1108 | 39: CC.PdigG := v;
|
||
| 1109 | 40: CC.PdigF := v;
|
||
| 1110 | 41: CC.Phytase := v;
|
||
| 1111 | 42: CC.ActPhytE := v;
|
||
| 1112 | 43: CC.ActPhytM := v;
|
||
| 1113 | 44: CC.C6C8C10 := v;
|
||
| 1114 | 45: CC.C12_0 := v;
|
||
| 1115 | 46: CC.C14_0 := v;
|
||
| 1116 | 47: CC.C16_0 := v;
|
||
| 1117 | 48: CC.C16_1 := v;
|
||
| 1118 | 49: CC.C18_0 := v;
|
||
| 1119 | 50: CC.C18_1 := v;
|
||
| 1120 | 51: CC.C18_2 := v;
|
||
| 1121 | 52: CC.C18_3 := v;
|
||
| 1122 | 53: CC.C18_4 := v;
|
||
| 1123 | 54: CC.C20_0 := v;
|
||
| 1124 | 55: CC.C20_1 := v;
|
||
| 1125 | 56: CC.C20_4 := v;
|
||
| 1126 | 57: CC.C20_5 := v;
|
||
| 1127 | 58: CC.C22_0 := v;
|
||
| 1128 | 59: CC.C22_1 := v;
|
||
| 1129 | 60: CC.C22_5 := v;
|
||
| 1130 | 61: CC.C22_6 := v;
|
||
| 1131 | 62: CC.C24_0 := v;
|
||
| 1132 | 63: CC.AGsLip := v;
|
||
| 1133 | 64: CC.CB := v;
|
||
| 1134 | 65: CC.dCB_T := v;
|
||
| 1135 | 66: CC.dCB_C := v;
|
||
| 1136 | 67: CC.Residu := v;
|
||
| 1137 | 68: CC.dResidu_T := v;
|
||
| 1138 | 69: CC.dResidu_C := v;
|
||
| 1139 | 70: CC.NDF := v;
|
||
| 1140 | 71: CC.ADF := v;
|
||
| 1141 | 72: CC.ADL := v;
|
||
| 1142 | 73: CC.Parois := v;
|
||
| 1143 | 74..85: AAtotal[col - 73] := v; |
||
| 1144 | 86..98: CUDAA[col - 86] := v; |
||
| 1145 | end;
|
||
| 1146 | end;
|
||
| 1147 | end ;
|
||
| 1148 | if not ok then Break; |
||
| 1149 | if (col = 98) or ((col = 1) and (Length(Nom) = 0)) |
||
| 1150 | then // Dernier champs ou ligne vide |
||
| 1151 | ok := (sep = Chr(13)) or (sep = Chr(26)) |
||
| 1152 | else
|
||
| 1153 | ok := (sep = Separator); |
||
| 1154 | if not ok then Break; |
||
| 1155 | if sep = Chr(13) then Read(F, sep); // Chr(10) |
||
| 1156 | if col = 98 |
||
| 1157 | then // Passage ? la ligne suivante |
||
| 1158 | begin
|
||
| 1159 | New(recIn); |
||
| 1160 | FormatOutToIn(recOut, recIn); |
||
| 1161 | recIn.AAtotal[0] := recIn.CC.MAT;
|
||
| 1162 | ListCSV.Add(recIn); |
||
| 1163 | LBFichier.Items.Add(Nom); |
||
| 1164 | Dispose(recOut); |
||
| 1165 | Inc(lig); |
||
| 1166 | col := 1;
|
||
| 1167 | New(recOut); |
||
| 1168 | end
|
||
| 1169 | else
|
||
| 1170 | if (col > 1) or (Length(Nom) > 0) |
||
| 1171 | then // Passage au champs suivant |
||
| 1172 | Inc(col); |
||
| 1173 | until sep = Chr(26); // Eof(f) |
||
| 1174 | Dispose(recOut); |
||
| 1175 | CloseFile(F); |
||
| 1176 | if not ok |
||
| 1177 | then // erreur de lecture |
||
| 1178 | begin
|
||
| 1179 | MessageDlg(Format(MsgCSVError, [lig, col]), mtError, [mbOk], 0);
|
||
| 1180 | // effacement de la liste suite ? une erreur de lecture
|
||
| 1181 | LBFichier.Clear; |
||
| 1182 | if ListCSV.Count > 0 |
||
| 1183 | then
|
||
| 1184 | for i := 0 to ListCSV.Count - 1 do |
||
| 1185 | begin
|
||
| 1186 | recIn := ListCSV[i]; |
||
| 1187 | Dispose(recIn); |
||
| 1188 | end;
|
||
| 1189 | ListCSV.Clear; |
||
| 1190 | EFichier.Text := '';
|
||
| 1191 | end;
|
||
| 1192 | end;
|
||
| 1193 | |||
| 1194 | procedure TFImpExp.SBExpMatClick (Sender : TObject) ;
|
||
| 1195 | var
|
||
| 1196 | i, j : integer ; |
||
| 1197 | rec : PRecCSV ; |
||
| 1198 | begin
|
||
| 1199 | if EFichier.Text = '' |
||
| 1200 | then
|
||
| 1201 | begin
|
||
| 1202 | MessageDlg (MsgNoCSV, mtError, [mbOk], 0) ;
|
||
| 1203 | Exit ; |
||
| 1204 | end ;
|
||
| 1205 | if LBMatiere.Count = 0 |
||
| 1206 | then
|
||
| 1207 | begin
|
||
| 1208 | MessageDlg (MsgNoMat, mtError, [mbOk], 0) ;
|
||
| 1209 | Exit ; |
||
| 1210 | end ;
|
||
| 1211 | if LBMatiere.SelCount = 0 |
||
| 1212 | then
|
||
| 1213 | begin
|
||
| 1214 | MessageDlg (MsgNoMatSel, mtError, [mbOk], 0) ;
|
||
| 1215 | Exit ; |
||
| 1216 | end ;
|
||
| 1217 | for i := 0 to LBMatiere.Count - 1 do |
||
| 1218 | if LBMatiere.Selected[i]
|
||
| 1219 | then
|
||
| 1220 | begin
|
||
| 1221 | PMatiere := ListMatiere[FindIdxMatiere (LBMatiere.Items[i])] ; |
||
| 1222 | with PMatiere^ do |
||
| 1223 | begin
|
||
| 1224 | New (rec) ; |
||
| 1225 | rec.Nom := Nom ; |
||
| 1226 | rec.Memo := Memo ; |
||
| 1227 | rec.Typ := Typ ; |
||
| 1228 | rec.CC := CC ; |
||
| 1229 | for j := 0 to 12 do |
||
| 1230 | rec.AAtotal[j] := AAtotal[j] ; |
||
| 1231 | for j := 0 to 12 do |
||
| 1232 | rec.CUDAA[j] := CUDAA[j] ; |
||
| 1233 | ListCSV.Add (rec) ; |
||
| 1234 | PutCSV (rec) ; |
||
| 1235 | LBFichier.Items.Add (Nom) ; |
||
| 1236 | end ;
|
||
| 1237 | end ;
|
||
| 1238 | end ;
|
||
| 1239 | |||
| 1240 | procedure TFImpExp.SBImpMatClick (Sender : TObject) ;
|
||
| 1241 | var
|
||
| 1242 | i, j, n : integer ; |
||
| 1243 | ok : Boolean ; |
||
| 1244 | rec : PRecCSV ; |
||
| 1245 | begin
|
||
| 1246 | if EFichier.Text = '' |
||
| 1247 | then
|
||
| 1248 | begin
|
||
| 1249 | MessageDlg (MsgNoCSV, mtError, [mbOk], 0) ;
|
||
| 1250 | Exit ; |
||
| 1251 | end ;
|
||
| 1252 | if LBFichier.Count = 0 |
||
| 1253 | then
|
||
| 1254 | begin
|
||
| 1255 | MessageDlg (MsgNoImp, mtError, [mbOk], 0) ;
|
||
| 1256 | Exit ; |
||
| 1257 | end ;
|
||
| 1258 | if LBFichier.SelCount = 0 |
||
| 1259 | then
|
||
| 1260 | begin
|
||
| 1261 | MessageDlg (MsgNoImpSel, mtError, [mbOk], 0) ;
|
||
| 1262 | Exit ; |
||
| 1263 | end ;
|
||
| 1264 | n := 0 ;
|
||
| 1265 | for i := 0 to LBFichier.Count - 1 do |
||
| 1266 | if LBFichier.Selected[i]
|
||
| 1267 | then
|
||
| 1268 | begin
|
||
| 1269 | rec := ListCSV[i] ; |
||
| 1270 | repeat // V?rification du nom |
||
| 1271 | if Length (rec.Nom) > 35 |
||
| 1272 | then // Nom trop long |
||
| 1273 | begin
|
||
| 1274 | ok := FALSE ; |
||
| 1275 | MessageDlg (Format (MsgNameTooLarge, [35]), mtWarning, [mbOk], 0) ; |
||
| 1276 | rec.Nom := Copy (rec.Nom, 1, 35) ; |
||
| 1277 | end
|
||
| 1278 | else
|
||
| 1279 | begin
|
||
| 1280 | ok := TRUE ; |
||
| 1281 | j := 0 ;
|
||
| 1282 | while ok and (j < ListMatiere.Count) do |
||
| 1283 | begin
|
||
| 1284 | PMatiere := ListMatiere[j] ; |
||
| 1285 | if PMatiere.Nom = rec.Nom
|
||
| 1286 | then // Nom d?j? utilis? |
||
| 1287 | begin
|
||
| 1288 | ok := FALSE ; |
||
| 1289 | MessageDlg (MsgNameExists, mtWarning, [mbOk], 0) ;
|
||
| 1290 | end
|
||
| 1291 | else
|
||
| 1292 | Inc (j) ; |
||
| 1293 | end ;
|
||
| 1294 | end ;
|
||
| 1295 | if not ok |
||
| 1296 | then // Saisie du nom |
||
| 1297 | if not InputQuery (FImpExp.Caption, MsgName, rec.Nom) |
||
| 1298 | then // Annulation |
||
| 1299 | begin
|
||
| 1300 | ok := TRUE ; |
||
| 1301 | LBFichier.Selected[i] := FALSE ; |
||
| 1302 | end ;
|
||
| 1303 | until ok ;
|
||
| 1304 | if LBFichier.Selected[i]
|
||
| 1305 | then
|
||
| 1306 | begin
|
||
| 1307 | repeat // Recherche du premier num?ro libre |
||
| 1308 | Inc (n) ; |
||
| 1309 | ok := TRUE ; |
||
| 1310 | j := 0 ;
|
||
| 1311 | while ok and (j < ListMatiere.Count) do |
||
| 1312 | begin
|
||
| 1313 | PMatiere := ListMatiere[j] ; |
||
| 1314 | if PMatiere.Num = n
|
||
| 1315 | then
|
||
| 1316 | ok := FALSE |
||
| 1317 | else
|
||
| 1318 | Inc (j) ; |
||
| 1319 | end ;
|
||
| 1320 | until ok ;
|
||
| 1321 | ModifMat := TRUE ; |
||
| 1322 | New (PMatiere) ; |
||
| 1323 | with PMatiere^ do |
||
| 1324 | begin
|
||
| 1325 | Num := n ; |
||
| 1326 | Nom := rec.Nom ; |
||
| 1327 | Memo := rec.Memo ; |
||
| 1328 | if rec.Typ < 10 |
||
| 1329 | then // Mati?re premi?re |
||
| 1330 | Typ := rec.Typ |
||
| 1331 | else // Aliment |
||
| 1332 | begin
|
||
| 1333 | MessageDlg (Format (MsgAli2Mat, [Nom]), mtWarning, [mbOk], 0) ;
|
||
| 1334 | Typ := 0 ;
|
||
| 1335 | end ;
|
||
| 1336 | CC := rec.CC ; |
||
| 1337 | for j := 0 to 12 do |
||
| 1338 | AAtotal[j] := rec.AAtotal[j] ; |
||
| 1339 | for j := 0 to 12 do |
||
| 1340 | CUDAA[j] := rec.CUDAA[j] ; |
||
| 1341 | end ;
|
||
| 1342 | ListMatiere.Add (PMatiere) ; |
||
| 1343 | if (CBTypeMat.ItemIndex = 0) or (PMatiere.Typ = CBTypeMat.ItemIndex) |
||
| 1344 | then
|
||
| 1345 | LBMatiere.Items.Add (PMatiere.Nom) ; |
||
| 1346 | end ;
|
||
| 1347 | end ;
|
||
| 1348 | end ;
|
||
| 1349 | |||
| 1350 | procedure TFImpExp.SBExpAliClick (Sender : TObject) ;
|
||
| 1351 | var
|
||
| 1352 | i, j : integer ; |
||
| 1353 | rec : PRecCSV ; |
||
| 1354 | begin
|
||
| 1355 | if EFichier.Text = '' |
||
| 1356 | then
|
||
| 1357 | begin
|
||
| 1358 | MessageDlg (MsgNoCSV, mtError, [mbOk], 0) ;
|
||
| 1359 | Exit ; |
||
| 1360 | end ;
|
||
| 1361 | if LBAliment.Count = 0 |
||
| 1362 | then
|
||
| 1363 | begin
|
||
| 1364 | MessageDlg (MsgNoAli, mtError, [mbOk], 0) ;
|
||
| 1365 | Exit ; |
||
| 1366 | end ;
|
||
| 1367 | if LBAliment.SelCount = 0 |
||
| 1368 | then
|
||
| 1369 | begin
|
||
| 1370 | MessageDlg (MsgNoAliSel, mtError, [mbOk], 0) ;
|
||
| 1371 | Exit ; |
||
| 1372 | end ;
|
||
| 1373 | for i := 0 to LBAliment.Count - 1 do |
||
| 1374 | if LBAliment.Selected[i]
|
||
| 1375 | then
|
||
| 1376 | begin
|
||
| 1377 | PAliment := ListAliment[FindIdxAliment (LBAliment.Items[i])] ; |
||
| 1378 | with PAliment^ do |
||
| 1379 | begin
|
||
| 1380 | New (rec) ; |
||
| 1381 | rec.Nom := Nom ; |
||
| 1382 | rec.Memo := Memo ; |
||
| 1383 | rec.Typ := Typ * (Presentation + 1) + 10 ; |
||
| 1384 | rec.CC := CC ; |
||
| 1385 | for j := 0 to 12 do |
||
| 1386 | rec.AAtotal[j] := AAtotal[j] ; |
||
| 1387 | for j := 0 to 12 do |
||
| 1388 | rec.CUDAA[j] := CUDAA[j] ; |
||
| 1389 | ListCSV.Add (rec) ; |
||
| 1390 | PutCSV (rec) ; |
||
| 1391 | LBFichier.Items.Add (Nom) ; |
||
| 1392 | end ;
|
||
| 1393 | end ;
|
||
| 1394 | end ;
|
||
| 1395 | |||
| 1396 | procedure TFImpExp.SBImpAliClick (Sender : TObject) ;
|
||
| 1397 | var
|
||
| 1398 | i, j, k, n : integer ; |
||
| 1399 | ok : Boolean ; |
||
| 1400 | rec : PRecCSV ; |
||
| 1401 | begin
|
||
| 1402 | if EFichier.Text = '' |
||
| 1403 | then
|
||
| 1404 | begin
|
||
| 1405 | MessageDlg (MsgNoCSV, mtError, [mbOk], 0) ;
|
||
| 1406 | Exit ; |
||
| 1407 | end ;
|
||
| 1408 | if LBFichier.Count = 0 |
||
| 1409 | then
|
||
| 1410 | begin
|
||
| 1411 | MessageDlg (MsgNoImp, mtError, [mbOk], 0) ;
|
||
| 1412 | Exit ; |
||
| 1413 | end ;
|
||
| 1414 | if LBFichier.SelCount = 0 |
||
| 1415 | then
|
||
| 1416 | begin
|
||
| 1417 | MessageDlg (MsgNoImpSel, mtError, [mbOk], 0) ;
|
||
| 1418 | Exit ; |
||
| 1419 | end ;
|
||
| 1420 | n := 0 ;
|
||
| 1421 | for i := 0 to LBFichier.Count - 1 do |
||
| 1422 | if LBFichier.Selected[i]
|
||
| 1423 | then
|
||
| 1424 | begin
|
||
| 1425 | rec := ListCSV[i] ; |
||
| 1426 | repeat // V?rification du nom |
||
| 1427 | if Length (rec.Nom) > 35 |
||
| 1428 | then // Nom trop long |
||
| 1429 | begin
|
||
| 1430 | ok := FALSE ; |
||
| 1431 | MessageDlg (Format (MsgNameTooLarge, [35]), mtWarning, [mbOk], 0) ; |
||
| 1432 | rec.Nom := Copy (rec.Nom, 1, 35) ; |
||
| 1433 | end
|
||
| 1434 | else
|
||
| 1435 | begin
|
||
| 1436 | ok := TRUE ; |
||
| 1437 | j := 0 ;
|
||
| 1438 | while ok and (j < ListAliment.Count) do |
||
| 1439 | begin
|
||
| 1440 | PAliment := ListAliment[j] ; |
||
| 1441 | if PAliment.Nom = rec.Nom
|
||
| 1442 | then // Nom d?j? utilis? |
||
| 1443 | begin
|
||
| 1444 | ok := FALSE ; |
||
| 1445 | MessageDlg (MsgNameExists, mtWarning, [mbOk], 0) ;
|
||
| 1446 | end
|
||
| 1447 | else
|
||
| 1448 | Inc (j) ; |
||
| 1449 | end ;
|
||
| 1450 | end ;
|
||
| 1451 | if not ok |
||
| 1452 | then // Saisie du nom |
||
| 1453 | if not InputQuery (FImpExp.Caption, MsgName, rec.Nom) |
||
| 1454 | then // Annulation |
||
| 1455 | begin
|
||
| 1456 | ok := TRUE ; |
||
| 1457 | LBFichier.Selected[i] := FALSE ; |
||
| 1458 | end ;
|
||
| 1459 | until ok ;
|
||
| 1460 | if LBFichier.Selected[i]
|
||
| 1461 | then
|
||
| 1462 | begin
|
||
| 1463 | repeat // Recherche du premier num?ro libre |
||
| 1464 | Inc (n) ; |
||
| 1465 | ok := TRUE ; |
||
| 1466 | j := 0 ;
|
||
| 1467 | while ok and (j < ListAliment.Count) do |
||
| 1468 | begin
|
||
| 1469 | PAliment := ListAliment[j] ; |
||
| 1470 | if PAliment.Num = n
|
||
| 1471 | then
|
||
| 1472 | ok := FALSE |
||
| 1473 | else
|
||
| 1474 | Inc (j) ; |
||
| 1475 | end ;
|
||
| 1476 | until ok ;
|
||
| 1477 | ModifAli := TRUE ; |
||
| 1478 | New (PAliment) ; |
||
| 1479 | with PAliment^ do |
||
| 1480 | begin
|
||
| 1481 | Num := n ; |
||
| 1482 | Nom := rec.Nom ; |
||
| 1483 | Memo := rec.Memo ; |
||
| 1484 | if rec.Typ < 10 |
||
| 1485 | then // Mati?re premi?re |
||
| 1486 | begin
|
||
| 1487 | MessageDlg (Format (MsgMat2Ali, [Nom]), mtWarning, [mbOk], 0) ;
|
||
| 1488 | Typ := 0 ;
|
||
| 1489 | Presentation := 0 ;
|
||
| 1490 | end
|
||
| 1491 | else // Aliment |
||
| 1492 | begin
|
||
| 1493 | Typ := (rec.Typ - 10) mod 3 ; |
||
| 1494 | Presentation := (rec.Typ - 10) div 3 ; |
||
| 1495 | end ;
|
||
| 1496 | Prix := 0 ;
|
||
| 1497 | MP.NbMat := 0 ;
|
||
| 1498 | for k := 0 to MAX_MP do |
||
| 1499 | begin
|
||
| 1500 | MP.NumMat[k] := 0 ;
|
||
| 1501 | MP.MS[k] := 0 ;
|
||
| 1502 | MP.Qte[k] := 0 ;
|
||
| 1503 | end ;
|
||
| 1504 | CC := rec.CC ; |
||
| 1505 | for j := 0 to 12 do |
||
| 1506 | AAtotal[j] := rec.AAtotal[j] ; |
||
| 1507 | for j := 0 to 12 do |
||
| 1508 | CUDAA[j] := rec.CUDAA[j] ; |
||
| 1509 | end ;
|
||
| 1510 | ListAliment.Add (PAliment) ; |
||
| 1511 | if (CBTypeAli.ItemIndex = 0) or (PAliment.Typ = CBTypeAli.ItemIndex) |
||
| 1512 | then
|
||
| 1513 | LBAliment.Items.Add (PAliment.Nom) ; |
||
| 1514 | end ;
|
||
| 1515 | end ;
|
||
| 1516 | end ;
|
||
| 1517 | |||
| 1518 | end. |