ТЕКСТ ПРОГРАММЫ

Файл Project1.dpr

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ExtCtrls, ToolWin, ComCtrls, ImgList, Printers,

DBCtrls, Registry, IniFiles;

type

TForm1 = class(TForm)

memo1: TMemo;

MainMenu1: TMainMenu;

OpenDialog1: TOpenDialog;

FontDialog1: TFontDialog;

PrinterSetupDialog1: TPrinterSetupDialog;

PrintDialog1: TPrintDialog;

fayl: TMenuItem;

Nastroyki: TMenuItem;

fond: TMenuItem;

Printery: TMenuItem;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ImageList1: TImageList;

Parametry: TMenuItem;

ToolButton2: TToolButton;

SaveDialog1: TSaveDialog;

ToolButton3: TToolButton;

Label1: TLabel;

Help: TMenuItem;

Versia: TMenuItem;

Vyhod: TMenuItem;

Save: TMenuItem;

Open: TMenuItem;

Print: TMenuItem;

ToolButton4: TToolButton;

ToolButton6: TToolButton;

NomerKadra: TCheckBox;

Probel: TCheckBox;

Pustostr: TCheckBox;

PanelSostoyaniya: TStatusBar;

Indikator: TProgressBar;

ToolButton9: TToolButton;

ReplaceDialog1: TReplaceDialog;

Cancel: TButton;

Obrabotka: TButton;

Label2: TLabel;

Label3: TLabel;

Panel1: TPanel;

Panel2: TPanel;

ToolButton5: TToolButton;

ToolButton8: TToolButton;

procedure ButPrinterClick(Sender: TObject);

procedure ButPechatClick(Sender: TObject);

procedure fondClick(Sender: TObject);

procedure PrinteryClick(Sender: TObject);

procedure PechatClick(Sender: TObject);

