Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π΄Π»Ρ ΠΠ. ΠΠΎΡΠ°Π±ΠΎΡΠΊΠ° ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ°. ΠΠ΄ΡΠ°Π²ΡΡΠ²ΡΠΉΡΠ΅! ΠΠ°Π»ΠΈ Π½Π° ΡΡΡΠ°Π½ΠΎΠ²ΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠ·ΡΠΊ Delphi), ΠΎΠ΄Π½Π°ΠΊΠΎ Π΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΠ±Π»Π΅ΠΌ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΊΠΎΠ΄Π° Π²ΡΡΠ²Π΅ΡΠΈΠ²Π°ΡΡΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ. ΠΠ½Π΅ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΡ Π²Π°ΡΠΈΠ°Π½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌ + ΠΊΡΠ°ΡΠΊΠΎΠ΅ ΠΎΠ±ΡΡΡΠ½Π΅Π½ΠΈΠ΅, ΠΏΠΎΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π΅ ΡΠ°Π±ΠΎΡΠ°Π»Π° Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎ Π΄ΠΎ ΡΡΠΎΠ³ΠΎ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΡΠΎΡΠΌΠ°ΡΠ΅ .doc). 1. ΠΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΊΠΎΠ΄Π° ΡΠ΅ΡΠ΅Π· RAD Studio (Delphi 12) ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠΈΠ±ΠΊΠ° Error Reading Form MainForm (Class TCountourClass not found. Ignore the error and continue?); 2. Π ΡΠ»ΡΡΠ°Π΅ ΠΎΡΠΊΡΡΡΠΈΡ ΠΊΠΎΠ΄Π° Π΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ: F2063, E2250, E2066, E2003 3. ΠΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ ΡΠΎΡΡΠ°Π²ΠΈΡΠ΅Π»Ρ ΠΊΠΎΠ΄Π° Π±ΡΠ»ΠΈ Π½Π°ΠΏΠΈΡΠ°Π½Ρ Π½Π° ΡΡΡΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅, Π½Π° ΠΌΠΎΠ΅ΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΊΠ°ΠΊ Β«Aeaaiay oidia idiadaiiuΒ». 4. ΠΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ Π½Π°ΡΠ°Π»Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠΈΠ±ΠΊΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊΠΎΠ³Π΄Π° Ρ Π²Π²ΠΎΠΆΡ 1, Π²ΡΡ
ΠΎΠ΄ΠΈΡ ΠΎΡΠΈΠ±ΠΊΠ° Β«Π’ΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΡΡ ΠΎΡ 0 Π΄ΠΎ 99%!Β», ΡΠΈΡΠ»ΠΎ Π² ΡΡΡΠΎΠΊΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π½Π° 1,0000. Π Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΠΎΡΠΈΠ±ΠΊΠΈ Ρ Π½Π°ΠΆΠΈΠΌΠ°Ρ ΠΠ, ΡΠΈΡΠ»ΠΎ ΠΎΠΏΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π½Π° 10000 ΠΈ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠΈΠ±ΠΊΠ° Β«ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ 0-99%!Β». ΠΠΎΠ΄: procedure TfrmStructureList.edtIChange(Sender: TObject); var i : integer; d : Double; s : string; begin s := edtI.Text; for I := 1 to length(s) do if s[i] in ['0'..'9','.'] then else begin MessageBox(0,PWideChar('Oieuei oeodu ni cia/aieai (0 - 99%)!'),0,0); Delete(s, i, 1); edtI.Text := s; end; if length(s) > 0 then begin d := StrToFloat(s); if (d < 0) or (d >= 100) then begin MessageBox(0,PWideChar('Aeaiacii (0 - 99%)!'),0,0); Delete(s, 1, length(s)); edtI.Text := s; end; end; end;.