ΠΠΎΠ΄ΡΠ»ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°
Π ΠΏΡΠΎΠ΅ΠΊΡ Π²Ρ
ΠΎΠ΄ΡΡ 6 ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΈ 3 ΡΠΎΡΠΌΡ. ΠΠ»Π°Π²Π½ΡΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ MainUnit, ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΠΈΠΉ Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ Form1. Π ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΎΠΏΠΈΡΠ°Π½ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π΄Π»Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ ΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΠΎΡΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΠΌΠΎΠ΄ΡΠ»ΡΠΌΠΈ, ΡΠΎΡΠΌΠ°ΠΌΠΈ ΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Π΄ΡΡΠ³ΠΈΠ· ΠΊΠ»Π°ΡΡΠΎΠ².
Π ΠΌΠΎΠ΄ΡΠ»ΡΡ
InfoUnit ΠΎΠΏΠΈΡΠ°Π½Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π΄Π»Ρ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΡ/ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ
Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ, ΠΌΠΎΠ΄ΡΠ»Ρ House ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΠ°Π±ΠΎΡΡ ΡΠΎΡΠΌΡ Form2 ΠΊΠΎΡΠΎΡΠ°Ρ, Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΡΠ°ΡΡΡ ΡΠ°Π±Π»ΠΈΡ, WorkFile
— ΡΠ°Π·ΡΠ΅ΡΠ°Π΅Ρ Ρ
ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΈ ΡΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ
Ρ Π΄ΠΈΡΠΊΠ°/Π½Π° Π΄ΠΈΡΠΊt, TypesUnit ΠΎΠΏΠΈΡΡΠ²Π°Π΅Ρ ΡΡΡΡΠΊΡΡΡΡ Π΄Π°Π½Π½ΡΡ
, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ Π² Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, AboutUnit ΠΈ Form3 ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡ Π²ΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΈ ΡΠ΅ΠΌΠ΅ ΠΊΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°, Sort ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠΈΠΉ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΡ ΡΠΏΠΈΡΠΊΠ°.
1.3 ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ
Π Π΄Π°Π½Π½ΠΎΠΌ ΠΊΡΡΡΠΎΠ²ΠΎΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΊΠ»Π°ΡΡΠΎΠ².
ΠΠ»Π°ΡΡ1 — TForm1.
ΠΠ»Π°ΡΡ ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠΎΠ»Ρ:
FirstTAp, CurrentTAp: TAp;
FirstTFa, CurrentTFa: TFa;
FirstTRo, CurrentTRo: TRo;
FirstTSo, CurrentTSo: TSo: ΠΏΠΎΠ»Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΡΠΎ ΡΡΡΡΠΊΡΡΡΠΎΠΉ.
ΠΠ»Π°ΡΡ ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ:
procedure TablDom () ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΠΎΠΌ.
procedure TablGK () — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°ΠΏΠΊΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΠΠ.
procedure TablFam () — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°ΠΏΠΊΠΈ ΡΠ°Π±Π»ΠΈΡΡ Π‘Π΅ΠΌΠ΅ΠΉ.
procedure TablKvart () — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΡΡΠΈΠ±ΡΡΠΎΠ² ΠΊΠ²Π°ΡΡΠΈΡ.
procedure TablSearch () — ΠΏΡΠΎΡΠ΅Π΄ΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°ΠΏΠΊΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΠΏΠΎΠΈΡΠΊΠ°.
procedure TablSort () — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°ΠΏΠΊΠΈ ΡΠ°Π±Π»ΠΈΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ.
procedure OpenF () ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄Π΅Π»Π°ΡΡΠ°Ρ ΠΏΠ΅ΡΠ΅Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π½Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π°.
procedure CreateSort () ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΏΠΈΡΠΊΠ° Π΄Π»Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ.
procedure GridClear () ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΈΡΡΠΊΠΈ ΡΠΏΠΈΡΠΊΠΎΠ² (StringGrid).
function VvodEtaj (i: integer): real ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΡΠ°ΠΆΠ° ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΠΊΠ²Π°ΡΡΠΈΡΡ.
procedure Button6Click (Sender: TObject) ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΡΠΆΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΠΌ ΠΊΠ»ΡΡΠ°ΠΌ.
procedure Button7Click (Sender: TObject) ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ.
procedure Button8Click (Sender: TObject) ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ Π² ΡΠΏΠΈΡΠΎΠΊ.