Eingegebene Daten als ini speichern

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

Hallo.
Ich habe folgende Eingabemaske (Eingabe in Textboxen) in einer Windos.Forms-Anwendung:
user defined image

Nun will ich die eingegebenen Werte (alles Integer) in einer ini-Datei speichern. Ich hab schon mehrere Varianten an Codes ausprobiert, bekomme aber immer nur Fehlermeldungen vom Compiler.

Wäre schön, wenn hier jemand dazu nen Beispielcode posten könnte.

alias5000 · Verfasst: Mi 06.07.05 17:36

Also ganz allgemein benutzt du mal die Unit inifiles.
Wenn du jetzt Hilfe willst, musst du uns schon deinen Code zeigen, so pauschal geb ich nix ab.

Ehemaliges Mitglied Erhaltene Danke: 1

Die eingegebenen Werte in eine ini-Datei zu speichern müsste machbar sein. Wie aber alias5000 schon sagte, musst du uns das Problem genauer erläutern. Was funktioniert denn genau bei dir nicht? Welche Fehler gibt der Compiler von sich?

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

Hier der Code:

markieren

Delphi-Quelltext

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:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:
827:
828:
829:
830:
831:
832:
833:
834:
835:
836:
837:
838:
839:
840:
841:
842:
843:
844:
845:
846:
847:
848:
849:
850:
851:
852:
853:
854:
855:
856:
857:
858:
859:
860:
861:
862:
863:
864:
865:
866:
867:
868:
869:
870:
871:
872:
873:
874:
875:
876:
877:
878:
879:
880:
881:
882:
883:
884:
885:
886:
887:
888:
889:
890:
891:
892:
893:
894:
895:
896:
897:
898:
899:
900:
901:
902:
903:
904:
905:
906:
907:
908:
909:
910:
911:
912:
913:
914:
915:
916:
917:
918:
919:
920:
921:
922:
923:
924:
925:
926:
927:
928:
929:
930:
931:
932:
933:
934:
935:

unit FlottenBearbeiten;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data;

type
  TFlottenBearbeiten = class(System.Windows.Forms.Form)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    TEingabeFlotten: System.Windows.Forms.Label;
    GrVert: System.Windows.Forms.GroupBox;
    LSRaumgeschütz: System.Windows.Forms.Label;
    LMRaumgeschütz: System.Windows.Forms.Label;
    LLRaumgeschütz: System.Windows.Forms.Label;
    LLOrbitalgeschütz: System.Windows.Forms.Label;
    LAbfanjäger: System.Windows.Forms.Label;
    GRFlotten: System.Windows.Forms.GroupBox;
    LFlotte2: System.Windows.Forms.Label;
    LFlotte1: System.Windows.Forms.Label;
    LOrbit: System.Windows.Forms.Label;
    LSchiffsTyp: System.Windows.Forms.Label;
    LTrägerschiff: System.Windows.Forms.Label;
    LSchlachtschiff: System.Windows.Forms.Label;
    LZerstörer: System.Windows.Forms.Label;
    LBomber: System.Windows.Forms.Label;
    LJäger: System.Windows.Forms.Label;
    LFregatte: System.Windows.Forms.Label;
    LSchutzschiff: System.Windows.Forms.Label;
    LKaperschiff: System.Windows.Forms.Label;
    EOKaperschiff: System.Windows.Forms.TextBox;
    E1Kaperschiff: System.Windows.Forms.TextBox;
    E2Kaperschiff: System.Windows.Forms.TextBox;
    E2Schutzschiff: System.Windows.Forms.TextBox;
    E1Schutzschiff: System.Windows.Forms.TextBox;
    EOSchutzschiff: System.Windows.Forms.TextBox;
    E2Fregatte: System.Windows.Forms.TextBox;
    E1Fregatte: System.Windows.Forms.TextBox;
    EOFregatte: System.Windows.Forms.TextBox;
    E2Jaeger: System.Windows.Forms.TextBox;
    E1Jaeger: System.Windows.Forms.TextBox;
    EOJaeger: System.Windows.Forms.TextBox;
    E2Bomber: System.Windows.Forms.TextBox;
    E1Bomber: System.Windows.Forms.TextBox;
    EOBomber: System.Windows.Forms.TextBox;
    E2Zerstoerer: System.Windows.Forms.TextBox;
    E1Zerstoerer: System.Windows.Forms.TextBox;
    EOZerstoerer: System.Windows.Forms.TextBox;
    E2Schlachtschiff: System.Windows.Forms.TextBox;
    E1Schlachtschiff: System.Windows.Forms.TextBox;
    EOSchlachtschiff: System.Windows.Forms.TextBox;
    E2Traegerschiff: System.Windows.Forms.TextBox;
    E1Traegerschiff: System.Windows.Forms.TextBox;
    EOTraegerschiff: System.Windows.Forms.TextBox;
    EAbfangjaeger: System.Windows.Forms.TextBox;
    ELeichtesOrbitalgeschuetz: System.Windows.Forms.TextBox;
    ELeichtesRaumgeschuetz: System.Windows.Forms.TextBox;
    EMittleresRaumgeschuetz: System.Windows.Forms.TextBox;
    ESchweresRaumgeschuetz: System.Windows.Forms.TextBox;
    BSchliessen: System.Windows.Forms.Button;
    BSpeichern: System.Windows.Forms.Button;
    LHinweis: System.Windows.Forms.Label;
    /// <summary>
    /// Erforderliche Methode zur Unterstützung des Designers -
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary>
    procedure InitializeComponent;
    procedure BSchliessen_Click(sender: System.Object; e: System.EventArgs);
    procedure EAbfangjaeger_TextChanged(sender: System.Object; e: System.EventArgs);
    procedure BSpeichern_Click(sender: System.Object; e: System.EventArgs);

  {$ENDREGION}
  strict protected
    /// <summary>
    /// Ressourcen nach der Verwendung bereinigen
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TFlottenBearbeiten))]

