Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 306 |
// ************************************************************************* |
// ************************************************************************* |
| 307 |
constructor TGikoSys.Create; |
constructor TGikoSys.Create; |
| 308 |
begin |
begin |
| 309 |
|
Inherited; |
| 310 |
FSetting := TSetting.Create; |
FSetting := TSetting.Create; |
| 311 |
FDolib := TDolib.Create; |
FDolib := TDolib.Create; |
| 312 |
FAWKStr := TAWKStr.Create(nil); |
FAWKStr := TAWKStr.Create(nil); |
| 357 |
finally |
finally |
| 358 |
FileList.Free; |
FileList.Free; |
| 359 |
end; |
end; |
| 360 |
FGikoMessage.Free; |
FreeAndNil(FGikoMessage); |
| 361 |
FBayesian.Free; |
FreeAndNil(FBayesian); |
| 362 |
FSelectResFilter.Free; |
FreeAndNil(FSelectResFilter); |
| 363 |
FAbon.Free; |
FreeAndNil(FAbon); |
| 364 |
FAWKStr.Free; |
FreeAndNil(FAWKStr); |
| 365 |
FDolib.Free; |
FreeAndNil(FDolib); |
| 366 |
FSetting.Free; |
FreeAndNil(FSetting); |
| 367 |
inherited; |
inherited; |
| 368 |
end; |
end; |
| 369 |
|
|
| 3473 |
|
|
| 3474 |
finalization |
finalization |
| 3475 |
if GikoSys <> nil then begin |
if GikoSys <> nil then begin |
| 3476 |
GikoSys.Free; |
FreeAndNil(GikoSys); |
|
GikoSys := nil; |
|
| 3477 |
end; |
end; |
| 3478 |
end. |
end. |
|
|
Legend:
| Removed from v.1.236 |
|
| changed lines |
| |
Added in v.1.237 |
|
|
|