erikrn
2012-04-15, 21:35
Hvad ? Hvor er dén notits ?
Jeg har eksporteret nogle "flokke" til een gedcom-fil
ialt ca. 8.000 individer
og vil importere dem til een flok;
da får jeg denne fejl:
"En notis är längre än 250, du måste göra den kortare"
MEN hvilken notits ???
DISGEN felrapport
=================
Datum : 2012-04-15 20:11:06
Version: 8.1d (Win32)
Skapad : 2007-02-24 21:55
Feltext : En notis är längre än 250, du måste göra den kortare
Felslag : TNotisTooLong
Senaste felkod från Win32 API (inte alltid relevant)
Felkod : 487
Förklaring : Der blev forsøgt at få adgang til forkert adresse.
Vad som hände: (ingen upplysning)
DISGEN först startad : 2009-02-23
Startad antal gånger : 439
Körd antal minuter : 431792
Versionen först startad: 2009-02-23
Startad antal gånger : 439
Körd antal minuter : 431792
Antal fel : 23
Fortsatt efter fel : 11
Avbrutit efter fel : 3
Systeminformation
Windows : Windows NT/2000
Major version: 5
Minor version: 1
Build # : 2600
Version text : Service Pack 3
PixelsPerInch: 96
Screen height: 1200
Screen width : 1920
ExeName : C:\Programmer\Dis\Disgen8\Disgen.exe
Delphi heap statistics (TotalAddrSpace grows as needed)
TotalAddrSpace :10485760
TotalUncommitted :2998272
TotalCommitted :7487488
TotalAllocated :5819132
TotalFree :1597492
FreeSmall :425280
FreeBig :1172212
Unused :0
Overhead :70864
HeapErrorCode :0
Windows Memory statistics
Percent of phys memory in use: 54
Bytes of physical memory : 1073004544 (1023.3 MB)
Free physical memory bytes : 486531072 (464.0 MB)
Bytes of paging file : 2581581824 (2462.0 MB)
Free bytes of paging file : 2044542976 (1949.8 MB)
User bytes of address space : 2147352576 (2047.9 MB)
Free user bytes : 2045272064 (1950.5 MB)
Page file/Phys mem ratio : 2.41
ProgressForm Log Start
BarMax 513839
BarCount 24222
Importerar GEDCOM-filen C:\Documents and
Settings\ern\Skrivebord\denanden.GED
Import enligt GEDCOM version 5.5
Startar pass 1
37351 referenser för individer (INDI) kontrollerade och finns
14497 referenser för familjer (FAM) kontrollerade och finns
1 referenser för inlämnare (SUBM) kontrollerade och finns
Pass 1 klart
Startar pass 2
Sätter nummer på importerade personer och familjer
Pass 2 klart
Startar pass 3
ProgressForm Log End
Senast utförda kommandon
1 kommando: Byt arkiv > TdxBarButton(???)
2 OK från dialog >> TDiaChangeArchive(Välj nytt arkiv)
3 >> TListBox(ArkivListBox) = 3
4 Nytt arkiv: HHOLM
5 kommando: Välj person > TMainForm(MainForm)
6 kommando: Sök personer > TAction(???)
7 OK från dialog >> TDiaSeekPerson(Sökning till söklista 1)
8 >> TDisComboBoxWithInd(Aftername) = ""
9 >> TDisComboBoxWithInd(Forename) = ""
10 >> TDisComboBoxWithInd(Occupation) = ""
11 >> TMaskEdit(BornFirst) = " "
12 >> TMaskEdit(BornLast) = " "
13 >> TMaskEdit(DeadFirst) = " "
14 >> TMaskEdit(DeadLast) = " "
15 >> TCheckBox(Men) = 1
16 >> TCheckBox(Women) = 1
17 >> TCheckBox(Oforskat) = 0
18 >> TRadioGroup(SeekIn) = 1
19 >> TCheckBox(Further) = 0
20 >> TDisComboBoxWithInd(Place) = ""
21 >> TDisComboBoxWithInd(Comment) = ""
22 >> TMaskEdit(EventFirst) = " "
23 >> TMaskEdit(EventLast) = " "
24 >> TCheckBox(AlsoPlacesBelow) = 1
25 >> TDisComboBoxWithIndArray(Source) = ""
26 >> TDisComboBoxWithInd(Text) = ""
27 >> TMemo(Memo1) = "Sökning sker i text-, extra text-, adress- och referens-notiser samt i
fotnote"
28 >> TMaskEdit(LastEditMin) = "0000-00-00 00:00"
29 >> TMaskEdit(LastEditMax) = "9999-99-99 99:99"
30 >> TDisComboBoxWithInd(DeathCause) = ""
31 >> TListBox(FlockList) = 5
32 >> TSpinEdit(IndividNumber1) = 7400
33 >> TSpinEdit(IndividNumber2) = 7450
34 >> TCheckBox(UseNumbers) = 0
35 >> TDisComboBoxWithInd(FadderOccu) = ""
36 >> TDisComboBoxWithInd(FadderAftername) = ""
37 >> TDisComboBoxWithInd(FadderPlace) = ""
38 >> TDisComboBoxWithInd(FadderComment) = ""
39 >> TDisComboBoxWithInd(FadderForename) = ""
40 >> TCheckBox(AlsoFadderPlacesBelow) = 0
41 >> TCheckBox(Negative) = 0
42 SÖK#1 aktivt fönster
43 SÖK#1 aktivt fönster
44 SÖK#1 Flytta till person 101:478
45 SÖK#1 Flytta till person 101:401
46 kommando: SÖK#1 Sortera enbart denna kolumn > TAction(???)
47 SÖK#1 Flytta till person 101:401
48 kommando: SÖK#1 Sortera därefter också kolumn > TAction(???)
49 SÖK#1 Flytta till person 101:401
50 kommando: SÖK#1 Utöka söklistan > TAction(???)
51 SÖK#1 aktivt fönster
52 kommando: Verktyg exportera > TAction(???)
53 kommando: GEDCOM export > TButton(GEDExportBtn)
54 OK från dialog >> TExportForm(Export från DISGEN)
55 >> TTabbedNotebook(Notebook) = 2
56 >> TRadioGroup(FromAll) = 0
57 >> TListBox(SelectFlock) = 8
58 >> TMemo(Memo2) = "Du har möjlighet att lägga till en referensnotis till alla exporterade
persone"
59 >> TEdit(ReferencePart) = ""
60 >> TCheckBox(NotesAlso) = 1
61 >> TCheckBox(MotivAlso) = 1
62 >> TEdit(GEDName) = "Erik Reinert Nielsen"
63 >> TEdit(GEDAddress1) = "Rødovrevej 130"
64 >> TEdit(GEDAddress2) = "DK-2610 Rødovre"
65 >> TEdit(GEDAddress3) = "Danmark"
66 >> TEdit(GEDPhone) = ""
67 >> TEdit(GEDComment) = "ern@c.dk"
68 >> TRadioGroup(GEDReceiver) = 0
69 >> TRadioGroup(GEDCharCode) = 1
70 >> TRadioGroup(GEDVersion) = 0
71 >> TCheckBox(GEDCOMUseSourceRecords) = 1
72 >> TTabbedNotebook(TabbedNotebook1) = 0
73 >> TCheckBox(CheckAnsedlar) = 0
74 >> TCheckBox(CheckBuilt1) = 0
75 >> TCheckBox(CheckBuilt2) = 0
76 >> TCheckBox(CheckSeeklist1) = 0
77 >> TCheckBox(CheckSeeklist2) = 0
78 >> TEdit(NameBuilt1) = "Efterslægt"
79 >> TEdit(NameBuilt2) = "Mine aner"
80 >> TMemo(Memo3) = "Du får möjlighet att välja personer när
du klickar Exportera.
"
81 >> TRadioGroup(HTMLPlaceSources) = 1
82 >> TComboBox(LayoutCombo) = ""
83 >> TMemo(HTMLDescription) = "HTMLDescription
"
84 >> TSpinEdit(AnsedelGenPerPage) = 2
85 >> TCheckBox(IncludeFootnotes) = 1
86 >> TCheckBox(IncludeNewLine) = 1
87 >> TCheckBox(AnsedlarForAntavla) = 1
88 >> TSpinEdit(AntavlaGenPerPage) = 2
89 >> TCheckBox(AnsedlarForStamtavla) = 1
90 >> TSpinEdit(StamtavlaGenPerPage) = 3
91 >> TCheckBox(HTMLUsePersonIndex) = 1
92 >> TMaskEdit(HTMLPersonIndexCount) = "50"
93 >> TMaskEdit(HTMLPersonIndexLetters) = "1"
94 >> TCheckBox(HTMLUseAfternameIndex) = 1
95 >> TMaskEdit(HTMLAfternameIndexCount) = "200"
96 >> TCheckBox(HTMLUsePlaceIndex) = 1
97 >> TMaskEdit(HTMLPlaceIndexCount) = "50"
98 >> TMaskEdit(HTMLPlaceIndexLetters) = "1"
99 >> TRadioGroup(HTMLPlaceIndexOrder) = 2
100 >> TMemo(HTMLEveryPage) = "<font color="#000080"><p align="center">
slægtstavler for Erik Reinert Nielsen "
101 >> TMemo(Memo1) = "Här kan du skriva en text eventuellt kompletterad med HMTL-kommandon.
Texten ko"
102 OK från dialog >> TDiaFromWhat(Välj personer att exportera från)
103 >> TListBox(SelectFlock) = 8
104 >> TListBox(Textlist) = -1
105 SÖK#1 Flytta till person 3:6545
106 kommando: SÖK#1 Sortera enbart denna kolumn > TAction(???)
107 kommando: Sök personer > TAction(???)
108 OK från dialog >> TDiaSeekPerson(Sökning till söklista 1)
109 >> TDisComboBoxWithInd(Aftername) = ""
110 >> TDisComboBoxWithInd(Forename) = ""
111 >> TDisComboBoxWithInd(Occupation) = ""
112 >> TMaskEdit(BornFirst) = " "
113 >> TMaskEdit(BornLast) = " "
114 >> TMaskEdit(DeadFirst) = " "
115 >> TMaskEdit(DeadLast) = " "
116 >> TCheckBox(Men) = 1
117 >> TCheckBox(Women) = 1
118 >> TCheckBox(Oforskat) = 0
119 >> TRadioGroup(SeekIn) = 1
120 >> TCheckBox(Further) = 0
121 >> TDisComboBoxWithInd(Place) = ""
122 >> TDisComboBoxWithInd(Comment) = ""
123 >> TMaskEdit(EventFirst) = " "
124 >> TMaskEdit(EventLast) = " "
125 >> TCheckBox(AlsoPlacesBelow) = 1
126 >> TDisComboBoxWithIndArray(Source) = ""
127 >> TDisComboBoxWithInd(Text) = ""
128 >> TMemo(Memo1) = "Sökning sker i text-, extra text-, adress- och referens-notiser samt i
fotnote"
129 >> TMaskEdit(LastEditMin) = "0000-00-00 00:00"
130 >> TMaskEdit(LastEditMax) = "9999-99-99 99:99"
131 >> TDisComboBoxWithInd(DeathCause) = ""
132 >> TListBox(FlockList) = 5
133 >> TSpinEdit(IndividNumber1) = 7400
134 >> TSpinEdit(IndividNumber2) = 7450
135 >> TCheckBox(UseNumbers) = 0
136 >> TDisComboBoxWithInd(FadderOccu) = ""
137 >> TDisComboBoxWithInd(FadderAftername) = ""
138 >> TDisComboBoxWithInd(FadderPlace) = ""
139 >> TDisComboBoxWithInd(FadderComment) = ""
140 >> TDisComboBoxWithInd(FadderForename) = ""
141 >> TCheckBox(AlsoFadderPlacesBelow) = 0
142 >> TCheckBox(Negative) = 0
143 kommando: Verktyg exportera > TAction(???)
144 kommando: GEDCOM export > TButton(GEDExportBtn)
145 OK från dialog >> TExportForm(Export från DISGEN)
146 >> TTabbedNotebook(Notebook) = 2
147 >> TRadioGroup(FromAll) = 0
148 >> TListBox(SelectFlock) = 8
149 >> TMemo(Memo2) = "Du har möjlighet att lägga till en referensnotis till alla exporterade
persone"
150 >> TEdit(ReferencePart) = ""
151 >> TCheckBox(NotesAlso) = 1
152 >> TCheckBox(MotivAlso) = 1
153 >> TEdit(GEDName) = "Erik Reinert Nielsen"
154 >> TEdit(GEDAddress1) = "Rødovrevej 130"
155 >> TEdit(GEDAddress2) = "DK-2610 Rødovre"
156 >> TEdit(GEDAddress3) = "Danmark"
157 >> TEdit(GEDPhone) = ""
158 >> TEdit(GEDComment) = "ern@c.dk"
159 >> TRadioGroup(GEDReceiver) = 0
160 >> TRadioGroup(GEDCharCode) = 1
161 >> TRadioGroup(GEDVersion) = 0
162 >> TCheckBox(GEDCOMUseSourceRecords) = 1
163 >> TTabbedNotebook(TabbedNotebook1) = 0
164 >> TCheckBox(CheckAnsedlar) = 0
165 >> TCheckBox(CheckBuilt1) = 0
166 >> TCheckBox(CheckBuilt2) = 0
167 >> TCheckBox(CheckSeeklist1) = 0
168 >> TCheckBox(CheckSeeklist2) = 0
169 >> TEdit(NameBuilt1) = "Efterslægt"
170 >> TEdit(NameBuilt2) = "Mine aner"
171 >> TMemo(Memo3) = "Du får möjlighet att välja personer när
du klickar Exportera.
"
172 >> TRadioGroup(HTMLPlaceSources) = 1
173 >> TComboBox(LayoutCombo) = ""
174 >> TMemo(HTMLDescription) = "HTMLDescription
"
175 >> TSpinEdit(AnsedelGenPerPage) = 2
176 >> TCheckBox(IncludeFootnotes) = 1
177 >> TCheckBox(IncludeNewLine) = 1
178 >> TCheckBox(AnsedlarForAntavla) = 1
179 >> TSpinEdit(AntavlaGenPerPage) = 2
180 >> TCheckBox(AnsedlarForStamtavla) = 1
181 >> TSpinEdit(StamtavlaGenPerPage) = 3
182 >> TCheckBox(HTMLUsePersonIndex) = 1
183 >> TMaskEdit(HTMLPersonIndexCount) = "50"
184 >> TMaskEdit(HTMLPersonIndexLetters) = "1"
185 >> TCheckBox(HTMLUseAfternameIndex) = 1
186 >> TMaskEdit(HTMLAfternameIndexCount) = "200"
187 >> TCheckBox(HTMLUsePlaceIndex) = 1
188 >> TMaskEdit(HTMLPlaceIndexCount) = "50"
189 >> TMaskEdit(HTMLPlaceIndexLetters) = "1"
190 >> TRadioGroup(HTMLPlaceIndexOrder) = 2
191 >> TMemo(HTMLEveryPage) = "<font color="#000080"><p align="center">
slægtstavler for Erik Reinert Nielsen "
192 >> TMemo(Memo1) = "Här kan du skriva en text eventuellt kompletterad med HMTL-kommandon.
Texten ko"
193 OK från dialog >> TDiaFromWhat(Välj personer att exportera från)
194 >> TListBox(SelectFlock) = 8
195 >> TListBox(Textlist) = -1
196 kommando: Byt arkiv > TdxBarButton(???)
197 OK från dialog >> TDiaChangeArchive(Välj nytt arkiv)
198 >> TListBox(ArkivListBox) = 9
199 Nytt arkiv: test12
200 kommando: Välj person > TMainForm(MainForm)
201 OK från dialog >> TDiaGetPerson(Välj person)
202 >> TListBox(RecentPersons) = -1
203 >> TListBox(FlockList) = 0
204 >> TSpinEdit(IndividNumber) = 1
205 >> TDisComboBoxWithInd(Aftername) = ""
206 >> TDisComboBoxWithInd(Forename) = ""
207 FÖ#1 aktivt fönster
208 FÖ#1 ny proband 1
209 err: Personen eller giftet 27521 saknas. DISGENs filer är inte korrekta.
Kör "Verktyg -- Kontrollera DISGENs filer" för att rätta till felet.
Detta meddelande visas inte fler gånger under denna körning även om fler fel skulle påträffas.
210 kommando: Verktyg importera > TAction(???)
211 kommando: GEDCOM Import > TButton(GEDImportBtn)
212 OK från dialog >> TImportForm(Import till DISGEN)
213 >> TTabbedNotebook(Notebook) = 1
214 >> TRadioGroup(MethodRadio) = 0
215 >> TListBox(ReceivingFlk) = -1
216 >> TRadioGroup(ForenameText) = 0
217 >> TRadioGroup(AfternameText) = 0
218 >> TRadioGroup(GEDAftername) = 0
219 >> TRadioGroup(GEDForename) = 0
220 >> TListBox(GEDReceivingFlk) = 0
221 >> TRadioGroup(CharCode) = 1
222 >> TRadioGroup(GEDVersion) = 1
223 >> TMemo(FlockDisplayV6) = "inga
"
224 >> TMemo(FlockDisplayV7) = ""
225 janej Importen kommer att ske till vald flock men
inga befintliga uppgifter kommer att skrivas över.
Anm: Det är lämpligt att lägga material från andra släktforskare
i egen flock som du skapar med menyvalet Skapa - Ny flock.
Vill du fortsätta med importen?
Antal fönster: 1
1 1 TTarzanForm active
Stack trace:
Physical Logical Unit (######) Routine
0032F032 0031E032 ..\common\FMT.PAS ( 655) Fmt.TNotis.Pack
0027C03D 0026B03D ..\common\BytGin55.pas ( 3968) Bytgin55.Line
0027C242 0026B242 ..\common\BytGin55.pas ( 4028) Bytgin55.TReader.ImportTextPlus
0027E756 0026D756 ..\common\BytGin55.pas ( 4859) Bytgin55.TReader.ImportNOTEAsText
00280AEB 0026FAEB ..\common\BytGin55.pas ( 5677) Bytgin55.ImportAllNotes
00280C0A 0026FC0A ..\common\BytGin55.pas ( 5698) Bytgin55.TReader.ImportINDI
00281169 00270169 ..\common\BytGin55.pas ( 5865) Bytgin55.TReader.Pass3
00282683 00271683 ..\common\BytGin55.pas ( 6374) Bytgin55.Gedcom_in
002908AE 0027F8AE ..\common\IMPORT.PAS ( 996) Import.TImportForm.GEDImportBtnClick
0004C91C 0003B91C Controls.TControl.Click
00043EBD 00032EBD StdCtrls.TButtonControl.WndProc
0004F378 0003E378 Controls.DoControlMsg
0004EE4B 0003DE4B Controls.TWinControl.MainWndProc
00061F46 00050F46 Forms.StdWndProc
0004F323 0003E323 Controls.TWinControl.DefaultHandler
00043EBD 00032EBD StdCtrls.TButtonControl.WndProc
00061F46 00050F46 Forms.StdWndProc
0006AA28 00059A28 Forms.TApplication.ProcessMessage
0028F9F0 0027E9F0 ..\common\IMPORT.PAS ( 726) Import.TImportForm.ShowmodalMod
002F2D54 002E1D54 ..\common\MAIN.PAS ( 3146) Main.TMainForm.ActionImportExecute
0002E3D6 0001D3D6 Classes.TBasicAction.Execute
000E0C44 000CFC44 dxBar.TdxBarItemControl.ControlUnclick
000E21CE 000D11CE dxBar.TdxBarButtonControl.ControlUnclick
0004C788 0003B788 Controls.TControl.WndProc
000D4ADF 000C3ADF dxBar.TCustomdxBarControl.WndProc
0004EE4B 0003DE4B Controls.TWinControl.MainWndProc
00061F46 00050F46 Forms.StdWndProc
0006AA28 00059A28 Forms.TApplication.ProcessMessage
00336A6C 00325A6C I:\8.1d\product\Disgen.dpr ( 294) Disgen.Disgen
Jeg har eksporteret nogle "flokke" til een gedcom-fil
ialt ca. 8.000 individer
og vil importere dem til een flok;
da får jeg denne fejl:
"En notis är längre än 250, du måste göra den kortare"
MEN hvilken notits ???
DISGEN felrapport
=================
Datum : 2012-04-15 20:11:06
Version: 8.1d (Win32)
Skapad : 2007-02-24 21:55
Feltext : En notis är längre än 250, du måste göra den kortare
Felslag : TNotisTooLong
Senaste felkod från Win32 API (inte alltid relevant)
Felkod : 487
Förklaring : Der blev forsøgt at få adgang til forkert adresse.
Vad som hände: (ingen upplysning)
DISGEN först startad : 2009-02-23
Startad antal gånger : 439
Körd antal minuter : 431792
Versionen först startad: 2009-02-23
Startad antal gånger : 439
Körd antal minuter : 431792
Antal fel : 23
Fortsatt efter fel : 11
Avbrutit efter fel : 3
Systeminformation
Windows : Windows NT/2000
Major version: 5
Minor version: 1
Build # : 2600
Version text : Service Pack 3
PixelsPerInch: 96
Screen height: 1200
Screen width : 1920
ExeName : C:\Programmer\Dis\Disgen8\Disgen.exe
Delphi heap statistics (TotalAddrSpace grows as needed)
TotalAddrSpace :10485760
TotalUncommitted :2998272
TotalCommitted :7487488
TotalAllocated :5819132
TotalFree :1597492
FreeSmall :425280
FreeBig :1172212
Unused :0
Overhead :70864
HeapErrorCode :0
Windows Memory statistics
Percent of phys memory in use: 54
Bytes of physical memory : 1073004544 (1023.3 MB)
Free physical memory bytes : 486531072 (464.0 MB)
Bytes of paging file : 2581581824 (2462.0 MB)
Free bytes of paging file : 2044542976 (1949.8 MB)
User bytes of address space : 2147352576 (2047.9 MB)
Free user bytes : 2045272064 (1950.5 MB)
Page file/Phys mem ratio : 2.41
ProgressForm Log Start
BarMax 513839
BarCount 24222
Importerar GEDCOM-filen C:\Documents and
Settings\ern\Skrivebord\denanden.GED
Import enligt GEDCOM version 5.5
Startar pass 1
37351 referenser för individer (INDI) kontrollerade och finns
14497 referenser för familjer (FAM) kontrollerade och finns
1 referenser för inlämnare (SUBM) kontrollerade och finns
Pass 1 klart
Startar pass 2
Sätter nummer på importerade personer och familjer
Pass 2 klart
Startar pass 3
ProgressForm Log End
Senast utförda kommandon
1 kommando: Byt arkiv > TdxBarButton(???)
2 OK från dialog >> TDiaChangeArchive(Välj nytt arkiv)
3 >> TListBox(ArkivListBox) = 3
4 Nytt arkiv: HHOLM
5 kommando: Välj person > TMainForm(MainForm)
6 kommando: Sök personer > TAction(???)
7 OK från dialog >> TDiaSeekPerson(Sökning till söklista 1)
8 >> TDisComboBoxWithInd(Aftername) = ""
9 >> TDisComboBoxWithInd(Forename) = ""
10 >> TDisComboBoxWithInd(Occupation) = ""
11 >> TMaskEdit(BornFirst) = " "
12 >> TMaskEdit(BornLast) = " "
13 >> TMaskEdit(DeadFirst) = " "
14 >> TMaskEdit(DeadLast) = " "
15 >> TCheckBox(Men) = 1
16 >> TCheckBox(Women) = 1
17 >> TCheckBox(Oforskat) = 0
18 >> TRadioGroup(SeekIn) = 1
19 >> TCheckBox(Further) = 0
20 >> TDisComboBoxWithInd(Place) = ""
21 >> TDisComboBoxWithInd(Comment) = ""
22 >> TMaskEdit(EventFirst) = " "
23 >> TMaskEdit(EventLast) = " "
24 >> TCheckBox(AlsoPlacesBelow) = 1
25 >> TDisComboBoxWithIndArray(Source) = ""
26 >> TDisComboBoxWithInd(Text) = ""
27 >> TMemo(Memo1) = "Sökning sker i text-, extra text-, adress- och referens-notiser samt i
fotnote"
28 >> TMaskEdit(LastEditMin) = "0000-00-00 00:00"
29 >> TMaskEdit(LastEditMax) = "9999-99-99 99:99"
30 >> TDisComboBoxWithInd(DeathCause) = ""
31 >> TListBox(FlockList) = 5
32 >> TSpinEdit(IndividNumber1) = 7400
33 >> TSpinEdit(IndividNumber2) = 7450
34 >> TCheckBox(UseNumbers) = 0
35 >> TDisComboBoxWithInd(FadderOccu) = ""
36 >> TDisComboBoxWithInd(FadderAftername) = ""
37 >> TDisComboBoxWithInd(FadderPlace) = ""
38 >> TDisComboBoxWithInd(FadderComment) = ""
39 >> TDisComboBoxWithInd(FadderForename) = ""
40 >> TCheckBox(AlsoFadderPlacesBelow) = 0
41 >> TCheckBox(Negative) = 0
42 SÖK#1 aktivt fönster
43 SÖK#1 aktivt fönster
44 SÖK#1 Flytta till person 101:478
45 SÖK#1 Flytta till person 101:401
46 kommando: SÖK#1 Sortera enbart denna kolumn > TAction(???)
47 SÖK#1 Flytta till person 101:401
48 kommando: SÖK#1 Sortera därefter också kolumn > TAction(???)
49 SÖK#1 Flytta till person 101:401
50 kommando: SÖK#1 Utöka söklistan > TAction(???)
51 SÖK#1 aktivt fönster
52 kommando: Verktyg exportera > TAction(???)
53 kommando: GEDCOM export > TButton(GEDExportBtn)
54 OK från dialog >> TExportForm(Export från DISGEN)
55 >> TTabbedNotebook(Notebook) = 2
56 >> TRadioGroup(FromAll) = 0
57 >> TListBox(SelectFlock) = 8
58 >> TMemo(Memo2) = "Du har möjlighet att lägga till en referensnotis till alla exporterade
persone"
59 >> TEdit(ReferencePart) = ""
60 >> TCheckBox(NotesAlso) = 1
61 >> TCheckBox(MotivAlso) = 1
62 >> TEdit(GEDName) = "Erik Reinert Nielsen"
63 >> TEdit(GEDAddress1) = "Rødovrevej 130"
64 >> TEdit(GEDAddress2) = "DK-2610 Rødovre"
65 >> TEdit(GEDAddress3) = "Danmark"
66 >> TEdit(GEDPhone) = ""
67 >> TEdit(GEDComment) = "ern@c.dk"
68 >> TRadioGroup(GEDReceiver) = 0
69 >> TRadioGroup(GEDCharCode) = 1
70 >> TRadioGroup(GEDVersion) = 0
71 >> TCheckBox(GEDCOMUseSourceRecords) = 1
72 >> TTabbedNotebook(TabbedNotebook1) = 0
73 >> TCheckBox(CheckAnsedlar) = 0
74 >> TCheckBox(CheckBuilt1) = 0
75 >> TCheckBox(CheckBuilt2) = 0
76 >> TCheckBox(CheckSeeklist1) = 0
77 >> TCheckBox(CheckSeeklist2) = 0
78 >> TEdit(NameBuilt1) = "Efterslægt"
79 >> TEdit(NameBuilt2) = "Mine aner"
80 >> TMemo(Memo3) = "Du får möjlighet att välja personer när
du klickar Exportera.
"
81 >> TRadioGroup(HTMLPlaceSources) = 1
82 >> TComboBox(LayoutCombo) = ""
83 >> TMemo(HTMLDescription) = "HTMLDescription
"
84 >> TSpinEdit(AnsedelGenPerPage) = 2
85 >> TCheckBox(IncludeFootnotes) = 1
86 >> TCheckBox(IncludeNewLine) = 1
87 >> TCheckBox(AnsedlarForAntavla) = 1
88 >> TSpinEdit(AntavlaGenPerPage) = 2
89 >> TCheckBox(AnsedlarForStamtavla) = 1
90 >> TSpinEdit(StamtavlaGenPerPage) = 3
91 >> TCheckBox(HTMLUsePersonIndex) = 1
92 >> TMaskEdit(HTMLPersonIndexCount) = "50"
93 >> TMaskEdit(HTMLPersonIndexLetters) = "1"
94 >> TCheckBox(HTMLUseAfternameIndex) = 1
95 >> TMaskEdit(HTMLAfternameIndexCount) = "200"
96 >> TCheckBox(HTMLUsePlaceIndex) = 1
97 >> TMaskEdit(HTMLPlaceIndexCount) = "50"
98 >> TMaskEdit(HTMLPlaceIndexLetters) = "1"
99 >> TRadioGroup(HTMLPlaceIndexOrder) = 2
100 >> TMemo(HTMLEveryPage) = "<font color="#000080"><p align="center">
slægtstavler for Erik Reinert Nielsen "
101 >> TMemo(Memo1) = "Här kan du skriva en text eventuellt kompletterad med HMTL-kommandon.
Texten ko"
102 OK från dialog >> TDiaFromWhat(Välj personer att exportera från)
103 >> TListBox(SelectFlock) = 8
104 >> TListBox(Textlist) = -1
105 SÖK#1 Flytta till person 3:6545
106 kommando: SÖK#1 Sortera enbart denna kolumn > TAction(???)
107 kommando: Sök personer > TAction(???)
108 OK från dialog >> TDiaSeekPerson(Sökning till söklista 1)
109 >> TDisComboBoxWithInd(Aftername) = ""
110 >> TDisComboBoxWithInd(Forename) = ""
111 >> TDisComboBoxWithInd(Occupation) = ""
112 >> TMaskEdit(BornFirst) = " "
113 >> TMaskEdit(BornLast) = " "
114 >> TMaskEdit(DeadFirst) = " "
115 >> TMaskEdit(DeadLast) = " "
116 >> TCheckBox(Men) = 1
117 >> TCheckBox(Women) = 1
118 >> TCheckBox(Oforskat) = 0
119 >> TRadioGroup(SeekIn) = 1
120 >> TCheckBox(Further) = 0
121 >> TDisComboBoxWithInd(Place) = ""
122 >> TDisComboBoxWithInd(Comment) = ""
123 >> TMaskEdit(EventFirst) = " "
124 >> TMaskEdit(EventLast) = " "
125 >> TCheckBox(AlsoPlacesBelow) = 1
126 >> TDisComboBoxWithIndArray(Source) = ""
127 >> TDisComboBoxWithInd(Text) = ""
128 >> TMemo(Memo1) = "Sökning sker i text-, extra text-, adress- och referens-notiser samt i
fotnote"
129 >> TMaskEdit(LastEditMin) = "0000-00-00 00:00"
130 >> TMaskEdit(LastEditMax) = "9999-99-99 99:99"
131 >> TDisComboBoxWithInd(DeathCause) = ""
132 >> TListBox(FlockList) = 5
133 >> TSpinEdit(IndividNumber1) = 7400
134 >> TSpinEdit(IndividNumber2) = 7450
135 >> TCheckBox(UseNumbers) = 0
136 >> TDisComboBoxWithInd(FadderOccu) = ""
137 >> TDisComboBoxWithInd(FadderAftername) = ""
138 >> TDisComboBoxWithInd(FadderPlace) = ""
139 >> TDisComboBoxWithInd(FadderComment) = ""
140 >> TDisComboBoxWithInd(FadderForename) = ""
141 >> TCheckBox(AlsoFadderPlacesBelow) = 0
142 >> TCheckBox(Negative) = 0
143 kommando: Verktyg exportera > TAction(???)
144 kommando: GEDCOM export > TButton(GEDExportBtn)
145 OK från dialog >> TExportForm(Export från DISGEN)
146 >> TTabbedNotebook(Notebook) = 2
147 >> TRadioGroup(FromAll) = 0
148 >> TListBox(SelectFlock) = 8
149 >> TMemo(Memo2) = "Du har möjlighet att lägga till en referensnotis till alla exporterade
persone"
150 >> TEdit(ReferencePart) = ""
151 >> TCheckBox(NotesAlso) = 1
152 >> TCheckBox(MotivAlso) = 1
153 >> TEdit(GEDName) = "Erik Reinert Nielsen"
154 >> TEdit(GEDAddress1) = "Rødovrevej 130"
155 >> TEdit(GEDAddress2) = "DK-2610 Rødovre"
156 >> TEdit(GEDAddress3) = "Danmark"
157 >> TEdit(GEDPhone) = ""
158 >> TEdit(GEDComment) = "ern@c.dk"
159 >> TRadioGroup(GEDReceiver) = 0
160 >> TRadioGroup(GEDCharCode) = 1
161 >> TRadioGroup(GEDVersion) = 0
162 >> TCheckBox(GEDCOMUseSourceRecords) = 1
163 >> TTabbedNotebook(TabbedNotebook1) = 0
164 >> TCheckBox(CheckAnsedlar) = 0
165 >> TCheckBox(CheckBuilt1) = 0
166 >> TCheckBox(CheckBuilt2) = 0
167 >> TCheckBox(CheckSeeklist1) = 0
168 >> TCheckBox(CheckSeeklist2) = 0
169 >> TEdit(NameBuilt1) = "Efterslægt"
170 >> TEdit(NameBuilt2) = "Mine aner"
171 >> TMemo(Memo3) = "Du får möjlighet att välja personer när
du klickar Exportera.
"
172 >> TRadioGroup(HTMLPlaceSources) = 1
173 >> TComboBox(LayoutCombo) = ""
174 >> TMemo(HTMLDescription) = "HTMLDescription
"
175 >> TSpinEdit(AnsedelGenPerPage) = 2
176 >> TCheckBox(IncludeFootnotes) = 1
177 >> TCheckBox(IncludeNewLine) = 1
178 >> TCheckBox(AnsedlarForAntavla) = 1
179 >> TSpinEdit(AntavlaGenPerPage) = 2
180 >> TCheckBox(AnsedlarForStamtavla) = 1
181 >> TSpinEdit(StamtavlaGenPerPage) = 3
182 >> TCheckBox(HTMLUsePersonIndex) = 1
183 >> TMaskEdit(HTMLPersonIndexCount) = "50"
184 >> TMaskEdit(HTMLPersonIndexLetters) = "1"
185 >> TCheckBox(HTMLUseAfternameIndex) = 1
186 >> TMaskEdit(HTMLAfternameIndexCount) = "200"
187 >> TCheckBox(HTMLUsePlaceIndex) = 1
188 >> TMaskEdit(HTMLPlaceIndexCount) = "50"
189 >> TMaskEdit(HTMLPlaceIndexLetters) = "1"
190 >> TRadioGroup(HTMLPlaceIndexOrder) = 2
191 >> TMemo(HTMLEveryPage) = "<font color="#000080"><p align="center">
slægtstavler for Erik Reinert Nielsen "
192 >> TMemo(Memo1) = "Här kan du skriva en text eventuellt kompletterad med HMTL-kommandon.
Texten ko"
193 OK från dialog >> TDiaFromWhat(Välj personer att exportera från)
194 >> TListBox(SelectFlock) = 8
195 >> TListBox(Textlist) = -1
196 kommando: Byt arkiv > TdxBarButton(???)
197 OK från dialog >> TDiaChangeArchive(Välj nytt arkiv)
198 >> TListBox(ArkivListBox) = 9
199 Nytt arkiv: test12
200 kommando: Välj person > TMainForm(MainForm)
201 OK från dialog >> TDiaGetPerson(Välj person)
202 >> TListBox(RecentPersons) = -1
203 >> TListBox(FlockList) = 0
204 >> TSpinEdit(IndividNumber) = 1
205 >> TDisComboBoxWithInd(Aftername) = ""
206 >> TDisComboBoxWithInd(Forename) = ""
207 FÖ#1 aktivt fönster
208 FÖ#1 ny proband 1
209 err: Personen eller giftet 27521 saknas. DISGENs filer är inte korrekta.
Kör "Verktyg -- Kontrollera DISGENs filer" för att rätta till felet.
Detta meddelande visas inte fler gånger under denna körning även om fler fel skulle påträffas.
210 kommando: Verktyg importera > TAction(???)
211 kommando: GEDCOM Import > TButton(GEDImportBtn)
212 OK från dialog >> TImportForm(Import till DISGEN)
213 >> TTabbedNotebook(Notebook) = 1
214 >> TRadioGroup(MethodRadio) = 0
215 >> TListBox(ReceivingFlk) = -1
216 >> TRadioGroup(ForenameText) = 0
217 >> TRadioGroup(AfternameText) = 0
218 >> TRadioGroup(GEDAftername) = 0
219 >> TRadioGroup(GEDForename) = 0
220 >> TListBox(GEDReceivingFlk) = 0
221 >> TRadioGroup(CharCode) = 1
222 >> TRadioGroup(GEDVersion) = 1
223 >> TMemo(FlockDisplayV6) = "inga
"
224 >> TMemo(FlockDisplayV7) = ""
225 janej Importen kommer att ske till vald flock men
inga befintliga uppgifter kommer att skrivas över.
Anm: Det är lämpligt att lägga material från andra släktforskare
i egen flock som du skapar med menyvalet Skapa - Ny flock.
Vill du fortsätta med importen?
Antal fönster: 1
1 1 TTarzanForm active
Stack trace:
Physical Logical Unit (######) Routine
0032F032 0031E032 ..\common\FMT.PAS ( 655) Fmt.TNotis.Pack
0027C03D 0026B03D ..\common\BytGin55.pas ( 3968) Bytgin55.Line
0027C242 0026B242 ..\common\BytGin55.pas ( 4028) Bytgin55.TReader.ImportTextPlus
0027E756 0026D756 ..\common\BytGin55.pas ( 4859) Bytgin55.TReader.ImportNOTEAsText
00280AEB 0026FAEB ..\common\BytGin55.pas ( 5677) Bytgin55.ImportAllNotes
00280C0A 0026FC0A ..\common\BytGin55.pas ( 5698) Bytgin55.TReader.ImportINDI
00281169 00270169 ..\common\BytGin55.pas ( 5865) Bytgin55.TReader.Pass3
00282683 00271683 ..\common\BytGin55.pas ( 6374) Bytgin55.Gedcom_in
002908AE 0027F8AE ..\common\IMPORT.PAS ( 996) Import.TImportForm.GEDImportBtnClick
0004C91C 0003B91C Controls.TControl.Click
00043EBD 00032EBD StdCtrls.TButtonControl.WndProc
0004F378 0003E378 Controls.DoControlMsg
0004EE4B 0003DE4B Controls.TWinControl.MainWndProc
00061F46 00050F46 Forms.StdWndProc
0004F323 0003E323 Controls.TWinControl.DefaultHandler
00043EBD 00032EBD StdCtrls.TButtonControl.WndProc
00061F46 00050F46 Forms.StdWndProc
0006AA28 00059A28 Forms.TApplication.ProcessMessage
0028F9F0 0027E9F0 ..\common\IMPORT.PAS ( 726) Import.TImportForm.ShowmodalMod
002F2D54 002E1D54 ..\common\MAIN.PAS ( 3146) Main.TMainForm.ActionImportExecute
0002E3D6 0001D3D6 Classes.TBasicAction.Execute
000E0C44 000CFC44 dxBar.TdxBarItemControl.ControlUnclick
000E21CE 000D11CE dxBar.TdxBarButtonControl.ControlUnclick
0004C788 0003B788 Controls.TControl.WndProc
000D4ADF 000C3ADF dxBar.TCustomdxBarControl.WndProc
0004EE4B 0003DE4B Controls.TWinControl.MainWndProc
00061F46 00050F46 Forms.StdWndProc
0006AA28 00059A28 Forms.TApplication.ProcessMessage
00336A6C 00325A6C I:\8.1d\product\Disgen.dpr ( 294) Disgen.Disgen