Questione : Wor con la lima di ini


Con:
con TINIFile.Create (ExtractPath (Form1.caption) + ' .ini')
vorrei lavorare in:
procedura TForm1.FormClose (mittente: TObject; azione di varietà: TCloseAction);
procedura TForm1.FormCreate (mittente: TObject);

devo ottenere il percorso in cui l'inizio della mia forma è memorizzato. E lo ottengo dal titolo della forma.

Esempio:  il myform l'archivio è individuato in: C:\myform 
1:
2:
3:
4:
5:
6:
7:

Funzione TForm1.ExtractPath (streptococco: Stringa): Stringa;
Varietà
 P: Numero intero;
cominciare
 P: =Pos (“: \„, streptococco);
 se P>0 allora risultano: =Copy (streptococco, P-1, lunghezza (streptococco)) Risultato altro: = '';
estremità;

Risposta : Wor con la lima di ini

Non capisco molto di che cosa volete fare, ma ho vasto caricare/salvo dell'unità dell'attrezzo le componenti & formo le proprietà (titoli, condizione controllata, ecc…) nelle lime di Ini.

Anche se non volete usarli mentre è, sono sicuro che troverete i lotti delle idee qui.
Quando comprendete questa unità in un progetto, esso inizializza automaticamente una lima di Ini chiamata dopo l'applicazione o il nome del DLL che la usano.

Tutto che dobbiate fare è di denominare
IniSaveComponnents
e
IniLoadComponnents

con un allineamento delle componenti o delle forme che volete dirigere:

procedura TForm1.FormCreate (mittente: TObject);
cominciare
 IniLoadComponnents ([auto, edtParam1, chkOption1]); il => di // conserva la forma e 2 componenti
estremità;

procedura TForm1.FormDestroy (mittente: TObject);
cominciare
 IniSaveComponnents ([auto, edtParam1, chkOption1]); il => di // conserva la forma e 2 componenti
estremità;