implementation
uses class1, System.IO, IniFiles;
{$AUTOBOX ON}

{$REGION 'Vom Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure TFlottenBearbeiten.InitializeComponent;
begin
  Self.TEingabeFlotten := System.Windows.Forms.Label.Create;
  Self.GrVert := System.Windows.Forms.GroupBox.Create;
  Self.ESchweresRaumgeschuetz := System.Windows.Forms.TextBox.Create;
  Self.EMittleresRaumgeschuetz := System.Windows.Forms.TextBox.Create;
  Self.ELeichtesRaumgeschuetz := System.Windows.Forms.TextBox.Create;
  Self.ELeichtesOrbitalgeschuetz := System.Windows.Forms.TextBox.Create;
  Self.EAbfangjaeger := System.Windows.Forms.TextBox.Create;
  Self.LSRaumgeschütz := System.Windows.Forms.Label.Create;
  Self.LMRaumgeschütz := System.Windows.Forms.Label.Create;
  Self.LLRaumgeschütz := System.Windows.Forms.Label.Create;
  Self.LLOrbitalgeschütz := System.Windows.Forms.Label.Create;
  Self.LAbfanjäger := System.Windows.Forms.Label.Create;
  Self.GRFlotten := System.Windows.Forms.GroupBox.Create;
  Self.E2Traegerschiff := System.Windows.Forms.TextBox.Create;
  Self.E1Traegerschiff := System.Windows.Forms.TextBox.Create;
  Self.EOTraegerschiff := System.Windows.Forms.TextBox.Create;
  Self.E2Schlachtschiff := System.Windows.Forms.TextBox.Create;
  Self.E1Schlachtschiff := System.Windows.Forms.TextBox.Create;
  Self.EOSchlachtschiff := System.Windows.Forms.TextBox.Create;
  Self.E2Zerstoerer := System.Windows.Forms.TextBox.Create;
  Self.E1Zerstoerer := System.Windows.Forms.TextBox.Create;
  Self.EOZerstoerer := System.Windows.Forms.TextBox.Create;
  Self.E2Bomber := System.Windows.Forms.TextBox.Create;
  Self.E1Bomber := System.Windows.Forms.TextBox.Create;
  Self.EOBomber := System.Windows.Forms.TextBox.Create;
  Self.E2Jaeger := System.Windows.Forms.TextBox.Create;
  Self.E1Jaeger := System.Windows.Forms.TextBox.Create;
  Self.EOJaeger := System.Windows.Forms.TextBox.Create;
  Self.E2Fregatte := System.Windows.Forms.TextBox.Create;
  Self.E1Fregatte := System.Windows.Forms.TextBox.Create;
  Self.EOFregatte := System.Windows.Forms.TextBox.Create;
  Self.E2Schutzschiff := System.Windows.Forms.TextBox.Create;
  Self.E1Schutzschiff := System.Windows.Forms.TextBox.Create;
  Self.EOSchutzschiff := System.Windows.Forms.TextBox.Create;
  Self.E2Kaperschiff := System.Windows.Forms.TextBox.Create;
  Self.E1Kaperschiff := System.Windows.Forms.TextBox.Create;
  Self.EOKaperschiff := System.Windows.Forms.TextBox.Create;
  Self.LFlotte2 := System.Windows.Forms.Label.Create;
  Self.LFlotte1 := System.Windows.Forms.Label.Create;
  Self.LOrbit := System.Windows.Forms.Label.Create;
  Self.LSchiffsTyp := System.Windows.Forms.Label.Create;
  Self.LTrägerschiff := System.Windows.Forms.Label.Create;
  Self.LSchlachtschiff := System.Windows.Forms.Label.Create;
  Self.LZerstörer := System.Windows.Forms.Label.Create;
  Self.LBomber := System.Windows.Forms.Label.Create;
  Self.LJäger := System.Windows.Forms.Label.Create;
  Self.LFregatte := System.Windows.Forms.Label.Create;
  Self.LSchutzschiff := System.Windows.Forms.Label.Create;
  Self.LKaperschiff := System.Windows.Forms.Label.Create;
  Self.BSchliessen := System.Windows.Forms.Button.Create;
  Self.BSpeichern := System.Windows.Forms.Button.Create;
  Self.LHinweis := System.Windows.Forms.Label.Create;
  Self.GrVert.SuspendLayout;
  Self.GRFlotten.SuspendLayout;
  Self.SuspendLayout;
  // 
  // TEingabeFlotten
  // 
  Self.TEingabeFlotten.Font := System.Drawing.Font.Create('Microsoft Sans Se' +
    'rif', 21.75, (System.Drawing.FontStyle((System.Drawing.FontStyle.Bold or 
      System.Drawing.FontStyle.Underline))), System.Drawing.GraphicsUnit.Point, 
      (Byte(0)));
  Self.TEingabeFlotten.Location := System.Drawing.Point.Create(8, 8);
  Self.TEingabeFlotten.Name := 'TEingabeFlotten';
  Self.TEingabeFlotten.Size := System.Drawing.Size.Create(424, 40);
  Self.TEingabeFlotten.TabIndex := 1;
  Self.TEingabeFlotten.Text := 'Eingabe der Flottenstärke';
  // 
  // GrVert
  // 
  Self.GrVert.Controls.Add(Self.ESchweresRaumgeschuetz);
  Self.GrVert.Controls.Add(Self.EMittleresRaumgeschuetz);
  Self.GrVert.Controls.Add(Self.ELeichtesRaumgeschuetz);
  Self.GrVert.Controls.Add(Self.ELeichtesOrbitalgeschuetz);
  Self.GrVert.Controls.Add(Self.EAbfangjaeger);
  Self.GrVert.Controls.Add(Self.LSRaumgeschütz);
  Self.GrVert.Controls.Add(Self.LMRaumgeschütz);
  Self.GrVert.Controls.Add(Self.LLRaumgeschütz);
  Self.GrVert.Controls.Add(Self.LLOrbitalgeschütz);
  Self.GrVert.Controls.Add(Self.LAbfanjäger);
  Self.GrVert.Location := System.Drawing.Point.Create(16, 56);
  Self.GrVert.Name := 'GrVert';
  Self.GrVert.Size := System.Drawing.Size.Create(264, 136);
  Self.GrVert.TabIndex := 0;
  Self.GrVert.TabStop := False;
  Self.GrVert.Text := 'Orbitalverteidigung';
  // 
  // ESchweresRaumgeschuetz
  // 
  Self.ESchweresRaumgeschuetz.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.ESchweresRaumgeschuetz.Font := System.Drawing.Font.Create('Arial', 8.25, 
      System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.ESchweresRaumgeschuetz.Location := System.Drawing.Point.Create(144, 88);
  Self.ESchweresRaumgeschuetz.MaxLength := 100000000;
  Self.ESchweresRaumgeschuetz.Name := 'ESchweresRaumgeschuetz';
  Self.ESchweresRaumgeschuetz.Size := System.Drawing.Size.Create(104, 20);
  Self.ESchweresRaumgeschuetz.TabIndex := 59;
  Self.ESchweresRaumgeschuetz.Text := '';
  Self.ESchweresRaumgeschuetz.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EMittleresRaumgeschuetz
  // 
  Self.EMittleresRaumgeschuetz.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EMittleresRaumgeschuetz.Font := System.Drawing.Font.Create('Arial', 8.25, 
      System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EMittleresRaumgeschuetz.Location := System.Drawing.Point.Create(144, 72);
  Self.EMittleresRaumgeschuetz.MaxLength := 100000000;
  Self.EMittleresRaumgeschuetz.Name := 'EMittleresRaumgeschuetz';
  Self.EMittleresRaumgeschuetz.Size := System.Drawing.Size.Create(104, 20);
  Self.EMittleresRaumgeschuetz.TabIndex := 58;
  Self.EMittleresRaumgeschuetz.Text := '';
  Self.EMittleresRaumgeschuetz.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // ELeichtesRaumgeschuetz
  // 
  Self.ELeichtesRaumgeschuetz.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.ELeichtesRaumgeschuetz.Font := System.Drawing.Font.Create('Arial', 8.25, 
      System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.ELeichtesRaumgeschuetz.Location := System.Drawing.Point.Create(144, 56);
  Self.ELeichtesRaumgeschuetz.MaxLength := 100000000;
  Self.ELeichtesRaumgeschuetz.Name := 'ELeichtesRaumgeschuetz';
  Self.ELeichtesRaumgeschuetz.Size := System.Drawing.Size.Create(104, 20);
  Self.ELeichtesRaumgeschuetz.TabIndex := 57;
  Self.ELeichtesRaumgeschuetz.Text := '';
  Self.ELeichtesRaumgeschuetz.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // ELeichtesOrbitalgeschuetz
  // 
  Self.ELeichtesOrbitalgeschuetz.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.ELeichtesOrbitalgeschuetz.Font := System.Drawing.Font.Create('Arial', 
      8.25, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 
      (Byte(0)));
  Self.ELeichtesOrbitalgeschuetz.Location := System.Drawing.Point.Create(144, 
      40);
  Self.ELeichtesOrbitalgeschuetz.MaxLength := 100000000;
  Self.ELeichtesOrbitalgeschuetz.Name := 'ELeichtesOrbitalgeschuetz';
  Self.ELeichtesOrbitalgeschuetz.Size := System.Drawing.Size.Create(104, 20);
  Self.ELeichtesOrbitalgeschuetz.TabIndex := 56;
  Self.ELeichtesOrbitalgeschuetz.Text := '';
  Self.ELeichtesOrbitalgeschuetz.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EAbfangjaeger
  // 
  Self.EAbfangjaeger.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EAbfangjaeger.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EAbfangjaeger.Location := System.Drawing.Point.Create(144, 24);
  Self.EAbfangjaeger.MaxLength := 100000000;
  Self.EAbfangjaeger.Name := 'EAbfangjaeger';
  Self.EAbfangjaeger.Size := System.Drawing.Size.Create(104, 20);
  Self.EAbfangjaeger.TabIndex := 55;
  Self.EAbfangjaeger.Text := '';
  Self.EAbfangjaeger.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  Include(Self.EAbfangjaeger.TextChanged, Self.EAbfangjaeger_TextChanged);
  // 
  // LSRaumgeschütz
  // 
  Self.LSRaumgeschütz.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LSRaumgeschütz.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LSRaumgeschütz.Location := System.Drawing.Point.Create(16, 88);
  Self.LSRaumgeschütz.Name := 'LSRaumgeschütz';
  Self.LSRaumgeschütz.Size := System.Drawing.Size.Create(128, 20);
  Self.LSRaumgeschütz.TabIndex := 8;
  Self.LSRaumgeschütz.Text := 'S. Raumgeschütz:';
  // 
  // LMRaumgeschütz
  // 
  Self.LMRaumgeschütz.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LMRaumgeschütz.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LMRaumgeschütz.Location := System.Drawing.Point.Create(16, 72);
  Self.LMRaumgeschütz.Name := 'LMRaumgeschütz';
  Self.LMRaumgeschütz.Size := System.Drawing.Size.Create(128, 20);
  Self.LMRaumgeschütz.TabIndex := 6;
  Self.LMRaumgeschütz.Text := 'M. Raumgeschütz:';
  // 
  // LLRaumgeschütz
  // 
  Self.LLRaumgeschütz.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LLRaumgeschütz.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LLRaumgeschütz.Location := System.Drawing.Point.Create(16, 56);
  Self.LLRaumgeschütz.Name := 'LLRaumgeschütz';
  Self.LLRaumgeschütz.Size := System.Drawing.Size.Create(128, 20);
  Self.LLRaumgeschütz.TabIndex := 4;
  Self.LLRaumgeschütz.Text := 'L. Raumgeschütz:';
  // 
  // LLOrbitalgeschütz
  // 
  Self.LLOrbitalgeschütz.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LLOrbitalgeschütz.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LLOrbitalgeschütz.Location := System.Drawing.Point.Create(16, 40);
  Self.LLOrbitalgeschütz.Name := 'LLOrbitalgeschütz';
  Self.LLOrbitalgeschütz.Size := System.Drawing.Size.Create(128, 20);
  Self.LLOrbitalgeschütz.TabIndex := 2;
  Self.LLOrbitalgeschütz.Text := 'L. Orbitalgeschütz:';
  // 
  // LAbfanjäger
  // 
  Self.LAbfanjäger.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LAbfanjäger.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LAbfanjäger.Location := System.Drawing.Point.Create(16, 24);
  Self.LAbfanjäger.Name := 'LAbfanjäger';
  Self.LAbfanjäger.Size := System.Drawing.Size.Create(128, 20);
  Self.LAbfanjäger.TabIndex := 0;
  Self.LAbfanjäger.Text := 'Abfangjäger:';
  // 
  // GRFlotten
  // 
  Self.GRFlotten.Controls.Add(Self.E2Traegerschiff);
  Self.GRFlotten.Controls.Add(Self.E1Traegerschiff);
  Self.GRFlotten.Controls.Add(Self.EOTraegerschiff);
  Self.GRFlotten.Controls.Add(Self.E2Schlachtschiff);
  Self.GRFlotten.Controls.Add(Self.E1Schlachtschiff);
  Self.GRFlotten.Controls.Add(Self.EOSchlachtschiff);
  Self.GRFlotten.Controls.Add(Self.E2Zerstoerer);
  Self.GRFlotten.Controls.Add(Self.E1Zerstoerer);
  Self.GRFlotten.Controls.Add(Self.EOZerstoerer);
  Self.GRFlotten.Controls.Add(Self.E2Bomber);
  Self.GRFlotten.Controls.Add(Self.E1Bomber);
  Self.GRFlotten.Controls.Add(Self.EOBomber);
  Self.GRFlotten.Controls.Add(Self.E2Jaeger);
  Self.GRFlotten.Controls.Add(Self.E1Jaeger);
  Self.GRFlotten.Controls.Add(Self.EOJaeger);
  Self.GRFlotten.Controls.Add(Self.E2Fregatte);
  Self.GRFlotten.Controls.Add(Self.E1Fregatte);
  Self.GRFlotten.Controls.Add(Self.EOFregatte);
  Self.GRFlotten.Controls.Add(Self.E2Schutzschiff);
  Self.GRFlotten.Controls.Add(Self.E1Schutzschiff);
  Self.GRFlotten.Controls.Add(Self.EOSchutzschiff);
  Self.GRFlotten.Controls.Add(Self.E2Kaperschiff);
  Self.GRFlotten.Controls.Add(Self.E1Kaperschiff);
  Self.GRFlotten.Controls.Add(Self.EOKaperschiff);
  Self.GRFlotten.Controls.Add(Self.LFlotte2);
  Self.GRFlotten.Controls.Add(Self.LFlotte1);
  Self.GRFlotten.Controls.Add(Self.LOrbit);
  Self.GRFlotten.Controls.Add(Self.LSchiffsTyp);
  Self.GRFlotten.Controls.Add(Self.LTrägerschiff);
  Self.GRFlotten.Controls.Add(Self.LSchlachtschiff);
  Self.GRFlotten.Controls.Add(Self.LZerstörer);
  Self.GRFlotten.Controls.Add(Self.LBomber);
  Self.GRFlotten.Controls.Add(Self.LJäger);
  Self.GRFlotten.Controls.Add(Self.LFregatte);
  Self.GRFlotten.Controls.Add(Self.LSchutzschiff);
  Self.GRFlotten.Controls.Add(Self.LKaperschiff);
  Self.GRFlotten.Location := System.Drawing.Point.Create(16, 208);
  Self.GRFlotten.Name := 'GRFlotten';
  Self.GRFlotten.Size := System.Drawing.Size.Create(472, 208);
  Self.GRFlotten.TabIndex := 1;
  Self.GRFlotten.TabStop := False;
  Self.GRFlotten.Text := 'Flotten';
  // 
  // E2Traegerschiff
  // 
  Self.E2Traegerschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Traegerschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Traegerschiff.Location := System.Drawing.Point.Create(352, 160);
  Self.E2Traegerschiff.MaxLength := 100000000;
  Self.E2Traegerschiff.Name := 'E2Traegerschiff';
  Self.E2Traegerschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Traegerschiff.TabIndex := 77;
  Self.E2Traegerschiff.Text := '';
  Self.E2Traegerschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Traegerschiff
  // 
  Self.E1Traegerschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Traegerschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Traegerschiff.Location := System.Drawing.Point.Create(248, 160);
  Self.E1Traegerschiff.MaxLength := 100000000;
  Self.E1Traegerschiff.Name := 'E1Traegerschiff';
  Self.E1Traegerschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Traegerschiff.TabIndex := 76;
  Self.E1Traegerschiff.Text := '';
  Self.E1Traegerschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOTraegerschiff
  // 
  Self.EOTraegerschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOTraegerschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOTraegerschiff.Location := System.Drawing.Point.Create(144, 160);
  Self.EOTraegerschiff.MaxLength := 100000000;
  Self.EOTraegerschiff.Name := 'EOTraegerschiff';
  Self.EOTraegerschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.EOTraegerschiff.TabIndex := 75;
  Self.EOTraegerschiff.Text := '';
  Self.EOTraegerschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Schlachtschiff
  // 
  Self.E2Schlachtschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Schlachtschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Schlachtschiff.Location := System.Drawing.Point.Create(352, 144);
  Self.E2Schlachtschiff.MaxLength := 100000000;
  Self.E2Schlachtschiff.Name := 'E2Schlachtschiff';
  Self.E2Schlachtschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Schlachtschiff.TabIndex := 74;
  Self.E2Schlachtschiff.Text := '';
  Self.E2Schlachtschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Schlachtschiff
  // 
  Self.E1Schlachtschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Schlachtschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Schlachtschiff.Location := System.Drawing.Point.Create(248, 144);
  Self.E1Schlachtschiff.MaxLength := 100000000;
  Self.E1Schlachtschiff.Name := 'E1Schlachtschiff';
  Self.E1Schlachtschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Schlachtschiff.TabIndex := 73;
  Self.E1Schlachtschiff.Text := '';
  Self.E1Schlachtschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOSchlachtschiff
  // 
  Self.EOSchlachtschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOSchlachtschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOSchlachtschiff.Location := System.Drawing.Point.Create(144, 144);
  Self.EOSchlachtschiff.MaxLength := 100000000;
  Self.EOSchlachtschiff.Name := 'EOSchlachtschiff';
  Self.EOSchlachtschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.EOSchlachtschiff.TabIndex := 72;
  Self.EOSchlachtschiff.Text := '';
  Self.EOSchlachtschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Zerstoerer
  // 
  Self.E2Zerstoerer.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Zerstoerer.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Zerstoerer.Location := System.Drawing.Point.Create(352, 128);
  Self.E2Zerstoerer.MaxLength := 100000000;
  Self.E2Zerstoerer.Name := 'E2Zerstoerer';
  Self.E2Zerstoerer.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Zerstoerer.TabIndex := 71;
  Self.E2Zerstoerer.Text := '';
  Self.E2Zerstoerer.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Zerstoerer
  // 
  Self.E1Zerstoerer.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Zerstoerer.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Zerstoerer.Location := System.Drawing.Point.Create(248, 128);
  Self.E1Zerstoerer.MaxLength := 100000000;
  Self.E1Zerstoerer.Name := 'E1Zerstoerer';
  Self.E1Zerstoerer.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Zerstoerer.TabIndex := 70;
  Self.E1Zerstoerer.Text := '';
  Self.E1Zerstoerer.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOZerstoerer
  // 
  Self.EOZerstoerer.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOZerstoerer.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOZerstoerer.Location := System.Drawing.Point.Create(144, 128);
  Self.EOZerstoerer.MaxLength := 100000000;
  Self.EOZerstoerer.Name := 'EOZerstoerer';
  Self.EOZerstoerer.Size := System.Drawing.Size.Create(104, 20);
  Self.EOZerstoerer.TabIndex := 69;
  Self.EOZerstoerer.Text := '';
  Self.EOZerstoerer.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Bomber
  // 
  Self.E2Bomber.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Bomber.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Bomber.Location := System.Drawing.Point.Create(352, 112);
  Self.E2Bomber.MaxLength := 100000000;
  Self.E2Bomber.Name := 'E2Bomber';
  Self.E2Bomber.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Bomber.TabIndex := 68;
  Self.E2Bomber.Text := '';
  Self.E2Bomber.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Bomber
  // 
  Self.E1Bomber.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Bomber.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Bomber.Location := System.Drawing.Point.Create(248, 112);
  Self.E1Bomber.MaxLength := 100000000;
  Self.E1Bomber.Name := 'E1Bomber';
  Self.E1Bomber.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Bomber.TabIndex := 67;
  Self.E1Bomber.Text := '';
  Self.E1Bomber.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOBomber
  // 
  Self.EOBomber.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOBomber.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOBomber.Location := System.Drawing.Point.Create(144, 112);
  Self.EOBomber.MaxLength := 100000000;
  Self.EOBomber.Name := 'EOBomber';
  Self.EOBomber.Size := System.Drawing.Size.Create(104, 20);
  Self.EOBomber.TabIndex := 66;
  Self.EOBomber.Text := '';
  Self.EOBomber.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Jaeger
  // 
  Self.E2Jaeger.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Jaeger.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Jaeger.Location := System.Drawing.Point.Create(352, 96);
  Self.E2Jaeger.MaxLength := 100000000;
  Self.E2Jaeger.Name := 'E2Jaeger';
  Self.E2Jaeger.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Jaeger.TabIndex := 65;
  Self.E2Jaeger.Text := '';
  Self.E2Jaeger.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Jaeger
  // 
  Self.E1Jaeger.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Jaeger.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Jaeger.Location := System.Drawing.Point.Create(248, 96);
  Self.E1Jaeger.MaxLength := 100000000;
  Self.E1Jaeger.Name := 'E1Jaeger';
  Self.E1Jaeger.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Jaeger.TabIndex := 64;
  Self.E1Jaeger.Text := '';
  Self.E1Jaeger.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOJaeger
  // 
  Self.EOJaeger.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOJaeger.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOJaeger.Location := System.Drawing.Point.Create(144, 96);
  Self.EOJaeger.MaxLength := 100000000;
  Self.EOJaeger.Name := 'EOJaeger';
  Self.EOJaeger.Size := System.Drawing.Size.Create(104, 20);
  Self.EOJaeger.TabIndex := 63;
  Self.EOJaeger.Text := '';
  Self.EOJaeger.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Fregatte
  // 
  Self.E2Fregatte.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Fregatte.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Fregatte.Location := System.Drawing.Point.Create(352, 80);
  Self.E2Fregatte.MaxLength := 100000000;
  Self.E2Fregatte.Name := 'E2Fregatte';
  Self.E2Fregatte.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Fregatte.TabIndex := 62;
  Self.E2Fregatte.Text := '';
  Self.E2Fregatte.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Fregatte
  // 
  Self.E1Fregatte.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Fregatte.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Fregatte.Location := System.Drawing.Point.Create(248, 80);
  Self.E1Fregatte.MaxLength := 100000000;
  Self.E1Fregatte.Name := 'E1Fregatte';
  Self.E1Fregatte.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Fregatte.TabIndex := 61;
  Self.E1Fregatte.Text := '';
  Self.E1Fregatte.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOFregatte
  // 
  Self.EOFregatte.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOFregatte.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOFregatte.Location := System.Drawing.Point.Create(144, 80);
  Self.EOFregatte.MaxLength := 100000000;
  Self.EOFregatte.Name := 'EOFregatte';
  Self.EOFregatte.Size := System.Drawing.Size.Create(104, 20);
  Self.EOFregatte.TabIndex := 60;
  Self.EOFregatte.Text := '';
  Self.EOFregatte.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Schutzschiff
  // 
  Self.E2Schutzschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Schutzschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Schutzschiff.Location := System.Drawing.Point.Create(352, 64);
  Self.E2Schutzschiff.MaxLength := 100000000;
  Self.E2Schutzschiff.Name := 'E2Schutzschiff';
  Self.E2Schutzschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Schutzschiff.TabIndex := 59;
  Self.E2Schutzschiff.Text := '';
  Self.E2Schutzschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Schutzschiff
  // 
  Self.E1Schutzschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Schutzschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Schutzschiff.Location := System.Drawing.Point.Create(248, 64);
  Self.E1Schutzschiff.MaxLength := 100000000;
  Self.E1Schutzschiff.Name := 'E1Schutzschiff';
  Self.E1Schutzschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Schutzschiff.TabIndex := 58;
  Self.E1Schutzschiff.Text := '';
  Self.E1Schutzschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOSchutzschiff
  // 
  Self.EOSchutzschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOSchutzschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOSchutzschiff.Location := System.Drawing.Point.Create(144, 64);
  Self.EOSchutzschiff.MaxLength := 100000000;
  Self.EOSchutzschiff.Name := 'EOSchutzschiff';
  Self.EOSchutzschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.EOSchutzschiff.TabIndex := 57;
  Self.EOSchutzschiff.Text := '';
  Self.EOSchutzschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E2Kaperschiff
  // 
  Self.E2Kaperschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E2Kaperschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E2Kaperschiff.Location := System.Drawing.Point.Create(352, 48);
  Self.E2Kaperschiff.MaxLength := 100000000;
  Self.E2Kaperschiff.Name := 'E2Kaperschiff';
  Self.E2Kaperschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E2Kaperschiff.TabIndex := 56;
  Self.E2Kaperschiff.Text := '';
  Self.E2Kaperschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // E1Kaperschiff
  // 
  Self.E1Kaperschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.E1Kaperschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.E1Kaperschiff.Location := System.Drawing.Point.Create(248, 48);
  Self.E1Kaperschiff.MaxLength := 100000000;
  Self.E1Kaperschiff.Name := 'E1Kaperschiff';
  Self.E1Kaperschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.E1Kaperschiff.TabIndex := 55;
  Self.E1Kaperschiff.Text := '';
  Self.E1Kaperschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // EOKaperschiff
  // 
  Self.EOKaperschiff.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Bottom 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.EOKaperschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.EOKaperschiff.Location := System.Drawing.Point.Create(144, 48);
  Self.EOKaperschiff.MaxLength := 100000000;
  Self.EOKaperschiff.Name := 'EOKaperschiff';
  Self.EOKaperschiff.Size := System.Drawing.Size.Create(104, 20);
  Self.EOKaperschiff.TabIndex := 54;
  Self.EOKaperschiff.Text := '';
  Self.EOKaperschiff.TextAlign := System.Windows.Forms.HorizontalAlignment.Right;
  // 
  // LFlotte2
  // 
  Self.LFlotte2.Font := System.Drawing.Font.Create('Arial', 8.25, (System.Drawing.FontStyle((System.Drawing.FontStyle.Bold 
      or System.Drawing.FontStyle.Underline))), System.Drawing.GraphicsUnit.Point, 
      (Byte(0)));
  Self.LFlotte2.Location := System.Drawing.Point.Create(352, 24);
  Self.LFlotte2.Name := 'LFlotte2';
  Self.LFlotte2.Size := System.Drawing.Size.Create(104, 20);
  Self.LFlotte2.TabIndex := 53;
  Self.LFlotte2.Text := 'Flotte 2:';
  // 
  // LFlotte1
  // 
  Self.LFlotte1.Font := System.Drawing.Font.Create('Arial', 8.25, (System.Drawing.FontStyle((System.Drawing.FontStyle.Bold 
      or System.Drawing.FontStyle.Underline))), System.Drawing.GraphicsUnit.Point, 
      (Byte(0)));
  Self.LFlotte1.Location := System.Drawing.Point.Create(248, 24);
  Self.LFlotte1.Name := 'LFlotte1';
  Self.LFlotte1.Size := System.Drawing.Size.Create(104, 20);
  Self.LFlotte1.TabIndex := 52;
  Self.LFlotte1.Text := 'Flotte 1:';
  // 
  // LOrbit
  // 
  Self.LOrbit.Font := System.Drawing.Font.Create('Arial', 8.25, (System.Drawing.FontStyle((System.Drawing.FontStyle.Bold 
      or System.Drawing.FontStyle.Underline))), System.Drawing.GraphicsUnit.Point, 
      (Byte(0)));
  Self.LOrbit.Location := System.Drawing.Point.Create(144, 24);
  Self.LOrbit.Name := 'LOrbit';
  Self.LOrbit.Size := System.Drawing.Size.Create(104, 20);
  Self.LOrbit.TabIndex := 51;
  Self.LOrbit.Text := 'Orbit:';
  // 
  // LSchiffsTyp
  // 
  Self.LSchiffsTyp.Font := System.Drawing.Font.Create('Arial', 8.25, (System.Drawing.FontStyle((System.Drawing.FontStyle.Bold 
      or System.Drawing.FontStyle.Underline))), System.Drawing.GraphicsUnit.Point, 
      (Byte(0)));
  Self.LSchiffsTyp.Location := System.Drawing.Point.Create(16, 24);
  Self.LSchiffsTyp.Name := 'LSchiffsTyp';
  Self.LSchiffsTyp.Size := System.Drawing.Size.Create(128, 20);
  Self.LSchiffsTyp.TabIndex := 50;
  Self.LSchiffsTyp.Text := 'Schiffstyp:';
  // 
  // LTrägerschiff
  // 
  Self.LTrägerschiff.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LTrägerschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LTrägerschiff.Location := System.Drawing.Point.Create(16, 160);
  Self.LTrägerschiff.Name := 'LTrägerschiff';
  Self.LTrägerschiff.Size := System.Drawing.Size.Create(128, 20);
  Self.LTrägerschiff.TabIndex := 28;
  Self.LTrägerschiff.Text := 'Trägerschiff:';
  // 
  // LSchlachtschiff
  // 
  Self.LSchlachtschiff.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LSchlachtschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LSchlachtschiff.Location := System.Drawing.Point.Create(16, 144);
  Self.LSchlachtschiff.Name := 'LSchlachtschiff';
  Self.LSchlachtschiff.Size := System.Drawing.Size.Create(128, 20);
  Self.LSchlachtschiff.TabIndex := 26;
  Self.LSchlachtschiff.Text := 'Schlachtschiff:';
  // 
  // LZerstörer
  // 
  Self.LZerstörer.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LZerstörer.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LZerstörer.Location := System.Drawing.Point.Create(16, 128);
  Self.LZerstörer.Name := 'LZerstörer';
  Self.LZerstörer.Size := System.Drawing.Size.Create(128, 20);
  Self.LZerstörer.TabIndex := 24;
  Self.LZerstörer.Text := 'Zerstörer:';
  // 
  // LBomber
  // 
  Self.LBomber.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LBomber.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LBomber.Location := System.Drawing.Point.Create(16, 112);
  Self.LBomber.Name := 'LBomber';
  Self.LBomber.Size := System.Drawing.Size.Create(128, 20);
  Self.LBomber.TabIndex := 22;
  Self.LBomber.Text := 'Bomber:';
  // 
  // LJäger
  // 
  Self.LJäger.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LJäger.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LJäger.Location := System.Drawing.Point.Create(16, 96);
  Self.LJäger.Name := 'LJäger';
  Self.LJäger.Size := System.Drawing.Size.Create(128, 20);
  Self.LJäger.TabIndex := 20;
  Self.LJäger.Text := 'Jäger:';
  // 
  // LFregatte
  // 
  Self.LFregatte.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LFregatte.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LFregatte.Location := System.Drawing.Point.Create(16, 80);
  Self.LFregatte.Name := 'LFregatte';
  Self.LFregatte.Size := System.Drawing.Size.Create(128, 20);
  Self.LFregatte.TabIndex := 4;
  Self.LFregatte.Text := 'Fregatte:';
  // 
  // LSchutzschiff
  // 
  Self.LSchutzschiff.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LSchutzschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LSchutzschiff.Location := System.Drawing.Point.Create(16, 64);
  Self.LSchutzschiff.Name := 'LSchutzschiff';
  Self.LSchutzschiff.Size := System.Drawing.Size.Create(128, 20);
  Self.LSchutzschiff.TabIndex := 2;
  Self.LSchutzschiff.Text := 'Schutzschiff:';
  // 
  // LKaperschiff
  // 
  Self.LKaperschiff.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  Self.LKaperschiff.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LKaperschiff.Location := System.Drawing.Point.Create(16, 48);
  Self.LKaperschiff.Name := 'LKaperschiff';
  Self.LKaperschiff.Size := System.Drawing.Size.Create(128, 20);
  Self.LKaperschiff.TabIndex := 0;
  Self.LKaperschiff.Text := 'Kaperschiff:';
  // 
  // BSchliessen
  // 
  Self.BSchliessen.Location := System.Drawing.Point.Create(312, 120);
  Self.BSchliessen.Name := 'BSchliessen';
  Self.BSchliessen.Size := System.Drawing.Size.Create(88, 24);
  Self.BSchliessen.TabIndex := 2;
  Self.BSchliessen.Text := 'Schliessen';
  Include(Self.BSchliessen.Click, Self.BSchliessen_Click);
  // 
  // BSpeichern
  // 
  Self.BSpeichern.Location := System.Drawing.Point.Create(312, 80);
  Self.BSpeichern.Name := 'BSpeichern';
  Self.BSpeichern.Size := System.Drawing.Size.Create(88, 24);
  Self.BSpeichern.TabIndex := 3;
  Self.BSpeichern.Text := 'Speichern';
  Include(Self.BSpeichern.Click, Self.BSpeichern_Click);
  // 
  // LHinweis
  // 
  Self.LHinweis.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Bold, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.LHinweis.Location := System.Drawing.Point.Create(408, 80);
  Self.LHinweis.Name := 'LHinweis';
  Self.LHinweis.Size := System.Drawing.Size.Create(128, 72);
  Self.LHinweis.TabIndex := 4;
  Self.LHinweis.Text := '<-- Legt automatisch eine Datei im Programmverzeich' +
  'nis an!';
  // 
  // TFlottenBearbeiten
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(554, 488);
  Self.Controls.Add(Self.LHinweis);
  Self.Controls.Add(Self.BSpeichern);
  Self.Controls.Add(Self.BSchliessen);
  Self.Controls.Add(Self.GRFlotten);
  Self.Controls.Add(Self.GrVert);
  Self.Controls.Add(Self.TEingabeFlotten);
  Self.Font := System.Drawing.Font.Create('Arial', 8.25, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, (Byte(0)));
  Self.FormBorderStyle := System.Windows.Forms.FormBorderStyle.FixedToolWindow;
  Self.Name := 'TFlottenBearbeiten';
  Self.Text := 'Flotten bearbeiten';
  Self.GrVert.ResumeLayout(False);
  Self.GRFlotten.ResumeLayout(False);
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TFlottenBearbeiten.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TFlottenBearbeiten.Create;
begin
  inherited Create;

  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //

end;

procedure TFlottenBearbeiten.BSpeichern_Click(sender: System.Object; e: System.EventArgs);
var ini : TIniFile;
begin
  try
    ini:=TiniFile.Create('Flotten.ini');
    ini.WriteInteger('Abfangjaeger',Class1.aj);
  finally
    ini.Free;
  end
end;



procedure TFlottenBearbeiten.EAbfangjaeger_TextChanged(sender: System.Object;
  e: System.EventArgs);

begin

end;


procedure TFlottenBearbeiten.BSchliessen_Click(sender: System.Object; e: System.EventArgs);
begin
  self.Close
end;





end.

Die Fehler:
[Warnung] FlottenBearbeiten.pas(93): W1005 Unit 'Borland.Vcl.IniFiles' ist plattformspezifisch
[Fehler] FlottenBearbeiten.pas(910): E2010 Inkompatible Typen: 'string' und 'Integer'
[Fataler Fehler] Taktik.dpr(17): F2063 Verwendete Unit 'FlottenBearbeiten.pas' kann nicht compiliert werden

Ehemaliges Mitglied Erhaltene Danke: 1

Du hast vergessen, nach "Abfangjaeger" noch einen String zu setzen.

markieren

Quelltext

1:
2:
3:

ini.WriteInteger('Abfangjaeger','String',StrToInt(Class1.aj));
//oder
ini.WriteInteger('Abfangjaeger','String',Class1.aj);

In der ini-Datei schaut es dann nämlich so aus:

markieren

Quelltext

1:
2:

[Abfangjaeger]
String=DeinClassDings

Versuch es mal damit.

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

StrToInt: Fehler, nicht deklarierter Bezeichner

Irgendwie liebt das Ding Meldungen dieser Art

.

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

Das mit der Deklaration hat ich wegbekommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TFlottenBearbeiten.BSpeichern_Click(sender: System.Object; e: System.EventArgs);
var ini : TIniFile;
begin
  try
    ini:=TiniFile.Create('Flotten.ini');
    ini.WriteInteger('Abfangjaeger','String',(Class1.aj));
   finally
    ini.Free;
  end
end;

Nur der speichert nur eine '0', nicht den Wert, den ich eingegeben habe. Fehlt noch eine Anweisung in der TextBox?

Ehemaliges Mitglied Erhaltene Danke: 1

Dass er nun eine 0 ausgibt, liegt sicherlich am Class1.aj.

Hast du Abfangjaeger schon in der Datei gefunden? Denn du hast den letzten Satz weggelöscht

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

Ja den Abfangjeager hab ich gefunden, nur der hat dann den Wert 0.

Ehemaliges Mitglied Erhaltene Danke: 1

Greifst du denn mit class1 auf eine andere Form zu? Es steht ja in der uses Klausel und class1 gibt es nicht als .dcu-Datei. Und was bedeutet das .aj?

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

In Class1 hab sämtliche Variablen reingepackt, da das Programm aus mehreren Fenstern besteht. aj ist hier die Variable für die Abfangjäger.

Ehemaliges Mitglied Erhaltene Danke: 1

Hmmm.. da bin ich jetzt selbst ein wenig ratlos. Ich werde aber kaum der einzige sein, der auch was zu diesem Thema zu sagen hat. Hoffentlich meldet sich mal einer, der eine korrekte Lösung zu diesem Problem weiß.

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

Hab's gefunden! :think:

Es fehlte die ConvertTo - Anweisung in der Abfrageprozedur:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TFlottenBearbeiten.BSpeichern_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    ini:=TiniFile.Create('Flotten.ini');
    ini.WriteInteger('Abfangjaeger',('Int32'),(Class1.aj));
   finally
    ini.Free;
  end
end;



procedure TFlottenBearbeiten.EAbfangjaeger_TextChanged(sender: System.Object;
  e: System.EventArgs);
begin
  Class1.aj := Convert.ToInt32(EAbfangjaeger.Text); // <--- Konvertiert zu Integer und schreibt den Wert auf Class1.aj
end;

Danke für die Hilfe! @pupsii

Ehemaliges Mitglied Erhaltene Danke: 1

Na das ist ja was erfreuliches!

Und bitte, dass ich dir ein bisschen helfen konnte

DJ Strobe · Hält's aus hier Beiträge: 12 Win XP D2005 Pers

Jetzt kann es losgehen mit Taktikplaner.exe :lol:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme