Pytanie : Wor z ini kartoteka


Z:
z TINIFile.Create (ExtractPath (Form1.caption) + ' .ini')
i polubić w:
procedura TForm1.FormClose (Nadawca: TObject; var Akcja: TCloseAction);
procedura TForm1.FormCreate (Nadawca: TObject);

i potrzebować ścieżka dokąd initialization mój forma przechować. I i dostawać ono od the Formularzowy podpis.

Przykład:  myform The archiwum lokalizować w: C:\myform 
(1):
2:
3:
4:
5:
6:
7:

Funkcja TForm1.ExtractPath (Str: Sznurek): Sznurek;
Var
 P: Integer;
zaczynać
 P: =Pos (": \", Str);
 jeżeli P>0 Wtedy Wynikać: =Copy (Str, P-1, Długość (Str)) Inny Rezultat: = '';
końcówka;

Odpowiedź : Wor z ini kartoteka

I rozumieć dużo rozumieć ty chcieć, ale I mieć rozległy narzędziowy jednostka/oprócz składnik & tworzyć własność (podpis, sprawdzać status, etc…) w Ini kartoteka.

Nawet jeśli ty chcieć ono gdy ono być, I być pewny ty znajdować zatrzęsienie pomysł tutaj.
Gdy ty zawierać ten jednostka w projekt, ono automatycznie initialize Ini kartoteka wymieniać po the zastosowanie lub dll imię który używać ono.

Musieć ty musieć być
IniSaveComponnents
i
IniLoadComponnents

z szyk składnik lub forma który ty chcieć:

procedura TForm1.FormCreate (Nadawca: TObject);
zaczynać
 IniLoadComponnents ([Jaźń, edtParam1, chkOption1]); // => oprócz the forma, i 2 składnik
końcówka;

procedura TForm1.FormDestroy (Nadawca: TObject);
zaczynać
 IniSaveComponnents ([Jaźń, edtParam1, chkOption1]); // => oprócz the forma, i 2 składnik
końcówka;


Ty móc dodatkowy sekcja parametr który dodawać the automatyczny Ini sekcja tworzyć. Naprawdę być trochę the klucz/wartość w the Ini, jeżeli używać w wiele forma, ale przegrupowywać wywierać wpływ przegrupowywać naprawdę przechować. Ty móc także TextOnly także parametr tylko ładunek/oprócz the podpis, nie the wartość (dla prosty językowy zarządzanie)
(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:

jednostka IniOptions;

interfejs

Uses Tworzyć, klasa, IniFiles, StdCtrls, ExtCtrls, Guzik, Siatka, Kontrola, Dialog, Grafika, ComCtrls, Menu, Wir;

Typ
 TStringListOption= (slUpperCase);
 TStringListOptions=set TStringListOption;

procedura IniOpenFile (FileName: String= ''; FilePath: String= ''); przeciążenie;
procedura IniOpenFile (Przykład: Integer; FilePath: String= ''); przeciążenie;
procedura IniCloseFile;

procedura IniSaveQuotedCaption (Sekcja, Param, Brak: Sznurek);
funkcja IniLoadQuotedCaption (Sekcja, Param, Brak: Sznurek): Sznurek;

funkcja IniLoadSaveDefaultString (Sekcja, Param, Brak: Sznurek): Sznurek;
funkcja IniLoadSaveDefault (Sekcja, Param, Brak: Sznurek): Sznurek; przeciążenie;
funkcja IniLoadSaveDefault (Sekcja, Param: Sznurek; Brak: Integer): Integer; przeciążenie;
funkcja IniLoadSaveDefault (Sekcja, Param: Sznurek; Brak: Boolowski): Boolowski; przeciążenie;
procedura IniLoadSaveDefaultStringList (Sekcja, Param: Sznurek; Lista: TStringList; Woleć: 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: TFrame);
procedura IniLoadFrame (pnl: TFrame);
procedura IniLoadStringGrid (siatka: TStringGrid);
procedura IniSaveStringGrid (siatka: 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 (notatka: TMemo);
procedura IniSaveMemo (notatka: TMemo);

procedura SetExtendedSection (S: Sznurek);
funkcja  GetExtendedSection: Sznurek;
funkcja  GetTextOnly: Boolowski;
procedura SetTextOnly (B: Boolowski);
funkcja TranslateFormat2Text (S: Sznurek): Sznurek;
funkcja TranslateText2Format (S: Sznurek): Sznurek;

procedura IniSaveComponnents (Lista: Szyk TObject; Ext_Section: String= ''; TextOnly: Boolean=False);
procedura IniLoadComponnents (Lista: Szyk TObject; Ext_Section: String= ''; TextOnly: Boolean=False);

Var
 IniFile: TIniFile;

urzeczywistnienie

Uses SysUtils, untUtils, FileCtrl;

Var
 _ExtSection: String= '';
 _TextOnly: Boolean=False;

procedura SetExtendedSection (S: Sznurek);
zaczynać
 _ExtSection: =S;
końcówka;

funkcja  GetExtendedSection: Sznurek;
zaczynać
 Rezultat: =_ExtSection;
końcówka;

funkcja  GetTextOnly: Boolowski;
zaczynać
 Rezultat: =_TextOnly;
końcówka;

procedura SetTextOnly (B: Boolowski);
zaczynać
 _TextOnly: =b;
końcówka;

funkcja TranslateFormat2Text (S: Sznurek): Sznurek;
zaczynać
 Rezultat: =StringReplace (S, "% \", #13#10, [rfReplaceAll]);
końcówka;

funkcja TranslateText2Format (S: Sznurek): Sznurek;
zaczynać
 Rezultat: =StringReplace (S, #13#10, "% \", [rfReplaceAll]);
końcówka;

procedura IniOpenFile (Przykład: Integer; FilePath: String= '');
zaczynać
 IniOpenFile (ChangeFileExt (GetModuleName (hInstance), ".INI "), FilePath);
końcówka;

procedura IniOpenFile (FileName: String= ''; FilePath: String= '');
zaczynać
 IniCloseFile;
 jeżeli FileName= '' Wtedy FileName: =ChangeFileExt (GetModuleName (hInstance), ".INI "); /ChangeFileExt (ParamStr ((0)), ".INI ");
 jeżeli (FilePath<> '') Wtedy
  zaczynać
   FilePath: =IncludeTrailingBackslash (FilePath);
   jeżeli DirectoryExists (FilePath) Wtedy FileName: =FilePath+FileName;
  końcówka;
 IniFile: =TIniFile.Create (FileName);
końcówka;

procedura IniCloseFile;
zaczynać
 FreeAndNil (IniFile);
końcówka;

funkcja IniLoadSaveDefaultString (Sekcja, Param, Brak: Sznurek): Sznurek;
zaczynać
 Rezultat: =IniLoadSaveDefault (Sekcja, Param, Brak);
końcówka;

procedura IniLoadSaveDefaultStringList (Sekcja, Param: Sznurek; Lista: TStringList; Woleć: TStringListOptions= []);
Var
 i: integer;
zaczynać
 Sekcja: =_ExtSection+Section;
 List.CommaText: =IniFile.ReadString (Sekcja, Param, List.CommaText);
 jeżeli slUpperCase Wewnątrz Woleć Wtedy
  zaczynać
   List.Sorted: =False;
   dla i: =0 List.Count-1 Spisywać [i]: =UpperCase (Lista [i]);
   List.Sorted: =True;
  końcówka;
 IniFile.WriteString (Sekcja, Param, List.CommaText);
końcówka;

funkcja IniLoadSaveDefault (Sekcja, Param, Brak: Sznurek): Sznurek; przeciążenie;
zaczynać
 Sekcja: =_ExtSection+Section;
 Rezultat: =IniFile.ReadString (Sekcja, Param, Brak);
 IniFile.WriteString (Sekcja, Param, Rezultat);
końcówka;

funkcja IniLoadSaveDefault (Sekcja, Param: Sznurek; Brak: Integer): Integer; przeciążenie;
zaczynać
 Sekcja: =_ExtSection+Section;
 Rezultat: =IniFile.ReadInteger (Sekcja, Param, Brak);
 IniFile.WriteInteger (Sekcja, Param, Rezultat);
końcówka;

funkcja IniLoadSaveDefault (Sekcja, Param: Sznurek; Brak: Boolowski): Boolowski; przeciążenie;
zaczynać
 Sekcja: =_ExtSection+Section;
 Rezultat: =IniFile.ReadBool (Sekcja, Param, Brak);
 IniFile.WriteBool (Sekcja, Param, Rezultat);
końcówka;

procedura IniSaveQuotedCaption (Sekcja, Param, Brak: Sznurek);
zaczynać
 jeżeli Podstrzyżenie (Brak)<> Brak Wtedy Brak: =AnsiQuotedStr (Brak, """);
 IniFile.WriteString (_ExtSection+Section, Param, Brak);
końcówka;

funkcja IniLoadQuotedCaption (Sekcja, Param, Brak: Sznurek): Sznurek;
Var
 P: PChar;
zaczynać
 Rezultat: =IniFile.ReadString (_ExtSection+Section, Param, Brak);
 jeżeli (Długość (Rezultat) >=2) I (Rezultat [(1)] = ' "') Wtedy
  zaczynać
   P: =PChar (Rezultat);
   Rezultat: =AnsiExtractQuotedStr (P, """);
  końcówka;
końcówka;

procedura IniLoadFormPosAndSize (frm: TCustomForm);
Var
 Sekcja: Sznurek;
zaczynać
 Sekcja: =_ExtSection+frm.Name;
 frm. Podpis: =IniFile.ReadString (Sekcja, "PODPIS", frm. Podpis);
 jeśli nie _TextOnly Wtedy
  zaczynać
   jeżeli frm Być TForm Wtedy TForm (frm). Pozycja: =poDesigned;
   frm. Szerokość: =IniFile.ReadInteger (Sekcja, "SZEROKOŚĆ", frm. Szerokość);
   frm. Wzrost: =IniFile.ReadInteger (Sekcja, "WZROST", frm. Wzrost);
   frm. Wierzchołek: =IniFile.ReadInteger (Sekcja, "WIERZCHOŁEK", frm. Wierzchołek);
   frm. Lewica: =IniFile.ReadInteger (Sekcja, "OPUSZCZAĆ", frm. Lewica);
   frm.WindowState: =TWindowState (IniFile.ReadInteger (Sekcja, "STAN", Integer (frm.WindowState)));
  końcówka;
końcówka;

procedura IniSaveFormPosAndSize (frm: TCustomForm);
Var
 Sekcja: Sznurek;
zaczynać
 Sekcja: =_ExtSection+frm.Name;
 IniFile.WriteString (Sekcja, "PODPIS", frm. Podpis);
 jeśli nie _TextOnly Wtedy
  zaczynać
   IniFile.WriteInteger (Sekcja, "STAN", Integer (frm.WindowState));
   IniFile.WriteInteger (Sekcja, "SZEROKOŚĆ", frm. Szerokość);
   IniFile.WriteInteger (Sekcja, "WZROST", frm. Wzrost);
   IniFile.WriteInteger (Sekcja, "WIERZCHOŁEK", frm. Wierzchołek);
   IniFile.WriteInteger (Sekcja, "OPUSZCZAĆ", frm. Lewica);
  końcówka;
końcówka;

procedura IniLoadMemo (notatka: TMemo);
zaczynać
 notatka. Tekst: =TranslateFormat2Text (IniFile.ReadString (_ExtSection+memo.Name, "TEKST", TranslateText2Format (notatka. Tekst)));
końcówka;

procedura IniSaveMemo (notatka: TMemo);
zaczynać
 IniFile.WriteString (_ExtSection+memo.Name, "TEKST", TranslateText2Format (notatka. Tekst));
końcówka;

procedura IniLoadCheckBox (chk: TCheckBox);
zaczynać
 chk. Podpis: =IniLoadQuotedCaption (chk. Imię, "PODPIS", chk. Podpis);
 jeśli nie _TextOnly Wtedy chk. Sprawdzać: =IniFile.ReadBool (_ExtSection+chk.Name, "SPRAWDZAĆ", chk. Sprawdzać);
końcówka;

procedura IniSaveCheckBox (chk: TCheckBox);
zaczynać
 IniSaveQuotedCaption (chk. Imię, "PODPIS", chk. Podpis);
 jeśli nie _TextOnly Wtedy IniFile.WriteBool (_ExtSection+chk.Name, "SPRAWDZAĆ", chk. Sprawdzać);
końcówka;

procedura IniLoadShape (shp: TShape);
Var
 Sekcja: Sznurek;
zaczynać
 z shp
  zaczynać
   Sekcja: =_ExtSection+Name;
   Widoczny: =IniFile.ReadBool (Sekcja, "WIDOCZNY", Widoczny);
   Pen.Color: =StringToColor (IniFile.ReadString (Sekcja, "PEN_COLOR", ColorToString (Pen.Color)));
   Brush.Color: =StringToColor (IniFile.ReadString (Sekcja, "BRUSH_COLOR", ColorToString (Brush.Color)));
  końcówka;
końcówka;

procedura IniLoadImage (img: TImage);
Var
 F: Sznurek;
 Sekcja: Sznurek;
zaczynać
 Z img
  próba
   Sekcja: =_ExtSection+Name;
   Widoczny: =IniFile.ReadBool (Sekcja, "WIDOCZNY", Widoczny);
   Przejrzysty: =IniFile.ReadBool (Sekcja, "PRZEJRZYSTY", Przejrzysty);
   Rozciągliwość: =IniFile.ReadBool (Sekcja, "ROZCIĄGLIWOŚĆ", Rozciągliwość);
   F: =IniFile.ReadString (Sekcja, "KARTOTEKA", '');
   jeżeli FileExists (F) Wtedy Picture.LoadFromFile (F);
  oprócz
  końcówka;
końcówka;

procedura IniSaveShape (shp: TShape);
Var
 Sekcja: Sznurek;
zaczynać
 z shp
  zaczynać
   Sekcja: =_ExtSection+Name;
   IniFile.WriteBool (Sekcja, "WIDOCZNY", Widoczny);
   IniFile.WriteString (Sekcja, "PEN_COLOR", ColorToString (Pen.Color));
   IniFile.WriteString (Sekcja, "BRUSH_COLOR", ColorToString (Brush.Color));
  końcówka;
końcówka;

procedura IniSaveImage (img: TImage);
Var
 Sekcja: Sznurek;
zaczynać
 Z img
  zaczynać
   Sekcja: =_ExtSection+Name;
   IniFile.WriteBool (Sekcja, "WIDOCZNY", Widoczny);
   IniFile.WriteBool (Sekcja, "PRZEJRZYSTY", Przejrzysty);
   IniFile.WriteBool (Sekcja, "ROZCIĄGLIWOŚĆ", Rozciągliwość);
  końcówka;
końcówka;

procedura IniLoadRadioButton (rb: TRadioButton);
zaczynać
 rb. Podpis: =IniLoadQuotedCaption (rb. Imię, "PODPIS", rb. Podpis);
 jeśli nie _TextOnly Wtedy rb. Sprawdzać: =IniFile.ReadBool (_ExtSection+rb.Name, "SPRAWDZAĆ", rb. Sprawdzać);
końcówka;

procedura IniSaveRadioButton (rb: TRadioButton);
zaczynać
 IniSaveQuotedCaption (rb. Imię, "PODPIS", rb. Podpis);
 jeśli nie _TextOnly Wtedy IniFile.WriteBool (_ExtSection+rb.Name, "SPRAWDZAĆ", rb. Sprawdzać);
końcówka;

procedura IniLoadText (edt: TCustomEdit);
zaczynać
 edt. Tekst: =IniLoadQuotedCaption (edt. Imię, "TEKST", edt. Tekst);
końcówka;

procedura IniSaveText (edt: TCustomEdit);
zaczynać
 IniSaveQuotedCaption (edt. Imię, "TEKST", edt. Tekst);
końcówka;

procedura IniLoadCaption (lbl: TLabel);
zaczynać
 lbl. Podpis: =IniLoadQuotedCaption (lbl. Imię, "PODPIS", lbl. Podpis);
końcówka;

procedura IniSaveCaption (lbl: TLabel);
zaczynać
 IniSaveQuotedCaption (lbl. Imię, "PODPIS", lbl. Podpis);
końcówka;

procedura IniLoadFormCaption (frm: TForm);
zaczynać
 frm. Podpis: =IniLoadQuotedCaption (frm. Imię, "PODPIS", frm. Podpis);
końcówka;

procedura IniSaveFormCaption (frm: TForm);
zaczynać
 IniSaveQuotedCaption (frm. Imię, "PODPIS", frm. Podpis);
końcówka;

procedura IniLoadButton (btn: TButton);
zaczynać
 btn. Podpis: =IniLoadQuotedCaption (btn. Imię, "PODPIS", btn. Podpis);
końcówka;

procedura IniSaveButton (btn: TButton);
zaczynać
 IniSaveQuotedCaption (btn. Imię, "PODPIS", btn. Podpis);
końcówka;

procedura IniLoadBitButton (btn: TBitBtn);
zaczynać
 btn. Podpis: =IniLoadQuotedCaption (btn. Imię, "PODPIS", btn. Podpis);
końcówka;

procedura IniSaveBitButton (btn: TBitBtn);
zaczynać
 IniSaveQuotedCaption (btn. Imię, "PODPIS", btn. Podpis);
końcówka;

procedura IniLoadSpeedButton (btn: TSpeedButton);
zaczynać
 btn. Podpis: =IniLoadQuotedCaption (btn. Imię, "PODPIS", btn. Podpis);
końcówka;

procedura IniSaveSpeedButton (btn: TSpeedButton);
zaczynać
 IniSaveQuotedCaption (btn. Imię, "PODPIS", btn. Podpis);
końcówka;

procedura IniLoadRadioGroup (rg: TRadioGroup);
zaczynać
 rg. Podpis: =IniLoadQuotedCaption (rg. Imię, "PODPIS", rg. Podpis);
 jeśli nie _TextOnly Wtedy rg.ItemIndex: =IniFile.ReadInteger (_ExtSection+rg.Name, "WSKAŹNIK, rg.ItemIndex);
końcówka;

procedura IniSaveRadioGroup (rg: TRadioGroup);
zaczynać
 IniSaveQuotedCaption (rg. Imię, "PODPIS", rg. Podpis);
 jeśli nie _TextOnly Wtedy IniFile.WriteInteger (_ExtSection+rg.Name, "WSKAŹNIK, rg.ItemIndex);
końcówka;

procedura IniLoadGroupBox (gb: TGroupBox);
zaczynać
 gb. Podpis: =IniLoadQuotedCaption (gb. Imię, "PODPIS", gb. Podpis);
 jeśli nie _TextOnly Wtedy IniLoadControl (gb);
końcówka;

procedura IniSaveGroupBox (gb: TGroupBox);
zaczynać
 IniSaveQuotedCaption (gb. Imię, "PODPIS", gb. Podpis);
 jeśli nie _TextOnly Wtedy IniSaveControl (gb);
końcówka;

procedura IniLoadComboBox (cb: TComboBox);
Var
 Str: Sznurek;
zaczynać
 Str: =IniLoadQuotedCaption (cb. Imię, "TEKST", cb. Tekst);
 jeżeli cb. Style=csDropDownList Wtedy
  zaczynać
   jeżeli Str<> '' Wtedy cb.ItemIndex: =cb. Items.IndexOf (Str) Inny cb.ItemIndex: =IniFile.ReadInteger (_ExtSection+cb.Name, "WSKAŹNIK, cb.ItemIndex);
  końcówka Inny cb. Tekst: =Str;
końcówka;

procedura IniSaveComboBox (cb: TComboBox);
zaczynać
 IniSaveQuotedCaption (cb. Imię, "TEKST", cb. Tekst);
 IniFile.WriteInteger (_ExtSection+cb.Name, "WSKAŹNIK, cb.ItemIndex);
końcówka;

{$ifdef USE_SPIN_EDT}
procedura IniLoadSpinEdit (edt: TSpinEdit);
zaczynać
 edt. Wartość: =IniFile.ReadInteger (_ExtSection+edt.Name, "WARTOŚĆ", edt. Wartość);
końcówka;

procedura IniSaveSpinEdit (edt: TSpinEdit);
zaczynać
 IniFile.WriteInteger (_ExtSection+edt.Name, "WARTOŚĆ", edt. Wartość);
końcówka;
{$endif}

procedura IniSavePanel (pnl: TPanel);
zaczynać
 IniFile.WriteInteger (_ExtSection+pnl.Name, "SZEROKOŚĆ", pnl. Szerokość);
 IniFile.WriteInteger (_ExtSection+pnl.Name, "WZROST", pnl. Wzrost);
końcówka;

procedura IniLoadPanel (pnl: TPanel);
zaczynać
 pnl. Szerokość: =IniFile.ReadInteger (_ExtSection+pnl.Name, "SZEROKOŚĆ", pnl. Szerokość);
 pnl. Wzrost: =IniFile.ReadInteger (_ExtSection+pnl.Name, "WZROST", pnl. Wzrost);
końcówka;

procedura IniSaveFrame (pnl: TFrame);
zaczynać
 IniFile.WriteInteger (_ExtSection+pnl.Name, "SZEROKOŚĆ", pnl. Szerokość);
 IniFile.WriteInteger (_ExtSection+pnl.Name, "WZROST", pnl. Wzrost);
końcówka;

procedura IniLoadFrame (pnl: TFrame);
zaczynać
 pnl. Szerokość: =IniFile.ReadInteger (_ExtSection+pnl.Name, "SZEROKOŚĆ", pnl. Szerokość);
 pnl. Wzrost: =IniFile.ReadInteger (_ExtSection+pnl.Name, "WZROST", pnl. Wzrost);
końcówka;

procedura IniLoadStringGrid (siatka: TStringGrid);
Var
 i: integer;
 Sekcja: Sznurek;
zaczynać
 Z siatka
  zaczynać
   Sekcja: =_ExtSection+Name;
   grid.ColCount: =IniFile.ReadInteger (Sekcja, "COL_COUNT", grid.ColCount);
   dla i: =0 grid.ColCount-1
    zaczynać
     grid.ColWidths [i]: =IniFile.ReadInteger (Sekcja, Format ("COL_%d_WIDTH", [i]), grid.ColWidths [i]);
     siatka. Komórka [i, (0)]: =IniFile.ReadString (Sekcja, Format ("COL_%d_TEXT", [i]), siatka. Komórka [i, (0)]);
    końcówka;
  końcówka;
końcówka;

procedura IniSaveStringGrid (siatka: TStringGrid);
Var
 i: integer;
 Sekcja: Sznurek;
zaczynać
 Z siatka
  zaczynać
   Sekcja: =_ExtSection+Name;
   IniFile.WriteInteger (Sekcja, "COL_COUNT", grid.ColCount);
   dla i: =0 grid.ColCount-1
    zaczynać
     IniFile.WriteInteger (Sekcja, Format ("COL_%d_WIDTH", [i]), grid.ColWidths [i]);
     IniFile.WriteString (Sekcja, Format ("COL_%d_TEXT", [i]), siatka. Komórka [i, (0)]);
    końcówka;
  końcówka;
końcówka;

procedura IniLoadOpenDialog (dlg: TOpenDialog);
zaczynać
 dlg.InitialDir: =IniLoadQuotedCaption (dlg. Imię, "INITIAL_DIR", dlg.InitialDir);
końcówka;

procedura IniSaveOpenDialog (dlg: TOpenDialog);
zaczynać
 IniSaveQuotedCaption (dlg. Imię, "INITIAL_DIR", dlg.InitialDir);
końcówka;

procedura IniSaveControl (c: TControl);
zaczynać
 IniFile.WriteInteger (_ExtSection+c.Name, "SZEROKOŚĆ", c.Width);
 IniFile.WriteInteger (_ExtSection+c.Name, "WZROST", c.Height);
końcówka;

procedura IniLoadControl (c: TControl);
zaczynać
 c.Width: =IniFile.ReadInteger (_ExtSection+c.Name, "SZEROKOŚĆ", c.Width);
 c.Height: =IniFile.ReadInteger (_ExtSection+c.Name, "WZROST", c.Height);
końcówka;

procedura IniLoadListView (L: TListView);
Var
 Sekcja: Sznurek;
 i: integer;
zaczynać
 Z L
  zaczynać
   Sekcja: =_ExtSection+Name;
   dla i: = (0) Columns.Count - (1) robić Kolumna [i]. Podpis: =IniFile.ReadString (Sekcja, Format ("COLUMN_%d", [i]), Kolumna [i]. Podpis);
  końcówka;
końcówka;

procedura IniSaveListView (L: TListView);
Var
 Sekcja: Sznurek;
 i: integer;
zaczynać
 Z L
  zaczynać
   Sekcja: =_ExtSection+Name;
   dla i: = (0) Columns.Count - (1) robić IniFile.WriteString (Sekcja, Format ("COLUMN_%d", [i]), Kolumna [i]. Podpis);
  końcówka;
końcówka;

procedura IniLoadMenu (M: TMenu);
Var
 Sekcja: Sznurek;
 i: integer;

 procedura IniLoadMenuItem (M: TMenuItem; Sekta: Sznurek);
 Var
  i: integer;
 zaczynać
  Sekta: =Sect+'. '+M.Name;
  dla i: = (0) M.Count - (1) jeżeli M.Items [i]. Caption'-<> 'Wtedy
   zaczynać
    M.Items [i]. Podpis: =IniFile.ReadString (Sekta, M.Items [i]. Imię, M.Items [i]. Podpis);
    jeżeli M.Items [i]. Count>0 wtedy IniLoadMenuItem (M.Items [i], Sekta);
   końcówka;
 końcówka;
zaczynać
 Z M
  zaczynać
   Sekcja: =_ExtSection+Name;
   dla i: = (0) M.Items.Count - (1) jeżeli Rzecz [i]. Caption'-<> 'Wtedy
    zaczynać
     Rzecz [i]. Podpis: =IniFile.ReadString (Sekcja, Rzecz [i]. Imię, Rzecz [i]. Podpis);
    końcówka;
  końcówka;
końcówka;

procedura IniSaveMenu (M: TMenu);
Var
 Sekcja: Sznurek;
 i: integer;
 procedura IniSaveMenuItem (M: TMenuItem; Sekta: Sznurek);
 Var
  i: integer;
 zaczynać
  Sekta: =Sect+'. '+M.Name;
  dla i: = (0) M.Count - (1) jeżeli M.Items [i]. Caption'-<> 'Wtedy
   zaczynać
    IniFile.WriteString (Sekta, M.Items [i]. Imię, M.Items [i]. Podpis);
    jeżeli M.Items [i]. Count>0 wtedy IniSaveMenuItem (M.Items [i], Sekta);
   końcówka;
 końcówka;
zaczynać
 Z M
  zaczynać
   Sekcja: =_ExtSection+Name;
   dla i: = (0) M.Items.Count - (1) jeżeli Rzecz [i]. Caption'-<> 'Wtedy
    zaczynać
     IniFile.WriteString (Sekcja, Rzecz [i]. Imię, Rzecz [i]. Podpis);
     jeżeli Rzecz [i]. Count>0 wtedy IniSaveMenuItem (Rzecz [i], _ExtSection);
    końcówka;
  końcówka;
końcówka;

procedura IniSaveComponnents (Lista: Szyk TObject; Ext_Section: String= ''; TextOnly: Boolean=False);
var
 i: integer;
 SaveExtSect: Sznurek;
 SaveTextOnly: Boolowski;
zaczynać
 SaveExtSect: =_ExtSection;
 _ExtSection: =Ext_Section;
 SaveTextOnly: =_TextOnly;
 _TextOnly: =TextOnly;
 dla i: =Low (Lista) Wysokość (Lista) jeżeli Wyznaczać (Lista [i]) Wtedy
  próba
   jeżeli Lista [i] Być TMemo        wtedy IniSaveMemo          (TMemo        (Lista [i])) Inny
   jeżeli Lista [i] Być TListView    wtedy IniSaveListView      (TListView    (Lista [i])) Inny
   jeżeli Lista [i] Być TMenu        wtedy IniSaveMenu          (TMenu        (Lista [i])) Inny
   jeżeli Lista [i] Być TCustomForm  Wtedy IniSaveFormPosAndSize (TCustomForm  (Lista [i])) Inny
   jeżeli Lista [i] Być TRadioGroup  Wtedy IniSaveRadioGroup    (TRadioGroup  (Lista [i])) Inny
   jeżeli Lista [i] Być TRadioButton Wtedy IniSaveRadioButton   (TRadioButton (Lista [i])) Inny
   jeżeli Lista [i] Być TCustomEdit  Wtedy IniSaveText          (TCustomEdit  (Lista [i])) Inny
   jeżeli Lista [i] Być TCheckBox    Wtedy IniSaveCheckBox      (TCheckBox    (Lista [i])) Inny
   jeżeli Lista [i] Być TComboBox    Wtedy IniSaveComboBox      (TComboBox    (Lista [i])) Inny
{$ifdef USE_SPIN_EDT}
   jeżeli Lista [i] Być TSpinEdit    Wtedy IniSaveSpinEdit  	(TSpinEdit    (Lista [i])) Inny
{$endif}
   jeżeli Lista [i] Być TLabel       Wtedy IniSaveCaption  	(TLabel       (Lista [i])) Inny
   jeżeli Lista [i] Być TBitBtn      Wtedy IniSaveBitButton  	(TBitBtn      (Lista [i])) Inny
   jeżeli Lista [i] Być TButton      Wtedy IniSaveButton  	(TButton      (Lista [i])) Inny
   jeżeli Lista [i] Być TSpeedButton Wtedy IniSaveSpeedButton  	(TSpeedButton (Lista [i])) Inny
   jeżeli Lista [i] Być TPanel       Wtedy IniSavePanel 	(TPanel       (Lista [i])) Inny
   jeżeli Lista [i] Być TFrame       Wtedy IniSaveFrame 	(TFrame       (Lista [i])) Inny
   jeżeli Lista [i] Być TStringGrid  Wtedy IniSaveStringGrid    (TStringGrid  (Lista [i])) Inny
   jeżeli Lista [i] Być TOpenDialog  Wtedy IniSaveOpenDialog    (TOpenDialog  (Lista [i])) Inny
   jeżeli Lista [i] Być TShape       Wtedy IniSaveShape         (TShape       (Lista [i])) Inny
   jeżeli Lista [i] Być TImage       Wtedy IniSaveImage         (TImage       (Lista [i])) Inny
   jeżeli Lista [i] Być TGroupBox    Wtedy IniSaveGroupBox      (TGroupBox    (Lista [i])) Inny
   jeżeli Lista [i] Być TControl     Wtedy IniSaveControl       (TControl     (Lista [i])) Inny
   jeżeli Lista [i] Być TComponent   Wtedy ShowMessage ('Erreur Oprócz "+TComponent (Lista [i]). Name+": '+List [i] .ClassName)
    Inny ShowMessage ('Erreur Save '+List [i] .ClassName);
  oprócz
   na E: Wyjątek robić ShowMessage (Format ("Błąd Oszczędzanie %s: %s'#13'% s", [TComponent (Lista [i]). Imię, E.ClassName, E.Message]));
  końcówka;
 _ExtSection: =SaveExtSect;
 _TextOnly: =SaveTextOnly;
końcówka;

procedura IniLoadComponnents (Lista: Szyk TObject; Ext_Section: String= ''; TextOnly: Boolean=False);
var
 i: integer;
 SaveExtSect: Sznurek;
 SaveTextOnly: Boolowski;
zaczynać
 SaveExtSect: =_ExtSection;
 _ExtSection: =Ext_Section;
 SaveTextOnly: =_TextOnly;
 _TextOnly: =TextOnly;
 dla i: =Low (Lista) Wysokość (Lista) jeżeli Wyznaczać (Lista [i]) Wtedy
  próba
   jeżeli Lista [i] Być TMemo        wtedy IniLoadMemo          (TMemo        (Lista [i])) Inny
   jeżeli Lista [i] Być TListView    wtedy IniLoadListView      (TListView    (Lista [i])) Inny
   jeżeli Lista [i] Być TMenu        wtedy IniLoadMenu          (TMenu        (Lista [i])) Inny
   jeżeli Lista [i] Być TCustomForm  Wtedy IniLoadFormPosAndSize (TCustomForm  (Lista [i])) Inny
   jeżeli Lista [i] Być TRadioGroup  Wtedy IniLoadRadioGroup    (TRadioGroup  (Lista [i])) Inny
   jeżeli Lista [i] Być TRadioButton Wtedy IniLoadRadioButton   (TRadioButton (Lista [i])) Inny
   jeżeli Lista [i] Być TCustomEdit  Wtedy IniLoadText          (TCustomEdit  (Lista [i])) Inny
   jeżeli Lista [i] Być TCheckBox    Wtedy IniLoadCheckBox      (TCheckBox    (Lista [i])) Inny
   jeżeli Lista [i] Być TComboBox    Wtedy IniLoadComboBox      (TComboBox    (Lista [i])) Inny
{$ifdef USE_SPIN_EDT}
   jeżeli Lista [i] Być TSpinEdit    Wtedy IniLoadSpinEdit  	(TSpinEdit    (Lista [i])) Inny
{$endif}
   jeżeli Lista [i] Być TLabel       Wtedy IniLoadCaption  	(TLabel       (Lista [i])) Inny
   jeżeli Lista [i] Być TBitBtn      Wtedy IniLoadBitButton  	(TBitBtn      (Lista [i])) Inny
   jeżeli Lista [i] Być TButton      Wtedy IniLoadButton  	(TButton      (Lista [i])) Inny
   jeżeli Lista [i] Być TSpeedButton Wtedy IniLoadSpeedButton  	(TSpeedButton (Lista [i])) Inny
   jeżeli Lista [i] Być TPanel       Wtedy IniLoadPanel 	(TPanel       (Lista [i])) Inny
   jeżeli Lista [i] Być TFrame       Wtedy IniLoadFrame 	(TFrame       (Lista [i])) Inny
   jeżeli Lista [i] Być TStringGrid  Wtedy IniLoadStringGrid    (TStringGrid  (Lista [i])) Inny
   jeżeli Lista [i] Być TOpenDialog  Wtedy IniLoadOpenDialog    (TOpenDialog  (Lista [i])) Inny
   jeżeli Lista [i] Być TShape       Wtedy IniLoadShape         (TShape       (Lista [i])) Inny
   jeżeli Lista [i] Być TImage       Wtedy IniLoadImage         (TImage       (Lista [i])) Inny
   jeżeli Lista [i] Być TGroupBox    Wtedy IniLoadGroupBox      (TGroupBox    (Lista [i])) Inny
   jeżeli Lista [i] Być TControl     Wtedy IniLoadControl       (TControl     (Lista [i])) Inny
   jeżeli Lista [i] Być TComponent   Wtedy ShowMessage ('Erreur Ładunek "+TComponent (Lista [i]). Name+": '+List [i] .ClassName) Inny
    ShowMessage ('Erreur Ładunek '+List [i] .ClassName);
  oprócz
   na E: Wyjątek robić ShowMessage (Format ("Błąd %s: %s'#13'% s", [TComponent (Lista [i]). Imię, E.ClassName, E.Message]));
  końcówka;
 _ExtSection: =SaveExtSect;
 _TextOnly: =SaveTextOnly;
końcówka;

initialization
 IniFile: =nil;
 IniOpenFile;
finalizacja
 IniCloseFile;
końcówka.
Inne rozwiązania  
 
programming4us programming4us