Potete aggiungere un parametro supplementare della sezione che si aggiungerà alla sezione automatica di Ini generata. Quello è di contribuire a raggruppare una punta la chiave/valori nel Ini, se utilizzato in molte forme, ma quello non urta che cosa realmente è immagazzinato. Potete anche aggiungere un parametro booleano di TextOnly soltanto al carico/salvo i titoli, non i valori (per un'amministrazione semplice di lingua)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:

unità IniOptions;

interfaccia

Gli usi si forma, codici categoria, IniFiles, StdCtrls, ExtCtrls, tasti, griglie, comandi, dialoghi, grafici, ComCtrls, menu, la rotazione;

Tipo
 TStringListOption= (slUpperCase);
 TStringListOptions=set di TStringListOption;

procedura IniOpenFile (nome di schedario: String= ''; FilePath: String= ''); sovraccarico;
procedura IniOpenFile (caso: Numero intero; FilePath: String= ''); sovraccarico;
procedura IniCloseFile;

procedura IniSaveQuotedCaption (sezione, Param, difetto: Stringa);
funzione IniLoadQuotedCaption (sezione, Param, difetto: Stringa): Stringa;

funzione IniLoadSaveDefaultString (sezione, Param, difetto: Stringa): Stringa;
funzione IniLoadSaveDefault (sezione, Param, difetto: Stringa): Stringa; sovraccarico;
funzione IniLoadSaveDefault (sezione, Param: Stringa; Difetto: Numero intero): Numero intero; sovraccarico;
funzione IniLoadSaveDefault (sezione, Param: Stringa; Difetto: Booleano): Booleano; sovraccarico;
procedura IniLoadSaveDefaultStringList (sezione, Param: Stringa; Lista: TStringList; Scegliere: TStringListOptions= []);

procedura IniLoadMenu (m.: TMenu);
procedura IniSaveMenu (m.: TMenu);
procedura IniLoadListView (L: TListView);
procedura IniSaveListView (L: TListView);
procedura IniLoadFormPosAndSize (frm: TCustomForm);
procedura IniSaveFormPosAndSize (frm: TCustomForm);
procedura IniLoadCheckBox (chk: TCheckBox);
procedura IniSaveCheckBox (chk: TCheckBox);
procedura IniLoadRadioButton (Rb: TRadioButton);
procedura IniSaveRadioButton (Rb: TRadioButton);
procedura IniLoadCaption (lbl: TLabel);
procedura IniSaveCaption (lbl: TLabel);
procedura IniLoadText (edt: TCustomEdit);
procedura IniSaveText (edt: TCustomEdit);
procedura IniLoadRadioGroup (rg: TRadioGroup);
procedura IniSaveRadioGroup (rg: TRadioGroup);
procedura IniLoadGroupBox (GB: TGroupBox);
procedura IniSaveGroupBox (GB: TGroupBox);
procedura IniLoadComboBox (Cb: TComboBox);
procedura IniSaveComboBox (Cb: TComboBox);
{
procedura IniLoadSpinEdit (edt: TSpinEdit);
procedura IniSaveSpinEdit (edt: TSpinEdit);
}
procedura IniLoadButton (BTN: TButton);
procedura IniSaveButton (BTN: TButton);
procedura IniLoadSpeedButton (BTN: TSpeedButton);
procedura IniSaveSpeedButton (BTN: TSpeedButton);
procedura IniLoadFormCaption (frm: TForm);
procedura IniSaveFormCaption (frm: TForm);
procedura IniSavePanel (pnl: TPanel);
procedura IniLoadPanel (pnl: TPanel);
procedura IniSaveFrame (pnl: Staffa a T);
procedura IniLoadFrame (pnl: Staffa a T);
procedura IniLoadStringGrid (griglia: TStringGrid);
procedura IniSaveStringGrid (griglia: TStringGrid);
procedura IniLoadShape (SHP: TShape);
procedura IniLoadImage (img: TImage);
procedura IniSaveShape (SHP: TShape);
procedura IniSaveImage (img: TImage);
procedura IniSaveControl (c: TControl);
procedura IniLoadControl (c: TControl);
procedura IniLoadOpenDialog (dlg: TOpenDialog);
procedura IniSaveOpenDialog (dlg: TOpenDialog);
procedura IniLoadMemo (appunto: TMemo);
procedura IniSaveMemo (appunto: TMemo);

procedura SetExtendedSection (S: Stringa);
funzione  GetExtendedSection: Stringa;
funzione  GetTextOnly: Booleano;
procedura SetTextOnly (b: Booleano);
funzione TranslateFormat2Text (S: Stringa): Stringa;
funzione TranslateText2Format (S: Stringa): Stringa;

procedura IniSaveComponnents (lista: Allineamento di TObject; Ext_Section: String= ''; TextOnly: Boolean=False);
procedura IniLoadComponnents (lista: Allineamento di TObject; Ext_Section: String= ''; TextOnly: Boolean=False);

Varietà
 IniFile: TIniFile;

esecuzione

Usi SysUtils, untUtils, FileCtrl;

Varietà
 _ExtSection: String= '';
 _TextOnly: Boolean=False;

procedura SetExtendedSection (S: Stringa);
cominciare
 _ExtSection: =S;
estremità;

funzione  GetExtendedSection: Stringa;
cominciare
 Risultato: =_ExtSection;
estremità;

funzione  GetTextOnly: Booleano;
cominciare
 Risultato: =_TextOnly;
estremità;

procedura SetTextOnly (b: Booleano);
cominciare
 _TextOnly: =b;
estremità;

funzione TranslateFormat2Text (S: Stringa): Stringa;
cominciare
 Risultato: =StringReplace (S, “% \„, #13#10, [rfReplaceAll]);
estremità;

funzione TranslateText2Format (S: Stringa): Stringa;
cominciare
 Risultato: =StringReplace (S, #13#10, “% \„, [rfReplaceAll]);
estremità;

procedura IniOpenFile (caso: Numero intero; FilePath: String= '');
cominciare
 IniOpenFile (ChangeFileExt (GetModuleName (hInstance), “.INI "), FilePath);
estremità;

procedura IniOpenFile (nome di schedario: String= ''; FilePath: String= '');
cominciare
 IniCloseFile;
 se nome di schedario di FileName= '' allora: =ChangeFileExt (GetModuleName (hInstance), “.INI "); /ChangeFileExt (ParamStr (0), “.INI ");
 se (FilePath<> '') allora
  cominciare
   FilePath: =IncludeTrailingBackslash (FilePath);
   se nome di schedario di DirectoryExists (FilePath) allora: =FilePath+FileName;
  estremità;
 IniFile: =TIniFile.Create (nome di schedario);
estremità;

procedura IniCloseFile;
cominciare
 FreeAndNil (IniFile);
estremità;

funzione IniLoadSaveDefaultString (sezione, Param, difetto: Stringa): Stringa;
cominciare
 Risultato: =IniLoadSaveDefault (sezione, Param, difetto);
estremità;

procedura IniLoadSaveDefaultStringList (sezione, Param: Stringa; Lista: TStringList; Scegliere: TStringListOptions= []);
Varietà
 i: numero intero;
cominciare
 Sezione: =_ExtSection+Section;
 List.CommaText: =IniFile.ReadString (sezione, Param, List.CommaText);
 se lo slUpperCase dentro allora sceglie
  cominciare
   List.Sorted: =False;
   per la i: =0 a List.Count-1 elencano [i]: =UpperCase (lista [i]);
   List.Sorted: =True;
  estremità;
 IniFile.WriteString (sezione, Param, List.CommaText);
estremità;

funzione IniLoadSaveDefault (sezione, Param, difetto: Stringa): Stringa; sovraccarico;
cominciare
 Sezione: =_ExtSection+Section;
 Risultato: =IniFile.ReadString (sezione, Param, difetto);
 IniFile.WriteString (sezione, Param, risultato);
estremità;

funzione IniLoadSaveDefault (sezione, Param: Stringa; Difetto: Numero intero): Numero intero; sovraccarico;
cominciare
 Sezione: =_ExtSection+Section;
 Risultato: =IniFile.ReadInteger (sezione, Param, difetto);
 IniFile.WriteInteger (sezione, Param, risultato);
estremità;

funzione IniLoadSaveDefault (sezione, Param: Stringa; Difetto: Booleano): Booleano; sovraccarico;
cominciare
 Sezione: =_ExtSection+Section;
 Risultato: =IniFile.ReadBool (sezione, Param, difetto);
 IniFile.WriteBool (sezione, Param, risultato);
estremità;

procedura IniSaveQuotedCaption (sezione, Param, difetto: Stringa);
cominciare
 se il difetto della disposizione (difetto<>) allora stabilizza: =AnsiQuotedStr (difetto, ““");
 IniFile.WriteString (_ExtSection+Section, Param, difetto);
estremità;

funzione IniLoadQuotedCaption (sezione, Param, difetto: Stringa): Stringa;
Varietà
 P: PChar;
cominciare
 Risultato: =IniFile.ReadString (_ExtSection+Section, Param, difetto);
 se (lunghezza (risultato) >=2) e (risultato [1] = ' “') allora
  cominciare
   P: =PChar (risultato);
   Risultato: =AnsiExtractQuotedStr (P, ““");
  estremità;
estremità;

procedura IniLoadFormPosAndSize (frm: TCustomForm);
Varietà
 Sezione: Stringa;
cominciare
 Sezione: =_ExtSection+frm.Name;
 frm. Titolo: =IniFile.ReadString (sezione, “TITOLO„, frm. Titolo);
 se non _TextOnly allora
  cominciare
   se il frm è TForm allora TForm (frm). Posizione: =poDesigned;
   frm. Larghezza: =IniFile.ReadInteger (sezione, “LARGHEZZA„, frm. Larghezza);
   frm. Altezza: =IniFile.ReadInteger (sezione, “ALTEZZA„, frm. Altezza);
   frm. Parte superiore: =IniFile.ReadInteger (sezione, “PARTE SUPERIORE„, frm. Parte superiore);
   frm. Parte di sinistra: =IniFile.ReadInteger (sezione, “HA ANDATO„, frm. Parte di sinistra);
   frm.WindowState: =TWindowState (IniFile.ReadInteger (sezione, “CONDIZIONE„, numero intero (frm.WindowState)));
  estremità;
estremità;

procedura IniSaveFormPosAndSize (frm: TCustomForm);
Varietà
 Sezione: Stringa;
cominciare
 Sezione: =_ExtSection+frm.Name;
 IniFile.WriteString (sezione, “TITOLO„, frm. Titolo);
 se non _TextOnly allora
  cominciare
   IniFile.WriteInteger (sezione, “CONDIZIONE„, numero intero (frm.WindowState));
   IniFile.WriteInteger (sezione, “LARGHEZZA„, frm. Larghezza);
   IniFile.WriteInteger (sezione, “ALTEZZA„, frm. Altezza);
   IniFile.WriteInteger (sezione, “PARTE SUPERIORE„, frm. Parte superiore);
   IniFile.WriteInteger (sezione, “HA ANDATO„, frm. Parte di sinistra);
  estremità;
estremità;

procedura IniLoadMemo (appunto: TMemo);
cominciare
 appunto. Testo: =TranslateFormat2Text (IniFile.ReadString (_ExtSection+memo.Name, “TESTO„, TranslateText2Format (appunto. Testo)));
estremità;

procedura IniSaveMemo (appunto: TMemo);
cominciare
 IniFile.WriteString (_ExtSection+memo.Name, “TESTO„, TranslateText2Format (appunto. Testo));
estremità;

procedura IniLoadCheckBox (chk: TCheckBox);
cominciare
 chk. Titolo: =IniLoadQuotedCaption (chk. Nome, “TITOLO„, chk. Titolo);
 se non _TextOnly allora chk. Controllato: =IniFile.ReadBool (_ExtSection+chk.Name, “HA CONTROLLATO„, chk. Controllato);
estremità;

procedura IniSaveCheckBox (chk: TCheckBox);
cominciare
 IniSaveQuotedCaption (chk. Nome, “TITOLO„, chk. Titolo);
 se non _TextOnly allora IniFile.WriteBool (_ExtSection+chk.Name, “HA CONTROLLATO„, chk. Controllato);
estremità;

procedura IniLoadShape (SHP: TShape);
Varietà
 Sezione: Stringa;
cominciare
 con la SHP fare
  cominciare
   Sezione: =_ExtSection+Name;
   Visibile: =IniFile.ReadBool (sezione, “VISIBILE„, visibile);
   Pen.Color: =StringToColor (IniFile.ReadString (sezione, “PEN_COLOR„, ColorToString (Pen.Color)));
   Brush.Color: =StringToColor (IniFile.ReadString (sezione, “BRUSH_COLOR„, ColorToString (Brush.Color)));
  estremità;
estremità;

procedura IniLoadImage (img: TImage);
Varietà
 F: Stringa;
 Sezione: Stringa;
cominciare
 Con il img fare
  prova
   Sezione: =_ExtSection+Name;
   Visibile: =IniFile.ReadBool (sezione, “VISIBILE„, visibile);
   Trasparente: =IniFile.ReadBool (sezione, “TRASPARENTE„, trasparente);
   Stirata: =IniFile.ReadBool (sezione, “STIRATA„, stirata);
   F: =IniFile.ReadString (sezione, “LIMA„, '');
   se FileExists (F) allora Picture.LoadFromFile (F);
  tranne
  estremità;
estremità;

procedura IniSaveShape (SHP: TShape);
Varietà
 Sezione: Stringa;
cominciare
 con la SHP fare
  cominciare
   Sezione: =_ExtSection+Name;
   IniFile.WriteBool (sezione, “VISIBILE„, visibile);
   IniFile.WriteString (sezione, “PEN_COLOR„, ColorToString (Pen.Color));
   IniFile.WriteString (sezione, “BRUSH_COLOR„, ColorToString (Brush.Color));
  estremità;
estremità;

procedura IniSaveImage (img: TImage);
Varietà
 Sezione: Stringa;
cominciare
 Con il img fare
  cominciare
   Sezione: =_ExtSection+Name;
   IniFile.WriteBool (sezione, “VISIBILE„, visibile);
   IniFile.WriteBool (sezione, “TRASPARENTE„, trasparente);
   IniFile.WriteBool (sezione, “STIRATA„, stirata);
  estremità;
estremità;

procedura IniLoadRadioButton (Rb: TRadioButton);
cominciare
 Rb. Titolo: =IniLoadQuotedCaption (Rb. Nome, “TITOLO„, Rb. Titolo);
 se non _TextOnly allora Rb. Controllato: =IniFile.ReadBool (_ExtSection+rb.Name, “HA CONTROLLATO„, Rb. Controllato);
estremità;

procedura IniSaveRadioButton (Rb: TRadioButton);
cominciare
 IniSaveQuotedCaption (Rb. Nome, “TITOLO„, Rb. Titolo);
 se non _TextOnly allora IniFile.WriteBool (_ExtSection+rb.Name, “HA CONTROLLATO„, Rb. Controllato);
estremità;

procedura IniLoadText (edt: TCustomEdit);
cominciare
 edt. Testo: =IniLoadQuotedCaption (edt. Nome, “TESTO„, edt. Testo);
estremità;

procedura IniSaveText (edt: TCustomEdit);
cominciare
 IniSaveQuotedCaption (edt. Nome, “TESTO„, edt. Testo);
estremità;

procedura IniLoadCaption (lbl: TLabel);
cominciare
 lbl. Titolo: =IniLoadQuotedCaption (lbl. Nome, “TITOLO„, lbl. Titolo);
estremità;

procedura IniSaveCaption (lbl: TLabel);
cominciare
 IniSaveQuotedCaption (lbl. Nome, “TITOLO„, lbl. Titolo);
estremità;

procedura IniLoadFormCaption (frm: TForm);
cominciare
 frm. Titolo: =IniLoadQuotedCaption (frm. Nome, “TITOLO„, frm. Titolo);
estremità;

procedura IniSaveFormCaption (frm: TForm);
cominciare
 IniSaveQuotedCaption (frm. Nome, “TITOLO„, frm. Titolo);
estremità;

procedura IniLoadButton (BTN: TButton);
cominciare
 BTN. Titolo: =IniLoadQuotedCaption (BTN. Nome, “TITOLO„, BTN. Titolo);
estremità;

procedura IniSaveButton (BTN: TButton);
cominciare
 IniSaveQuotedCaption (BTN. Nome, “TITOLO„, BTN. Titolo);
estremità;

procedura IniLoadBitButton (BTN: TBitBtn);
cominciare
 BTN. Titolo: =IniLoadQuotedCaption (BTN. Nome, “TITOLO„, BTN. Titolo);
estremità;

procedura IniSaveBitButton (BTN: TBitBtn);
cominciare
 IniSaveQuotedCaption (BTN. Nome, “TITOLO„, BTN. Titolo);
estremità;

procedura IniLoadSpeedButton (BTN: TSpeedButton);
cominciare
 BTN. Titolo: =IniLoadQuotedCaption (BTN. Nome, “TITOLO„, BTN. Titolo);
estremità;

procedura IniSaveSpeedButton (BTN: TSpeedButton);
cominciare
 IniSaveQuotedCaption (BTN. Nome, “TITOLO„, BTN. Titolo);
estremità;

procedura IniLoadRadioGroup (rg: TRadioGroup);
cominciare
 rg. Titolo: =IniLoadQuotedCaption (rg. Nome, “TITOLO„, rg. Titolo);
 se non _TextOnly allora rg.ItemIndex: =IniFile.ReadInteger (_ExtSection+rg.Name, “INDICE„, rg.ItemIndex);
estremità;

procedura IniSaveRadioGroup (rg: TRadioGroup);
cominciare
 IniSaveQuotedCaption (rg. Nome, “TITOLO„, rg. Titolo);
 se non _TextOnly allora IniFile.WriteInteger (_ExtSection+rg.Name, “INDICE„, rg.ItemIndex);
estremità;

procedura IniLoadGroupBox (GB: TGroupBox);
cominciare
 GB. Titolo: =IniLoadQuotedCaption (GB. Nome, “TITOLO„, GB. Titolo);
 se non _TextOnly allora IniLoadControl (GB);
estremità;

procedura IniSaveGroupBox (GB: TGroupBox);
cominciare
 IniSaveQuotedCaption (GB. Nome, “TITOLO„, GB. Titolo);
 se non _TextOnly allora IniSaveControl (GB);
estremità;

procedura IniLoadComboBox (Cb: TComboBox);
Varietà
 Streptococco: Stringa;
cominciare
 Streptococco: =IniLoadQuotedCaption (Cb. Nome, “TESTO„, Cb. Testo);
 se Cb. Style=csDropDownList allora
  cominciare
   se streptococco<> '' allora cb.ItemIndex: =cb. Items.IndexOf (streptococco) cb.ItemIndex altro: =IniFile.ReadInteger (_ExtSection+cb.Name, “INDICE„, cb.ItemIndex);
  Cb altri dell'estremità. Testo: =Str;
estremità;

procedura IniSaveComboBox (Cb: TComboBox);
cominciare
 IniSaveQuotedCaption (Cb. Nome, “TESTO„, Cb. Testo);
 IniFile.WriteInteger (_ExtSection+cb.Name, “INDICE„, cb.ItemIndex);
estremità;

{$ifdef USE_SPIN_EDT}
procedura IniLoadSpinEdit (edt: TSpinEdit);
cominciare
 edt. Valore: =IniFile.ReadInteger (_ExtSection+edt.Name, “VALORE„, edt. Valore);
estremità;

procedura IniSaveSpinEdit (edt: TSpinEdit);
cominciare
 IniFile.WriteInteger (_ExtSection+edt.Name, “VALORE„, edt. Valore);
estremità;
{$endif}

procedura IniSavePanel (pnl: TPanel);
cominciare
 IniFile.WriteInteger (_ExtSection+pnl.Name, “LARGHEZZA„, pnl. Larghezza);
 IniFile.WriteInteger (_ExtSection+pnl.Name, “ALTEZZA„, pnl. Altezza);
estremità;

procedura IniLoadPanel (pnl: TPanel);
cominciare
 pnl. Larghezza: =IniFile.ReadInteger (_ExtSection+pnl.Name, “LARGHEZZA„, pnl. Larghezza);
 pnl. Altezza: =IniFile.ReadInteger (_ExtSection+pnl.Name, “ALTEZZA„, pnl. Altezza);
estremità;

procedura IniSaveFrame (pnl: Staffa a T);
cominciare
 IniFile.WriteInteger (_ExtSection+pnl.Name, “LARGHEZZA„, pnl. Larghezza);
 IniFile.WriteInteger (_ExtSection+pnl.Name, “ALTEZZA„, pnl. Altezza);
estremità;

procedura IniLoadFrame (pnl: Staffa a T);
cominciare
 pnl. Larghezza: =IniFile.ReadInteger (_ExtSection+pnl.Name, “LARGHEZZA„, pnl. Larghezza);
 pnl. Altezza: =IniFile.ReadInteger (_ExtSection+pnl.Name, “ALTEZZA„, pnl. Altezza);
estremità;

procedura IniLoadStringGrid (griglia: TStringGrid);
Varietà
 i: numero intero;
 Sezione: Stringa;
cominciare
 Con la griglia fare
  cominciare
   Sezione: =_ExtSection+Name;
   grid.ColCount: =IniFile.ReadInteger (sezione, “COL_COUNT„, grid.ColCount);
   per la i: =0 a grid.ColCount-1 fanno
    cominciare
     grid.ColWidths [i]: =IniFile.ReadInteger (sezione, disposizione (“COL_%d_WIDTH„, [i]), grid.ColWidths [i]);
     griglia. Cellule [i, 0]: =IniFile.ReadString (sezione, disposizione (“COL_%d_TEXT„, [i]), griglia. Cellule [i, 0]);
    estremità;
  estremità;
estremità;

procedura IniSaveStringGrid (griglia: TStringGrid);
Varietà
 i: numero intero;
 Sezione: Stringa;
cominciare
 Con la griglia fare
  cominciare
   Sezione: =_ExtSection+Name;
   IniFile.WriteInteger (sezione, “COL_COUNT„, grid.ColCount);
   per la i: =0 a grid.ColCount-1 fanno
    cominciare
     IniFile.WriteInteger (sezione, disposizione (“COL_%d_WIDTH„, [i]), grid.ColWidths [i]);
     IniFile.WriteString (sezione, disposizione (“COL_%d_TEXT„, [i]), griglia. Cellule [i, 0]);
    estremità;
  estremità;
estremità;

procedura IniLoadOpenDialog (dlg: TOpenDialog);
cominciare
 dlg.InitialDir: =IniLoadQuotedCaption (dlg. Nome, “INITIAL_DIR„, dlg.InitialDir);
estremità;

procedura IniSaveOpenDialog (dlg: TOpenDialog);
cominciare
 IniSaveQuotedCaption (dlg. Nome, “INITIAL_DIR„, dlg.InitialDir);
estremità;

procedura IniSaveControl (c: TControl);
cominciare
 IniFile.WriteInteger (_ExtSection+c.Name, “LARGHEZZA„, c.Width);
 IniFile.WriteInteger (_ExtSection+c.Name, “ALTEZZA„, c.Height);
estremità;

procedura IniLoadControl (c: TControl);
cominciare
 c.Width: =IniFile.ReadInteger (_ExtSection+c.Name, “LARGHEZZA„, c.Width);
 c.Height: =IniFile.ReadInteger (_ExtSection+c.Name, “ALTEZZA„, c.Height);
estremità;

procedura IniLoadListView (L: TListView);
Varietà
 Sezione: Stringa;
 i: numero intero;
cominciare
 Con la L fare
  cominciare
   Sezione: =_ExtSection+Name;
   per la i: = 0 a Columns.Count - 1 fa le colonne [i]. Titolo: =IniFile.ReadString (sezione, disposizione (“COLUMN_%d„, [i]), colonne [i]. Titolo);
  estremità;
estremità;

procedura IniSaveListView (L: TListView);
Varietà
 Sezione: Stringa;
 i: numero intero;
cominciare
 Con la L fare
  cominciare
   Sezione: =_ExtSection+Name;
   per la i: = 0 a Columns.Count - 1 fa IniFile.WriteString (sezione, disposizione (“COLUMN_%d„, [i]), le colonne [i]. Titolo);
  estremità;
estremità;

procedura IniLoadMenu (m.: TMenu);
Varietà
 Sezione: Stringa;
 i: numero intero;

 procedura IniLoadMenuItem (m.: TMenuItem; Sezione: Stringa);
 Varietà
  i: numero intero;
 cominciare
  Sezione: =Sect+'. '+M.Name;
  per la i: = 0 a M.Count - 1 fa se M.Items [i]. Caption'-<> 'allora
   cominciare
    M.Items [i]. Titolo: =IniFile.ReadString (sezione, M.Items [i]. Nome, M.Items [i]. Titolo);
    se M.Items [i]. Count>0 allora IniLoadMenuItem (M.Items [i], sezione);
   estremità;
 estremità;
cominciare
 Con la m. fare
  cominciare
   Sezione: =_ExtSection+Name;
   per la i: = 0 a M.Items.Count - 1 fa se articoli [i]. Caption'-<> 'allora
    cominciare
     Articoli [i]. Titolo: =IniFile.ReadString (sezione, articoli [i]. Nome, articoli [i]. Titolo);
    estremità;
  estremità;
estremità;

procedura IniSaveMenu (m.: TMenu);
Varietà
 Sezione: Stringa;
 i: numero intero;
 procedura IniSaveMenuItem (m.: TMenuItem; Sezione: Stringa);
 Varietà
  i: numero intero;
 cominciare
  Sezione: =Sect+'. '+M.Name;
  per la i: = 0 a M.Count - 1 fa se M.Items [i]. Caption'-<> 'allora
   cominciare
    IniFile.WriteString (sezione, M.Items [i]. Nome, M.Items [i]. Titolo);
    se M.Items [i]. Count>0 allora IniSaveMenuItem (M.Items [i], sezione);
   estremità;
 estremità;
cominciare
 Con la m. fare
  cominciare
   Sezione: =_ExtSection+Name;
   per la i: = 0 a M.Items.Count - 1 fa se articoli [i]. Caption'-<> 'allora
    cominciare
     IniFile.WriteString (sezione, articoli [i]. Nome, articoli [i]. Titolo);
     se articoli [i]. Count>0 allora IniSaveMenuItem (articoli [i], _ExtSection);
    estremità;
  estremità;
estremità;

procedura IniSaveComponnents (lista: Allineamento di TObject; Ext_Section: String= ''; TextOnly: Boolean=False);
varietà
 i: numero intero;
 SaveExtSect: Stringa;
 SaveTextOnly: Booleano;
cominciare
 SaveExtSect: =_ExtSection;
 _ExtSection: =Ext_Section;
 SaveTextOnly: =_TextOnly;
 _TextOnly: =TextOnly;
 per la i: Il =Low (lista) al livello (lista) fa se allora assegnato (lista [i])
  prova
   se la lista [i] è TMemo        allora IniSaveMemo          (TMemo        (lista [i])) Altrimenti
   se la lista [i] è TListView    allora IniSaveListView      (TListView    (lista [i])) Altrimenti
   se la lista [i] è TMenu        allora IniSaveMenu          (TMenu        (lista [i])) Altrimenti
   se la lista [i] è TCustomForm  allora IniSaveFormPosAndSize (TCustomForm  (lista [i])) Altrimenti
   se la lista [i] è TRadioGroup  allora IniSaveRadioGroup    (TRadioGroup  (lista [i])) Altrimenti
   se la lista [i] è TRadioButton allora IniSaveRadioButton   (TRadioButton (lista [i])) Altrimenti
   se la lista [i] è TCustomEdit  allora IniSaveText          (TCustomEdit  (lista [i])) Altrimenti
   se la lista [i] è TCheckBox    allora IniSaveCheckBox      (TCheckBox    (lista [i])) Altrimenti
   se la lista [i] è TComboBox    allora IniSaveComboBox      (TComboBox    (lista [i])) Altrimenti
{$ifdef USE_SPIN_EDT}
   se la lista [i] è TSpinEdit    allora IniSaveSpinEdit  	(TSpinEdit    (lista [i])) Altrimenti
{$endif}
   se la lista [i] è TLabel       allora IniSaveCaption  	(TLabel       (lista [i])) Altrimenti
   se la lista [i] è TBitBtn      allora IniSaveBitButton  	(TBitBtn      (lista [i])) Altrimenti
   se la lista [i] è TButton      allora IniSaveButton  	(TButton      (lista [i])) Altrimenti
   se la lista [i] è TSpeedButton allora IniSaveSpeedButton  	(TSpeedButton (lista [i])) Altrimenti
   se la lista [i] è TPanel       allora IniSavePanel 	(TPanel       (lista [i])) Altrimenti
   se la lista [i] è staffa a T       allora IniSaveFrame 	(staffa a T       (lista [i])) Altrimenti
   se la lista [i] è TStringGrid  allora IniSaveStringGrid    (TStringGrid  (lista [i])) Altrimenti
   se la lista [i] è TOpenDialog  allora IniSaveOpenDialog    (TOpenDialog  (lista [i])) Altrimenti
   se la lista [i] è TShape       allora IniSaveShape         (TShape       (lista [i])) Altrimenti
   se la lista [i] è TImage       allora IniSaveImage         (TImage       (lista [i])) Altrimenti
   se la lista [i] è TGroupBox    allora IniSaveGroupBox      (TGroupBox    (lista [i])) Altrimenti
   se la lista [i] è TControl     allora IniSaveControl       (TControl     (lista [i])) Altrimenti
   se la lista [i] è TComponent   allora ShowMessage ('Erreur salvo “+TComponent (lista [i]). Name+„: '+List [i] .ClassName)
    ShowMessage altro ('Erreur conserva '+List [i] .ClassName);
  tranne
   sulla E: L'eccezione fa ShowMessage (disposizione (“risparmio %s di errore: %s'#13'% s„, [TComponent (lista [i]). Nome, E.ClassName, E.Message]));
  estremità;
 _ExtSection: =SaveExtSect;
 _TextOnly: =SaveTextOnly;
estremità;

procedura IniLoadComponnents (lista: Allineamento di TObject; Ext_Section: String= ''; TextOnly: Boolean=False);
varietà
 i: numero intero;
 SaveExtSect: Stringa;
 SaveTextOnly: Booleano;
cominciare
 SaveExtSect: =_ExtSection;
 _ExtSection: =Ext_Section;
 SaveTextOnly: =_TextOnly;
 _TextOnly: =TextOnly;
 per la i: Il =Low (lista) al livello (lista) fa se allora assegnato (lista [i])
  prova
   se la lista [i] è TMemo        allora IniLoadMemo          (TMemo        (lista [i])) Altrimenti
   se la lista [i] è TListView    allora IniLoadListView      (TListView    (lista [i])) Altrimenti
   se la lista [i] è TMenu        allora IniLoadMenu          (TMenu        (lista [i])) Altrimenti
   se la lista [i] è TCustomForm  allora IniLoadFormPosAndSize (TCustomForm  (lista [i])) Altrimenti
   se la lista [i] è TRadioGroup  allora IniLoadRadioGroup    (TRadioGroup  (lista [i])) Altrimenti
   se la lista [i] è TRadioButton allora IniLoadRadioButton   (TRadioButton (lista [i])) Altrimenti
   se la lista [i] è TCustomEdit  allora IniLoadText          (TCustomEdit  (lista [i])) Altrimenti
   se la lista [i] è TCheckBox    allora IniLoadCheckBox      (TCheckBox    (lista [i])) Altrimenti
   se la lista [i] è TComboBox    allora IniLoadComboBox      (TComboBox    (lista [i])) Altrimenti
{$ifdef USE_SPIN_EDT}
   se la lista [i] è TSpinEdit    allora IniLoadSpinEdit  	(TSpinEdit    (lista [i])) Altrimenti
{$endif}
   se la lista [i] è TLabel       allora IniLoadCaption  	(TLabel       (lista [i])) Altrimenti
   se la lista [i] è TBitBtn      allora IniLoadBitButton  	(TBitBtn      (lista [i])) Altrimenti
   se la lista [i] è TButton      allora IniLoadButton  	(TButton      (lista [i])) Altrimenti
   se la lista [i] è TSpeedButton allora IniLoadSpeedButton  	(TSpeedButton (lista [i])) Altrimenti
   se la lista [i] è TPanel       allora IniLoadPanel 	(TPanel       (lista [i])) Altrimenti
   se la lista [i] è staffa a T       allora IniLoadFrame 	(staffa a T       (lista [i])) Altrimenti
   se la lista [i] è TStringGrid  allora IniLoadStringGrid    (TStringGrid  (lista [i])) Altrimenti
   se la lista [i] è TOpenDialog  allora IniLoadOpenDialog    (TOpenDialog  (lista [i])) Altrimenti
   se la lista [i] è TShape       allora IniLoadShape         (TShape       (lista [i])) Altrimenti
   se la lista [i] è TImage       allora IniLoadImage         (TImage       (lista [i])) Altrimenti
   se la lista [i] è TGroupBox    allora IniLoadGroupBox      (TGroupBox    (lista [i])) Altrimenti
   se la lista [i] è TControl     allora IniLoadControl       (TControl     (lista [i])) Altrimenti
   se la lista [i] è TComponent   allora ShowMessage ('carico “+TComponent (lista [i] di Erreur). Name+„: '+List [i] .ClassName) altrimenti
    ShowMessage ('carico '+List [i] .ClassName) di Erreur;
  tranne
   sulla E: L'eccezione fa ShowMessage (disposizione (“caricamento %s di errori: %s'#13'% s„, [TComponent (lista [i]). Nome, E.ClassName, E.Message]));
  estremità;
 _ExtSection: =SaveExtSect;
 _TextOnly: =SaveTextOnly;
estremità;

inizio
 IniFile: =nil;
 IniOpenFile;
completamento
 IniCloseFile;
estremità.
Altre soluzioni  
 
programming4us programming4us