Révision 9 InraAfz/UnitMain.pas
| UnitMain.pas | ||
|---|---|---|
| 198 | 198 |
begin |
| 199 | 199 |
if ClientDataSetInraAfz.ChangeCount > 0 |
| 200 | 200 |
then |
| 201 |
if (MessageDlg('DataSet has been modified' + sLineBreak
|
|
| 202 |
+ 'Do you want to exit without saving?', mtConfirmation, [mbYes, mbNo], 0) = mrYes)
|
|
| 201 |
if (MessageDlg('Les donn?es ont ?t? modifi?es...' + sLineBreak
|
|
| 202 |
+ 'Souhaitez-vous quitter sans sauvegarder ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes)
|
|
| 203 | 203 |
then |
| 204 | 204 |
ClientDataSetInraAfz.CancelUpdates |
| 205 | 205 |
else |
| ... | ... | |
| 221 | 221 |
// Ignorer la seconde ligne de titre (unit?s de mesure) |
| 222 | 222 |
JvCsvDataSetInput.Next; |
| 223 | 223 |
*) |
| 224 |
if ClientDataSetInraAfz.RecordCount > 0 then |
|
| 225 |
if (MessageDlg('Faut-il ajouter (Yes) ou remplacer (No) ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo)
|
|
| 226 |
then |
|
| 227 |
begin |
|
| 228 |
ClientDataSetInraAfz.Close; |
|
| 229 |
ClientDataSetInraAfz.CreateDataSet; |
|
| 230 |
end; |
|
| 224 | 231 |
while not JvCsvDataSetInput.Eof do |
| 225 | 232 |
begin |
| 226 | 233 |
ClientDataSetInraAfz.Append; |
| ... | ... | |
| 283 | 290 |
ClientDataSetInraAfz.Fields[i+1].AsFloat := JvCsvDataSetInput.Fields[i].AsFloat / 100; |
| 284 | 291 |
25, 26: // Coef |
| 285 | 292 |
ClientDataSetInraAfz.Fields[i+1].AsFloat := JvCsvDataSetInput.Fields[i].AsFloat; |
| 286 |
27..28: // %
|
|
| 293 |
27..28: // dN (%)
|
|
| 287 | 294 |
ClientDataSetInraAfz.Fields[i+1].AsFloat := JvCsvDataSetInput.Fields[i].AsFloat / 100; |
| 288 | 295 |
29..48: // AA (g/kg MS) -> fraction de MAT |
| 289 | 296 |
if JvCsvDataSetInput.Fields[i].AsFloat = 0 |
| ... | ... | |
| 302 | 309 |
end; |
| 303 | 310 |
JvCsvDataSetInput.Next; |
| 304 | 311 |
end; |
| 312 |
JvCsvDataSetInput.Close; |
|
| 305 | 313 |
ClientDataSetInraAfz.First; |
| 306 | 314 |
end; |
| 307 | 315 |
end; |
| ... | ... | |
| 321 | 329 |
FluxClair.Free; |
| 322 | 330 |
FluxCrypte.Free; |
| 323 | 331 |
end; |
| 332 |
MessageDlg('Sauvegarde effectu?e !', mtInformation, [mbOk], 0)
|
|
| 324 | 333 |
end; |
| 325 | 334 |
|
| 326 | 335 |
end. |
Formats disponibles : Unified diff