procedure ButParametrClick(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormCreate(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure ParametryClick(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure VersiaClick(Sender: TObject);

procedure VyhodClick(Sender: TObject);

procedure SaveClick(Sender: TObject);

procedure OpenClick(Sender: TObject);

procedure PrintClick(Sender: TObject);

procedure CancelClick(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton9Click(Sender: TObject);

procedure ReplaceDialog1Replace(Sender: TObject);

procedure ObrabotkaClick(Sender: TObject);

procedure memo1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

st = ' Параметры: '; // текст в строке состояния + в модуле 2

Code_Begin = 100;

var

Form1: TForm1;

Code_My, nach, oshibka, m, uslovie: Integer;

Code_Reg: longint;

proverka_sushesvovania_ini: byte;

reestra, reestrc, reestrb, reestrMy_Code, reestrReg_Code: integer;

reestrversia: string[20];

nach_period, Hac: integer;

Stroka: TStrings;

memo1mod: boolean;

I, J, I_sled, J_sled: real;

X_nast, X_pred, X_sled, Y_nast, Y_pred, Y_sled: real;

Z, A, Uvmmayak, K : real;

implementation

uses Unit2, Unit3, Unit5;

{$R *.dfm}

procedure TForm1.ButPrinterClick(Sender: TObject);

begin

PrinterSetupDialog1.Execute

end;

procedure TForm1.ButPechatClick(Sender: TObject);

begin

PrintDialog1.Execute

end;

procedure TForm1.FondClick(Sender: TObject);

begin

if FontDialog1.Execute then

Memo1.Font:= FontDialog1.Font;

end;

procedure TForm1.PrinteryClick(Sender: TObject);

begin

PrinterSetupDialog1.Execute

end;

procedure TForm1.PechatClick(Sender: TObject);

begin

ToolButton3Click(Sender);

end;

procedure TForm1.ButParametrClick(Sender: TObject);

begin

Form2.ShowModal;

end;

Procedure TForm1.FormResize( Sender: TObject); // Изменение размера формы

begin

Memo1.Left:= 10; // Положение слева

Memo1.Top:= 60; // Положение сверху

Memo1.Width:= Form1.ClientWidth-130; // Ширина

Memo1.Height:= Form1.ClientHeight-100; // Высота

NomerKadra.Left:= Form1.ClientWidth-15-NomerKadra.Width;

Probel.Left:= Form1.ClientWidth-15-Probel.Width;

Pustostr.Left:= Form1.ClientWidth-15-Pustostr.Width;

Cancel.Left:= Form1.ClientWidth-20-Cancel.Width;

Obrabotka.Left:= Form1.ClientWidth-20-Obrabotka.Width;

Label2.Left:= Form1.ClientWidth-40-Cancel.Width;

Label3.Left:= Form1.ClientWidth-40-Cancel.Width;

Panel1.Left:= Form1.ClientWidth-18-Panel1.Width;

Panel2.Left:= Form1.ClientWidth-18-Panel2.Width;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if Memo1mod then // Если поле Мемо1 изменилось

begin

CanClose:= MessageDlg(' Содержимое редактора изменилось '#10#13' Хотите сохранить данные?', mtConfirmation,[mbYes, mbNo], 0) = mrYes;

if CanClose then ToolButton2Click(Sender);

CanClose:= true;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

const

Reg_Code = 1234567890;

My_Code = 469103;

var

RegIni: TRegistry;

Ini: TIniFile;

data: TDatetime;

begin

DateSeparator:= '.';

DecimalSeparator:= '.';

ShortDateFormat:= 'dd/mm/yyyy';

memo1mod:= false;

reestrMy_Code:= 0;

reestrReg_Code:= 0;

data:= Date; // получаем сегодняшнюю дату

nach_period:= Trunc(data);

Ini:= TIniFile.Create('Nal.ini');

proverka_sushesvovania_ini:= Ini.ReadInteger('START', 'CountStart', 0);

if proverka_sushesvovania_ini = 0 then

begin

ini.WriteInteger('START', 'CountStart', 1);

ini.WriteDate('DateBegin', 'DateBegin', data); //в формате дд.мм.гггг

ini.WriteDate('DateEnd', 'DateEnd', data + 30); //в формате дд.мм.гггг

ini.WriteString('Versia', 'Versia', Application.Title);

ini.WriteInteger('CodeBegin', 'CodeBegin', Code_Begin);

ini.WriteInteger('Hac','Hac', nach_period);

end

else

begin

Code_My:= ini.ReadInteger('Code_My', 'Code_My', 0);

Code_Reg:= ini.ReadInteger('Code_Reg', 'Code_Reg', 0);

Hac:= Ini.ReadInteger('Hac','Hac',0);

end;

Ini.Free;

Form1.Caption:= Application.Title;

Form1.memo1.Clear;

Form1.PanelSostoyaniya.Panels[0].Text:= st + ' Не обрабатывать ';

Form1.Panel1.Caption:= '0';

Form1.Panel2.Caption:= '0';

RegIni:= TRegistry.Create;

RegIni.RootKey:= HKEY_LOCAL_MACHINE;

RegIni.OpenKey('Software\Naladchik', true);

if not RegIni.KeyExists('a') then // Если нет этого ключа то прописываем.

begin

RegIni.CreateKey('a');

RegIni.WriteInteger('a', 100);

RegIni.WriteString('Versia', Application.Title);

RegIni.WriteInteger('b', nach_period); // в формате 00000

RegIni.WriteInteger('c', nach_period + 30); // в формате 00000

RegIni.CloseKey;

RegIni.Free;

end;

RegIni:= TRegistry.Create;

RegIni.RootKey:= HKEY_LOCAL_MACHINE;

RegIni.OpenKey('Software\Naladchik', false);

reestra:= RegIni.ReadInteger('a');

reestrversia:= RegIni.ReadString('Versia');

reestrb:= RegIni.ReadInteger('b');

reestrc:= RegIni.ReadInteger('c');

if proverka_sushesvovania_ini = 2 then

begin

reestrMy_Code:= RegIni.ReadInteger('d');

reestrReg_Code:= RegIni.ReadInteger('e');

end;

RegIni.CloseKey;

RegIni.Free;

if Hac > nach_period then nach_period:= Hac // защита от перевода даты

else Hac:= nach_period;

Ini:= TIniFile.Create('Nal.ini');

ini.WriteInteger('Hac', 'Hac', Hac);

ini.Free;

// Code_My и Code_Reg из ini файла

if (Code_My = My_Code) and (Code_Reg = Reg_Code) and (reestrMy_Code = My_Code) and (reestrReg_Code = Reg_Code)

then Form1.Caption:= Application.Title + '(Зарегистрированная версия)'

else

begin

if reestrc > nach_period then

Form1.Caption:= Application.Title + ' (Осталось '+IntToStr(reestrc - nach_period)+' дней)';

if reestrc <= nach_period then

begin

ShowMessage('Демонстрационный период закончен' + #13 + 'За регистрацией обратитесь к разработчику'+#13'dimasoft1@mail.ru');

Halt(1);

end;

end;

end;

procedure TForm1.ToolButton1Click(Sender: TObject);

var

kol: integer;

begin

Indikator.Position:= 0;

Form1.PanelSostoyaniya.Panels[1].Text:= '';

Memo1.Clear;

if OpenDialog1.Execute then

begin

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

label1.Caption:= OpenDialog1.FileName;

kol:= Memo1.Lines.Count;

Panel2.Caption:= '0';

Panel1.Caption:= IntToStr(kol - 1);

end;

Form2.PC_VM.Enabled:= true;

Form2.PC_MAYAK.Enabled:= true;

Form2.VM_MAYAK.Enabled:= true;

Form2.MAYAK_VM.Enabled:= true;

Form2.FormActivate(Sender);

end;

procedure TForm1.ParametryClick(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.ToolButton2Click(Sender: TObject);

begin

if SaveDialog1.Execute then

begin

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Memo1.Modified:= false;

end;

end;

procedure TForm1.ToolButton3Click(Sender: TObject); // Печать

var

line: System.TextFile;

i: integer;

begin

if PrintDialog1.Execute then

begin

AssignPrn(line);

rewrite(line);

Printer.Canvas.Font:= Memo1.Font;

for i:= 0 to memo1.Lines.Count-1 do writeln(line,' ', Memo1.Lines[i]);

System.CloseFile(line);

end;

end;

procedure TForm1.VersiaClick(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.VyhodClick(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.SaveClick(Sender: TObject);

begin

ToolButton2Click(Sender);

end;

procedure TForm1.OpenClick(Sender: TObject);

begin

ToolButton1Click(Sender);

end;

procedure TForm1.PrintClick(Sender: TObject);

begin

ToolButton3Click(Sender);

end;

procedure TForm1.CancelClick(Sender: TObject);

begin

Form1.Close;

end;

procedure NaytiKoordinatu(kadr: string; koordinata: char; var poluchenaya: string);

var

p : integer;

poz_10: string[100];

per : string[10];

r: real;

begin

per:=' ';

kadr:= Concat(kadr, ' ');

nach:= pos(koordinata,kadr);

nach:= Succ(nach);

poz_10:= copy(kadr, nach, 100);

val(poz_10,r,oshibka);

for p:=1 to oshibka - 1 do

per[p]:= poz_10[p];

if poz_10 = ' ' then oshibka:= 1;

poluchenaya:= TrimRight(per);

end;

function DobavitTochku( f: string): string; // Добавляет точку, если её нет

begin

if pos('.', f) = 0

then f:= Concat(f, '.');

Result:= f;

end;

procedure Podhod_G41_G42_radius;

begin // Х и Y уже найдены

if pos('G3', Stroka.Strings[Succ(m)]) <> 0 then

begin

if (I > 0) and (J >= 0) then

begin

I_sled:= 1;

J_sled:= -1;

exit;

end;

if (I < 0) and (J <= 0) then

begin

I_sled:= -1;

J_sled:= 1;

exit;

end;

if (I <= 0) and (J > 0) then

begin

I_sled:= 1;

J_sled:= 1;

exit;

end;

if (I >= 0) and (J < 0) then

begin

I_sled:= -1;

J_sled:= -1;

exit;

end;

end;

if pos('G2', Stroka.Strings[Succ(m)]) <> 0 then

begin

if (I >= 0) and (J > 0) then

begin

I_sled:= -1;

J_sled:= 1;

exit;

end;

if (I <= 0) and (J < 0) then

begin

I_sled:= 1;

J_sled:= -1;

exit;

end;

if (I < 0) and (J >= 0) then

begin

I_sled:= -1;

J_sled:= -1;

exit;

end;

if (I > 0) and (J <= 0) then

begin

I_sled:= 1;

J_sled:= 1;

exit;

end;

end;

end;

// Преобразует строку, удаляет и вставляет подстроку ВМ

function preobrazovanieVM( vhod_v_preobrazovanie: real ;var kadr: string): string;

var

stroka: string[10];

begin

delete(kadr,nach,oshibka-1);

stroka:= FloatToStr(vhod_v_preobrazovanie); // Преобразуем в число строку

insert(stroka, kadr, nach);

end;

// Преобразует строку, удаляет и вставляет подстроку МАЯК

function preobrazovanieMAYAK( vhod_v_preobrazovanie: real ;var kadr: string): string;

var

stroka: string[10];

begin

delete(kadr,nach,oshibka-1);

if vhod_v_preobrazovanie <> 0 then

begin

stroka:= FloatToStrF(vhod_v_preobrazovanie, fffixed, 12, 3); // Преобразуем в число строку

vhod_v_preobrazovanie:= StrToFloat(stroka); // Был глюк при конвертации

stroka:= FloatToStr(vhod_v_preobrazovanie); // Сейчас вроде работает

stroka:= DobavitTochku(stroka); // Добавляет точку, если её нет

end

else stroka:= '0'; // вставляем без точки

insert(stroka, kadr, nach);

end;

procedure Podhod_G41_G42_line;

var

str: String;

begin

str:= stroka.Strings[Succ(m)];

if Pos('X', str) <> 0 then

begin

NaytiKoordinatu(str, 'X', str);

X_sled:= StrToFloat(str);

end

else

begin

if (Form2.PC_VM.Checked) or (Form2.MAYAK_VM.Checked) then

X_sled:= X_nast / 1000

else

X_sled:= X_nast;

end;

str:= stroka.Strings[Succ(m)];

if Pos('Y', str) <> 0 then

begin

NaytiKoordinatu(str, 'Y', str);

Y_sled:= StrToFloat(str);

end

else

begin

if (Form2.PC_VM.Checked) or (Form2.MAYAK_VM.Checked) then

Y_sled:= Y_pred / 1000

else

Y_sled:= Y_nast;

end;

if (Form2.PC_VM.Checked) or (Form2.MAYAK_VM.Checked) then

begin

X_sled:= X_sled * 1000;

Y_sled:= Y_sled * 1000;

X_sled:= X_sled - X_nast;

Y_sled:= Y_sled - Y_nast;

end

else

begin

X_sled:= X_sled - X_nast;

Y_sled:= Y_sled - Y_nast;

end;

end;

function FindVstavki(koordinata: char; kadr: string): integer;

begin

case koordinata of

'X': begin

if pos('Y', kadr) <> 0 then Result:= pos('Y', kadr)

else if pos('I', kadr) <> 0 then Result:= pos('I', kadr)

else if pos('J', kadr) <> 0 then Result:= pos('J', kadr)

else if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

else Result:= Length(kadr) + 1;

end;

'Y': begin

if pos('I', kadr) <> 0 then Result:= pos('I', kadr)

else if pos('J', kadr) <> 0 then Result:= pos('J', kadr)

else if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

else Result:= Length(kadr) + 1;

end;

'I': begin

if pos('J', kadr) <> 0 then Result:= pos('J', kadr)

else if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

else Result:= Length(kadr) + 1;

end;

'J': begin

if pos('F', kadr) <> 0 then Result:= pos('F', kadr)

else if pos('M', kadr) <> 0 then Result:= pos('M', kadr)

else Result:= Length(kadr) + 1;

end;

else

Result:= Length(kadr) + 1;

end;

end;

procedure TForm1.ObrabotkaClick(Sender: TObject);

label

metka;

var

kol, buf: integer;

Proc, proci, u: integer;

vyh: string;

PolChisla_1Proc, uvel: real;

bufer: string;

Priz_pusto_memo: boolean;

procedure DelProbel(var kadr: string); // Удаление пробелов

var

k: integer;

begin

while pos(' ', kadr) <> 0 do

begin

k:= pos(' ', kadr);

delete(kadr, k, 1);

end;

end;

procedure pustostroka;

begin

stroka.Delete(m); // Удаляем пустую строку

Dec(kol); // Уменьшаем кол-во строк на 1

Dec(m); // Уменьшаем на одну стороку

end;

procedure nomerkadra(var kadr: string);

var

error, nach, x: integer;

poz_N7: string [10];

begin

poz_N7:= ' ';

nach:= pos('N',kadr); // Номер позиции 'N'

if nach <> 0 then // Позиция найдена

begin

Inc(nach); // Наращиваем на 1

poz_N7:= copy(kadr, nach, 10);

val(poz_N7,x,error); // проверяем на ошибку

if error = 1 then

else

begin

delete(kadr,nach,error-1); // Удаляем старое значение

Inc(buf); // Наращиваем кадр на 1

insert(IntToStr(buf), kadr, nach); // Вставляем новое число

end;

end;

end;

Procedure PC_MAYAK(var kadr: string);

var

I_est: boolean;

st: string;

s: string[10];

begin

if (pos('%', kadr) <> 0) or (pos('$', kadr) <> 0) then exit;

I_est:= False;

if (pos('I',kadr) <> 0) or (pos('J',kadr) <> 0) then I_est:= true;

if pos('X',kadr) <> 0 then

begin

NaytiKoordinatu(kadr,'X', vyh);

if oshibka <> 1 then

begin

X_nast:= StrToFloat(vyh);

PreobrazovanieMayak(X_nast, kadr); // не было точки

end;

end

else

if I_est then // Добавление Х Если нет

begin

uslovie:= FindVstavki('X', kadr);

s:= FloatToStr(X_nast);

if X_nast <> 0 then s:= DobavitTochku(s);

insert(Concat('X', s), kadr, uslovie);

end;

if pos('Y',kadr) <> 0 then

begin

NaytiKoordinatu(kadr,'Y', vyh);

if oshibka <> 1 then

begin

Y_nast:= StrToFloat(vyh);

PreobrazovanieMayak(Y_nast, kadr) // не было точки

end;

end

else

if I_est then // Добавление Y Если нет

begin

uslovie:= FindVstavki('Y', kadr);

s:= FloatToStr(Y_nast);

if Y_nast <> 0 then s:= DobavitTochku(s);

insert(Concat('Y',s), kadr, uslovie);

end; // Подходы

if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

begin

try

s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

except // так не должно быть это ошибка оператора

on EStringListError do // добавляем пустую строку и исключаем ошибку

stroka.Add('');

end;

if pos('X', kadr) = 0 then

begin // Вставка Х и Y если нет

uslovie:= FindVstavki('X', kadr);

s:= FloatToStr(X_nast); // В позиции X Y I J F M

if X_nast <> 0 then s:= DobavitTochku(s);

Insert('X' + s, kadr, uslovie);

end;

if pos('Y', kadr) = 0 then

begin

uslovie:= FindVstavki('Y', kadr);

s:= FloatToStr(Y_nast);

if Y_nast <> 0 then s:= DobavitTochku(s);

Insert('Y' + s, kadr, uslovie);

end;

if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

then

begin

Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

I:= StrToFloat(st);

Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

J:= StrToFloat(st);

Podhod_G41_G42_radius;

J:= J + Y_nast;

if (I_sled = -1) and (J > 0) then J:= -J; // ЛОГИЧЕСКИЙ ПЕРЕСЧЁТ

if (I_sled = 1) and (J < 0) then J:= -J;

I:= I + X_nast;

if(J_sled = -1) and (I > 0) then I:= -I;

if(J_sled = 1) and (I < 0) then I:= -I;

if pos('J', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'J', st);

PreobrazovanieMayak(I, kadr);

end

else

begin

uslovie:= FindVstavki('J', kadr);

Insert('J' + FloatToStr(I), kadr, uslovie);

end;

if pos('I', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'I', st);

PreobrazovanieMayak(J, kadr);

end

else

begin

uslovie:= FindVstavki('I', kadr);

Insert('I' + FloatToStr(J), kadr, uslovie);

end;

X_pred:= X_nast;

Y_pred:= Y_nast;

exit;

end

else

begin

Podhod_G41_G42_line; // ЛИНЕЙНЫЕ ПОДХОДЫ РАСЧЁТ

if pos('I', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'I', st);

PreobrazovanieMayak(X_sled, kadr);

end

else

begin

uslovie:= FindVstavki('I', kadr);

Insert('I' + FloatToStr(X_sled) + '.', kadr, uslovie);

end;

if pos('J', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'J', st);

PreobrazovanieMayak(Y_sled, kadr);

end

else

begin

uslovie:= FindVstavki('J', kadr);

Insert('J' + FloatToStr(Y_sled) + '.', kadr, uslovie);

end;

exit;

end;

end;

uslovie:= pos('I',kadr); // расчёт радиусов

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'I',vyh);

if oshibka = 1 then

else

begin

I:= StrToFloat(vyh);

I:= X_pred + I;

preobrazovanieMAYAK(I,kadr);

end;

end;

uslovie:= pos('J',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'J',vyh);

if oshibka = 1 then

else

begin

J:= StrToFloat(vyh);

J:= Y_pred + J;

preobrazovanieMAYAK(J,kadr);

end;

end;

X_pred:= X_nast;

Y_pred:= Y_nast;

end;

Function VM_MAYAK(var kadr: string): string;

var

I_est: boolean;

s, st: string;

begin

if (pos('%', kadr) <> 0) or (pos('$', kadr) <> 0) then exit;

I_est:= False;

if (pos('I',kadr) <> 0) or (pos('J',kadr) <> 0) then I_est:= true;

uslovie:= pos('X',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'X', vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

X_nast:= StrToFloat(vyh) / 1000;

preobrazovanieMAYAK(X_nast,kadr);

end;

end

else

if I_est = true then // Добавление Х Если нет

begin

uslovie:= pos('Y',kadr);

insert('X'+ vyh, kadr, uslovie);

end;

uslovie:= pos('Y',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'Y', vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

Y_nast:= StrToFloat(vyh) / 1000;

preobrazovanieMAYAK(Y_nast,kadr);

end;

end

else

if I_est = true then // Добавление Y Если нет

begin

uslovie:= pos('I',kadr);

insert('Y' + vyh, kadr, uslovie);

end;

if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

begin

try

s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

except

on EStringListError do // добавляем пустую строку и исключаем ошибку

stroka.Add('');

end;

if pos('X', kadr) = 0 then

begin // Вставка Х и Y если нет

uslovie:= FindVstavki('X', kadr);

s:= FloatToStr(X_nast); // В позиции X Y I J F M

if X_nast <> 0 then s:= DobavitTochku(s);

Insert('X' + s, kadr, uslovie);

end;

if pos('Y', kadr) = 0 then

begin

uslovie:= FindVstavki('Y', kadr);

s:= FloatToStr(Y_nast);

if Y_nast <> 0 then s:= DobavitTochku(s);

Insert('Y' + s, kadr, uslovie);

end;

if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

then

begin

Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

I:= StrToFloat(st);

Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

J:= StrToFloat(st);

Podhod_G41_G42_radius;

J:= J / 1000;

J:= J + Y_nast;

if (I_sled = -1) and (J > 0) then J:= -J;

if (I_sled = 1) and (J < 0) then J:= -J;

I:= I / 1000;

I:= I + X_nast;

if(J_sled = -1) and (I > 0) then I:= -I;

if(J_sled = 1) and (I < 0) then I:= -I;

if pos('J', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'J', st);

PreobrazovanieMayak(I, kadr);

end

else

begin

uslovie:= FindVstavki('J', kadr);

Insert('J' + FloatToStr(I), kadr, uslovie);

end;

if pos('I', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'I', st);

PreobrazovanieMayak(J, kadr);

end

else

begin

uslovie:= FindVstavki('I', kadr);

Insert('I' + FloatToStr(J), kadr, uslovie);

end;

X_pred:= X_nast;

Y_pred:= Y_nast;

exit;

end

else

begin // Линейный подход

st:= Stroka.Strings[Succ(m)];

uslovie:= Pos('X', st);

if uslovie <> 0 then

begin

NaytiKoordinatu(st, 'X', st);

X_sled:= StrToFloat(st) / 1000;

X_sled:= X_sled - X_nast;

end

else X_sled:= 0; // Если нет в кадре то 0

st:= stroka.Strings[Succ(m)];

uslovie:= Pos('Y', st);

if uslovie <> 0 then

begin

NaytiKoordinatu(st, 'Y', st);

Y_sled:= StrToFloat(st) / 1000;

Y_sled:= Y_sled - Y_nast;

end

else Y_sled:= 0;

if pos('I', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'I', st);

PreobrazovanieMayak(X_sled, kadr);

end

else

begin

uslovie:= FindVstavki('I', kadr);

Insert('I' + FloatToStr(X_sled) + '.', kadr, uslovie);

end;

if pos('J', kadr) <> 0 then

begin

NaytiKoordinatu(kadr, 'J', st);

PreobrazovanieMayak(Y_sled, kadr);

end

else

begin

uslovie:= FindVstavki('J', kadr);

Insert('J' + FloatToStr(Y_sled) + '.', kadr, uslovie);

end;

exit;

end;

end;

uslovie:= pos('Z',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'Z', vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

Z:= StrToFloat(vyh) / 1000;

preobrazovanieMAYAK(Z,kadr);

end;

end;

uslovie:= pos('I',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'I',vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

I:= StrToFloat(vyh) / 1000;

I:= X_pred + I;

preobrazovanieMAYAK(I,kadr);

end;

end;

uslovie:= pos('J',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'J',vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

J:= StrToFloat(vyh) / 1000;

J:= Y_Pred + J;

preobrazovanieMAYAK(J,kadr);

end;

end;

uslovie:= pos('U',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'U', vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

Uvmmayak:= StrToFloat(vyh) / 1000;

preobrazovanieMAYAK(Uvmmayak,kadr);

end;

end;

uslovie:= pos('K',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'K', vyh);

if oshibka = 1 then

else

begin

vyh:= TrimRight(vyh); // Удаляем лишние пробелы справа

K:= StrToFloat(vyh) / 1000;

preobrazovanieMAYAK(K,kadr);

end;

end;

X_pred:= X_nast;

Y_pred:= Y_nast;

end;

Function MAYAK_VM(var kadr: string): string;

var

I_est: boolean;

uslovie: integer;

strok: string[10];

s, st: string;

begin

if pos('%', kadr) <> 0 then exit;

if pos('$', kadr) <> 0 then exit;

I_est:= False;

uslovie:= pos('I',kadr);

if uslovie <> 0 then I_est:= true;

uslovie:= pos('X',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'X',vyh);

if oshibka = 1 then

else

begin

X_nast:= StrToFloat(vyh) * 1000;

X_nast:= Int(X_nast); // Отбрасываем дробную часть

preobrazovanieVM(X_nast,kadr);

end;

end

else

if I_est then

begin

uslovie:= pos('Y',kadr);

strok:= FloatToStr(X_pred); // Преобразуем в число строку

insert('X' + strok, kadr, uslovie);

end;

uslovie:= pos('Y',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'Y',vyh);

if oshibka = 1 then

else

begin

Y_nast:= StrToFloat(vyh) * 1000;

Y_nast:= Int(Y_nast); // Отбрасываем дробную часть

preobrazovanieVM(Y_nast,kadr);

end;

end

else

if I_est then

begin

uslovie:= pos('I',kadr);

strok:= FloatToStr(Y_pred); // Преобразуем в число строку

insert('Y' + strok, kadr, uslovie);

end;

if (pos('G42', kadr) <> 0) or (pos('G41', kadr) <> 0) then

begin

try

s:= Stroka.Strings[Succ(m)]; // ошибка нет строки вообще

except

on EStringListError do // добавляем пустую строку и исключаем ошибку

stroka.Add('');

end;

if pos('X', kadr) = 0 then

begin // Вставка Х и Y если нет

uslovie:= FindVstavki('X', kadr); // В позиции X Y I J F M

Insert('X' + FloatToStr(X_nast), kadr, uslovie);

end;

if pos('Y', kadr) = 0 then

begin

uslovie:= FindVstavki('Y', kadr);

Insert('Y' + FloatToStr(Y_nast), kadr, uslovie);

end;

if (pos('I', Stroka.Strings[Succ(m)]) <> 0) and (pos('J', Stroka.Strings[Succ(m)]) <> 0)

then

begin

Naytikoordinatu(Stroka.Strings[Succ(m)], 'I', st);

I:= StrToFloat(st);

Naytikoordinatu(Stroka.Strings[Succ(m)], 'J', st);

J:= StrToFloat(st);

J:= J * 1000;

I:= I * 1000;

I:= I - X_nast;

J:= J - Y_nast;

Podhod_G41_G42_radius;

if (I_sled = -1) and (J > 0) then J:= -J;

if (I_sled = 1) and (J < 0) then J:= -J;

if(J_sled = -1) and (I > 0) then I:= -I;

if(J_sled = 1) and (I < 0) then I:= -I;

if pos('J', kadr) <> 0

then

begin

NaytiKoordinatu(kadr, 'J', st);

PreobrazovanieVM(I, kadr);

end

else

begin

uslovie:= FindVstavki('J', kadr);

Insert('J' + FloatToStr(I), kadr, uslovie);

end;

if pos('I', kadr) <> 0

then

begin

NaytiKoordinatu(kadr, 'I', st);

PreobrazovanieVM(J, kadr);

end

else

begin

uslovie:= FindVstavki('I', kadr);

Insert('I' + FloatToStr(J), kadr, uslovie);

end;

X_pred:= X_nast;

Y_pred:= Y_nast;

exit;

end

else

begin

Podhod_G41_G42_line;

if pos('I', kadr) <> 0

then

begin

NaytiKoordinatu(kadr, 'I', st);

PreobrazovanieVM(X_sled, kadr);

end

else

begin

uslovie:= FindVstavki('I', kadr);

Insert('I' + FloatToStr(X_sled), kadr, uslovie);

end;

if pos('J', kadr) <> 0

then

begin

NaytiKoordinatu(kadr, 'J', st);

PreobrazovanieVM(Y_sled, kadr);

end

else

begin

uslovie:= FindVstavki('J', kadr);

Insert('J' + FloatToStr(Y_sled), kadr, uslovie);

end;

exit;

end;

end;

uslovie:= pos('I',kadr);

if uslovie <> 0 then

begin

NaytiKoordinatu(kadr,'I',vyh);