Rev 3 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3 | Rev 4 | ||
---|---|---|---|
1 | unit CnvMain; |
1 | unit CnvMain; |
2 | 2 | ||
3 | interface |
3 | interface |
4 | 4 | ||
5 | uses |
5 | uses |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
7 | StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls; |
7 | StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls, System.UITypes; |
8 | 8 | ||
9 | type |
9 | type |
10 | TMainForm = class(TForm) |
10 | TMainForm = class(TForm) |
11 | Run: TButton; |
11 | Run: TButton; |
12 | Button1: TButton; |
12 | Button1: TButton; |
13 | Button2: TButton; |
13 | Button2: TButton; |
14 | Button3: TButton; |
14 | Button3: TButton; |
15 | Bevel1: TBevel; |
15 | Bevel1: TBevel; |
16 | Label1: TLabel; |
16 | Label1: TLabel; |
17 | Label2: TLabel; |
17 | Label2: TLabel; |
18 | comb: TComboBox; |
18 | comb: TComboBox; |
19 | gauge: TProgressBar; |
19 | gauge: TProgressBar; |
20 | procedure RunClick(Sender: TObject); |
20 | procedure RunClick(Sender: TObject); |
21 | procedure FormCreate(Sender: TObject); |
21 | procedure FormCreate(Sender: TObject); |
22 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
22 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
23 | procedure Button1Click(Sender: TObject); |
23 | procedure Button1Click(Sender: TObject); |
24 | procedure Button2Click(Sender: TObject); |
24 | procedure Button2Click(Sender: TObject); |
25 | procedure Button3Click(Sender: TObject); |
25 | procedure Button3Click(Sender: TObject); |
26 | public |
26 | public |
27 | FDirectory: string; |
27 | FDirectory: string; |
28 | procedure c02t03(von, an: string); |
28 | procedure c02t03(von, an: string); |
29 | procedure c03t04(von, an: string); |
29 | procedure c03t04(von, an: string); |
30 | procedure c04t10(von, an: string); |
30 | procedure c04t10(von, an: string); |
31 | end; |
31 | end; |
32 | 32 | ||
33 | var |
33 | var |
34 | MainForm: TMainForm; |
34 | MainForm: TMainForm; |
35 | m: array[1..5] of tstrings; |
35 | m: array[1..5] of tstrings; |
36 | 36 | ||
37 | implementation |
37 | implementation |
38 | 38 | ||
39 | {$R *.DFM} |
39 | {$R *.DFM} |
40 | 40 | ||
41 | {$R WindowsXP.res} |
- | |
42 | - | ||
43 | procedure TMainForm.RunClick(Sender: TObject); |
41 | procedure TMainForm.RunClick(Sender: TObject); |
44 | var |
42 | var |
45 | i: integer; |
43 | i: integer; |
46 | begin |
44 | begin |
47 | if comb.ItemIndex = -1 then |
45 | if comb.ItemIndex = -1 then |
48 | begin |
46 | begin |
49 | MessageDLG('Bitte Umwandlungsmethode wählen!', mtError, [mbOK], 0); |
47 | MessageDLG('Bitte Umwandlungsmethode wählen!', mtError, [mbOK], 0); |
50 | exit; |
48 | exit; |
51 | end; |
49 | end; |
52 | if not DirectoryExists(FDirectory+'Temp') then CreateDir(FDirectory+'Temp'); |
50 | if not DirectoryExists(FDirectory+'Temp') then CreateDir(FDirectory+'Temp'); |
53 | if not DirectoryExists(FDirectory+'Temp\1') then CreateDir(FDirectory+'Temp\1'); |
51 | if not DirectoryExists(FDirectory+'Temp\1') then CreateDir(FDirectory+'Temp\1'); |
54 | if not DirectoryExists(FDirectory+'Temp\2') then CreateDir(FDirectory+'Temp\2'); |
52 | if not DirectoryExists(FDirectory+'Temp\2') then CreateDir(FDirectory+'Temp\2'); |
55 | if not DirectoryExists(FDirectory+'Eingabe') then CreateDir(FDirectory+'Eingabe'); |
53 | if not DirectoryExists(FDirectory+'Eingabe') then CreateDir(FDirectory+'Eingabe'); |
56 | if not DirectoryExists(FDirectory+'Ausgabe') then CreateDir(FDirectory+'Ausgabe'); |
54 | if not DirectoryExists(FDirectory+'Ausgabe') then CreateDir(FDirectory+'Ausgabe'); |
57 | for i := 1 to 999 do |
55 | for i := 1 to 999 do |
58 | begin |
56 | begin |
59 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav'); |
57 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav'); |
60 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav'); |
58 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav'); |
61 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav'); |
59 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav'); |
62 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav'); |
60 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav'); |
63 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav'); |
61 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav'); |
64 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav'); |
62 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav'); |
65 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav'); |
63 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav'); |
66 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav'); |
64 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav'); |
67 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav'); |
65 | if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav'); |
68 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav'); |
66 | if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav'); |
69 | if fileexists(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev'); |
67 | if fileexists(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev'); |
70 | if fileexists(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev'); |
68 | if fileexists(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev'); |
71 | end; |
69 | end; |
72 | if comb.ItemIndex = 0 then c02t03(FDirectory+'Eingabe', FDirectory+'Ausgabe'); |
70 | if comb.ItemIndex = 0 then c02t03(FDirectory+'Eingabe', FDirectory+'Ausgabe'); |
73 | if comb.ItemIndex = 1 then |
71 | if comb.ItemIndex = 1 then |
74 | begin |
72 | begin |
75 | c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1'); |
73 | c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1'); |
76 | c03t04(FDirectory+'Temp\1', FDirectory+'Ausgabe'); |
74 | c03t04(FDirectory+'Temp\1', FDirectory+'Ausgabe'); |
77 | end; |
75 | end; |
78 | if comb.ItemIndex = 2 then c03t04(FDirectory+'Eingabe', FDirectory+'Ausgabe'); |
76 | if comb.ItemIndex = 2 then c03t04(FDirectory+'Eingabe', FDirectory+'Ausgabe'); |
79 | if comb.ItemIndex = 3 then c04t10(FDirectory+'Eingabe', FDirectory+'Ausgabe'); |
77 | if comb.ItemIndex = 3 then c04t10(FDirectory+'Eingabe', FDirectory+'Ausgabe'); |
80 | if comb.ItemIndex = 4 then |
78 | if comb.ItemIndex = 4 then |
81 | begin |
79 | begin |
82 | c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1'); |
80 | c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1'); |
83 | c03t04(FDirectory+'Temp\1', FDirectory+'Test\2'); |
81 | c03t04(FDirectory+'Temp\1', FDirectory+'Test\2'); |
84 | c04t10(FDirectory+'Temp\2', FDirectory+'Ausgabe'); |
82 | c04t10(FDirectory+'Temp\2', FDirectory+'Ausgabe'); |
85 | end; |
83 | end; |
86 | if comb.ItemIndex = 5 then |
84 | if comb.ItemIndex = 5 then |
87 | begin |
85 | begin |
88 | c03t04(FDirectory+'Eingabe', FDirectory+'Temp\1'); |
86 | c03t04(FDirectory+'Eingabe', FDirectory+'Temp\1'); |
89 | c04t10(FDirectory+'Temp\1', FDirectory+'Ausgabe'); |
87 | c04t10(FDirectory+'Temp\1', FDirectory+'Ausgabe'); |
90 | end; |
88 | end; |
91 | end; |
89 | end; |
92 | 90 | ||
93 | procedure TMainForm.c02t03(von, an: string); |
91 | procedure TMainForm.c02t03(von, an: string); |
94 | var |
92 | var |
95 | daten: textfile; |
93 | daten: textfile; |
96 | lev, i, j: integer; |
94 | lev, i, j: integer; |
97 | ergebnis, temp: string; |
95 | ergebnis, temp: string; |
98 | begin |
96 | begin |
99 | for lev := 1 to 999 do |
97 | for lev := 1 to 999 do |
100 | begin |
98 | begin |
101 | gauge.Position := gauge.Position + 1; |
99 | gauge.Position := gauge.Position + 1; |
102 | if fileexists(von+'\Lev'+inttostr(lev)+'A1.sav') then |
100 | if fileexists(von+'\Lev'+inttostr(lev)+'A1.sav') then |
103 | begin |
101 | begin |
104 | m[1].loadfromfile(von+'\Lev'+inttostr(lev)+'A1.sav'); |
102 | m[1].loadfromfile(von+'\Lev'+inttostr(lev)+'A1.sav'); |
105 | m[2].loadfromfile(von+'\Lev'+inttostr(lev)+'A2.sav'); |
103 | m[2].loadfromfile(von+'\Lev'+inttostr(lev)+'A2.sav'); |
106 | m[3].loadfromfile(von+'\Lev'+inttostr(lev)+'A3.sav'); |
104 | m[3].loadfromfile(von+'\Lev'+inttostr(lev)+'A3.sav'); |
107 | m[4].loadfromfile(von+'\Lev'+inttostr(lev)+'A4.sav'); |
105 | m[4].loadfromfile(von+'\Lev'+inttostr(lev)+'A4.sav'); |
108 | m[5].loadfromfile(von+'\Lev'+inttostr(lev)+'A5.sav'); |
106 | m[5].loadfromfile(von+'\Lev'+inttostr(lev)+'A5.sav'); |
109 | m[1].strings[0]:='-624'; |
107 | m[1].strings[0]:='-624'; |
110 | if fileexists(an+'\Lev'+inttostr(lev)+'A6.sav') then |
108 | if fileexists(an+'\Lev'+inttostr(lev)+'A6.sav') then |
111 | begin |
109 | begin |
112 | assignfile(daten, an+'\Lev'+inttostr(lev)+'A6.sav'); |
110 | assignfile(daten, an+'\Lev'+inttostr(lev)+'A6.sav'); |
113 | reset(daten); |
111 | reset(daten); |
114 | readln(daten, ergebnis); |
112 | readln(daten, ergebnis); |
115 | temp:=ergebnis; |
113 | temp:=ergebnis; |
116 | closefile(daten); |
114 | closefile(daten); |
117 | end |
115 | end |
118 | else |
116 | else |
119 | begin |
117 | begin |
120 | temp:='30000'; |
118 | temp:='30000'; |
121 | end; |
119 | end; |
122 | assignfile(daten, an+'\Level '+inttostr(lev)+'.lev'); |
120 | assignfile(daten, an+'\Level '+inttostr(lev)+'.lev'); |
123 | rewrite(daten); |
121 | rewrite(daten); |
124 | append(daten); |
122 | append(daten); |
125 | writeln(daten, '; SpaceMission 0.3'); |
123 | writeln(daten, '; SpaceMission 0.3'); |
126 | writeln(daten, temp); |
124 | writeln(daten, temp); |
127 | for j := 0 to m[1].count-2 do |
125 | for j := 0 to m[1].count-2 do |
128 | begin |
126 | begin |
129 | for i := 0 to m[1].count-2 do |
127 | for i := 0 to m[1].count-2 do |
130 | begin |
128 | begin |
131 | if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then |
129 | if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then |
132 | begin |
130 | begin |
133 | m[1].exchange(i, i+1); |
131 | m[1].exchange(i, i+1); |
134 | m[2].exchange(i, i+1); |
132 | m[2].exchange(i, i+1); |
135 | m[3].exchange(i, i+1); |
133 | m[3].exchange(i, i+1); |
136 | m[4].exchange(i, i+1); |
134 | m[4].exchange(i, i+1); |
137 | m[5].exchange(i, i+1); |
135 | m[5].exchange(i, i+1); |
138 | end; |
136 | end; |
139 | end; |
137 | end; |
140 | end; |
138 | end; |
141 | for i := 0 to m[3].count-1 do |
139 | for i := 0 to m[3].count-1 do |
142 | begin |
140 | begin |
143 | for j := 1 to 4 do |
141 | for j := 1 to 4 do |
144 | begin |
142 | begin |
145 | if j = 1 then writeln(daten, m[3].strings[i]); |
143 | if j = 1 then writeln(daten, m[3].strings[i]); |
146 | if j = 2 then writeln(daten, m[1].strings[i]); |
144 | if j = 2 then writeln(daten, m[1].strings[i]); |
147 | if j = 3 then writeln(daten, m[2].strings[i]); |
145 | if j = 3 then writeln(daten, m[2].strings[i]); |
148 | if j = 4 then writeln(daten, m[4].strings[i]); |
146 | if j = 4 then writeln(daten, m[4].strings[i]); |
149 | end; |
147 | end; |
150 | end; |
148 | end; |
151 | closefile(daten); |
149 | closefile(daten); |
152 | end; |
150 | end; |
153 | end; |
151 | end; |
154 | gauge.Position := 0; |
152 | gauge.Position := 0; |
155 | end; |
153 | end; |
156 | 154 | ||
157 | procedure TMainForm.c03t04(von, an: string); |
155 | procedure TMainForm.c03t04(von, an: string); |
158 | var |
156 | var |
159 | daten, daten2: textfile; |
157 | daten, daten2: textfile; |
160 | lev: integer; |
158 | lev: integer; |
161 | ergebniss: string; |
159 | ergebniss: string; |
162 | begin |
160 | begin |
163 | for lev := 1 to 999 do |
161 | for lev := 1 to 999 do |
164 | begin |
162 | begin |
165 | gauge.Position := gauge.Position + 1; |
163 | gauge.Position := gauge.Position + 1; |
166 | if fileexists(von+'\Level '+inttostr(lev)+'.lev') then |
164 | if fileexists(von+'\Level '+inttostr(lev)+'.lev') then |
167 | begin |
165 | begin |
168 | assignfile(daten, von+'\Level '+inttostr(lev)+'.lev'); |
166 | assignfile(daten, von+'\Level '+inttostr(lev)+'.lev'); |
169 | reset(daten); |
167 | reset(daten); |
170 | assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev'); |
168 | assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev'); |
171 | rewrite(daten2); |
169 | rewrite(daten2); |
172 | while not seekeof(daten) do |
170 | while not seekeof(daten) do |
173 | begin |
171 | begin |
174 | readln(daten, ergebniss); |
172 | readln(daten, ergebniss); |
175 | if ergebniss = '; SpaceMission 0.3' then |
173 | if ergebniss = '; SpaceMission 0.3' then |
176 | begin |
174 | begin |
177 | writeln(daten2, '; SpaceMission 0.4'); |
175 | writeln(daten2, '; SpaceMission 0.4'); |
178 | writeln(daten2, '; LEV-File'); |
176 | writeln(daten2, '; LEV-File'); |
179 | end |
177 | end |
180 | else |
178 | else |
181 | begin |
179 | begin |
182 | writeln(daten2, ergebniss); |
180 | writeln(daten2, ergebniss); |
183 | end; |
181 | end; |
184 | end; |
182 | end; |
185 | closefile(daten2); |
183 | closefile(daten2); |
186 | closefile(daten); |
184 | closefile(daten); |
187 | end; |
185 | end; |
188 | end; |
186 | end; |
189 | gauge.Position := 0; |
187 | gauge.Position := 0; |
190 | end; |
188 | end; |
191 | 189 | ||
192 | procedure TMainForm.c04t10(von, an: string); |
190 | procedure TMainForm.c04t10(von, an: string); |
193 | var |
191 | var |
194 | daten, daten2: textfile; |
192 | daten, daten2: textfile; |
195 | lev, z, act: integer; |
193 | lev, z, act: integer; |
196 | ergebnis: string; |
194 | ergebnis: string; |
197 | begin |
195 | begin |
198 | for lev := 1 to 999 do |
196 | for lev := 1 to 999 do |
199 | begin |
197 | begin |
200 | gauge.Position := gauge.Position + 1; |
198 | gauge.Position := gauge.Position + 1; |
201 | if fileexists(von+'\Level '+inttostr(lev)+'.lev') then |
199 | if fileexists(von+'\Level '+inttostr(lev)+'.lev') then |
202 | begin |
200 | begin |
203 | assignfile(daten, von+'\Level '+inttostr(lev)+'.lev'); |
201 | assignfile(daten, von+'\Level '+inttostr(lev)+'.lev'); |
204 | reset(daten); |
202 | reset(daten); |
205 | assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev'); |
203 | assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev'); |
206 | rewrite(daten2); |
204 | rewrite(daten2); |
207 | z := 0; |
205 | z := 0; |
208 | act := 0; |
206 | act := 0; |
209 | while not seekeof(daten) do |
207 | while not seekeof(daten) do |
210 | begin |
208 | begin |
211 | inc(z); |
209 | inc(z); |
212 | if z > 2 then inc(act); |
210 | if z > 2 then inc(act); |
213 | if act = 5 then act := 1; |
211 | if act = 5 then act := 1; |
214 | readln(daten, ergebnis); |
212 | readln(daten, ergebnis); |
215 | if ergebnis = '; SpaceMission 0.4' then |
213 | if ergebnis = '; SpaceMission 0.4' then |
216 | writeln(daten2, '; SpaceMission 1.0') |
214 | writeln(daten2, '; SpaceMission 1.0') |
217 | else |
215 | else |
218 | begin |
216 | begin |
219 | if (ergebnis = '30000') and (z = 3) then |
217 | if (ergebnis = '30000') and (z = 3) then |
220 | writeln(daten2, '1200') |
218 | writeln(daten2, '1200') |
221 | else |
219 | else |
222 | begin |
220 | begin |
223 | //if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then |
221 | //if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then |
224 | if (z < 4) or (z > 7) then |
222 | if (z < 4) or (z > 7) then |
225 | begin |
223 | begin |
226 | if act = 4 then |
224 | if act = 4 then |
227 | writeln(daten2, inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37)))) |
225 | writeln(daten2, inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37)))) |
228 | else |
226 | else |
229 | writeln(daten2, ergebnis); |
227 | writeln(daten2, ergebnis); |
230 | end; |
228 | end; |
231 | end; |
229 | end; |
232 | end; |
230 | end; |
233 | end; |
231 | end; |
234 | closefile(daten2); |
232 | closefile(daten2); |
235 | closefile(daten); |
233 | closefile(daten); |
236 | end; |
234 | end; |
237 | end; |
235 | end; |
238 | gauge.Position := 0; |
236 | gauge.Position := 0; |
239 | end; |
237 | end; |
240 | 238 | ||
241 | procedure TMainForm.FormCreate(Sender: TObject); |
239 | procedure TMainForm.FormCreate(Sender: TObject); |
242 | begin |
240 | begin |
243 | FDirectory := extractfilepath(paramstr(0)); |
241 | FDirectory := extractfilepath(paramstr(0)); |
244 | m[1] := TStringList.create; |
242 | m[1] := TStringList.create; |
245 | m[2] := TStringList.create; |
243 | m[2] := TStringList.create; |
246 | m[3] := TStringList.create; |
244 | m[3] := TStringList.create; |
247 | m[4] := TStringList.create; |
245 | m[4] := TStringList.create; |
248 | m[5] := TStringList.create; |
246 | m[5] := TStringList.create; |
249 | end; |
247 | end; |
250 | 248 | ||
251 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |
249 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |
252 | begin |
250 | begin |
253 | m[1].Free; |
251 | m[1].Free; |
254 | m[2].Free; |
252 | m[2].Free; |
255 | m[3].Free; |
253 | m[3].Free; |
256 | m[4].Free; |
254 | m[4].Free; |
257 | m[5].Free; |
255 | m[5].Free; |
258 | end; |
256 | end; |
259 | 257 | ||
260 | procedure TMainForm.Button1Click(Sender: TObject); |
258 | procedure TMainForm.Button1Click(Sender: TObject); |
261 | begin |
259 | begin |
262 | shellexecute(handle, 'open', pchar(FDirectory+'Eingabe\'), '', '', 1); |
260 | shellexecute(handle, 'open', pchar(FDirectory+'Eingabe\'), '', '', 1); |
263 | end; |
261 | end; |
264 | 262 | ||
265 | procedure TMainForm.Button2Click(Sender: TObject); |
263 | procedure TMainForm.Button2Click(Sender: TObject); |
266 | begin |
264 | begin |
267 | shellexecute(handle, 'open', pchar(FDirectory+'Ausgabe\'), '', '', 1); |
265 | shellexecute(handle, 'open', pchar(FDirectory+'Ausgabe\'), '', '', 1); |
268 | end; |
266 | end; |
269 | 267 | ||
270 | procedure TMainForm.Button3Click(Sender: TObject); |
268 | procedure TMainForm.Button3Click(Sender: TObject); |
271 | begin |
269 | begin |
272 | shellexecute(handle, 'open', pchar(FDirectory+'Levels\'), '', '', 1); |
270 | shellexecute(handle, 'open', pchar(FDirectory+'Levels\'), '', '', 1); |
273 | end; |
271 | end; |
274 | 272 | ||
275 | end. |
273 | end. |
276 | 274 | ||
277 | 275 |