root/trunk/ASoundEditorForm.pas

///////////////////////////////////////////////////////////
//                        EiEdit                         //
//      Ðåäàêòîð ÷àñòè ðåñóðñîâ Ïðîêëÿòûõ Çåìåëü         //
//             Copyright (C) 2002 Gipat Group            //
//              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             //
//    Gipat Group's opened EI-editor-utility license     //
//                      âåðñèè 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

unit ASoundEditorForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ValEdit, StdCtrls, KOLFileInString, KOLTextFileInString,
  Buttons;

type
  TASoundEditorF = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    MaskiBox: TComboBox;
    FilesBox: TComboBox;
    SaveBut: TButton;
    OkBut: TButton;
    CreateBut: TButton;
    DeleteBut: TButton;
    ValuesEd: TValueListEditor;
    ZashablonitBut: TButton;
    CacelBut: TButton;
    UpBut: TBitBtn;
    DownBut: TBitBtn;
    ToNumerBut: TBitBtn;
    procedure OkButClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure MaskiBoxClick(Sender: TObject);
    procedure FilesBoxClick(Sender: TObject);
    procedure LoadMZ(Sender: TObject);
    function SaveMZ(Sender: TObject) : boolean;
    procedure SaveButClick(Sender: TObject);
    procedure CreateButClick(Sender: TObject);
    procedure DeleteButClick(Sender: TObject);
    procedure CacelButClick(Sender: TObject);
    procedure ZashablonitButClick(Sender: TObject);
    procedure UpButClick(Sender: TObject);
    procedure DownButClick(Sender: TObject);
    procedure ToNumerButClick(Sender: TObject);
  private
    { Private declarations }
    Function MakeShablon (Sender : TObject) : byte;
    Function CheckCode(Sender : TObject; const Code : string) : boolean;
    Procedure MoveElement (Sender : TObject; MoveTo : integer);
    procedure RefreshBatoni(Sender: TObject);
  public
    { Public declarations }
    InputStr : string;
    OutputStr : string;
    ModRes : byte;
  end;

var
  ASoundEditorF: TASoundEditorF;

implementation
uses initer, MySys, ShablonimForm, QskFnForm, CheckShablForm;

const
ArrCapac = 1000;

type
  ASoundRec = record
    StrFile : string;
    IntUnknown1 : integer;
    StrText : string;
    StrCode : string;
  end;

var
  TheStr : String;
  ASoundRecs : array[1..ArrCapac] of ASoundRec;
  NumRecs, RecNum : integer;
  MZLoaded : boolean;

{$R *.dfm}

Procedure LoadASoundStr(const Str : string);
var
  I : integer;
  TempStr, BufSt, BufSt2 : string;
begin
  //Çàáðàòü èíôó èç ñòðîêè â ìàññèâ.
  NumRecs := 0;   //Êîëè÷åñòâî ìèêðîçàïèñåé
  TempStr := Str;  //Ïðèñâîèòü çíà÷åíèå ðàáî÷åé ñòðîêå
  I := 0;  //Ñ÷åò÷èê
  //È ïî÷èñòèòü ñïèñêè...
  ASoundEditorF.MaskiBox.Items.Clear;
  ASoundEditorF.FilesBox.Items.Clear;

  If Length(TempStr) <> 0 then begin
    //Åñëè â ñòðîêå ÷åòî åñòü...
    repeat
      I := I+1;
      BufSt := OtkusitPodPole(@TempStr);
      //Ïîäïîëå ïîëó÷åíî. Èç íåãî òåïåðü èçâëå÷ü âñå íóæíîå...

      //TEXT. File.
      BufSt2 := OtkusitPodPole(@BufSt);
      ASoundRecs[I].StrFile := PzDbStrToStr(BufSt2);

      //UnsLong. Unknown1.
      BufSt2 := OtkusitPodPole(@BufSt);
      ASoundRecs[I].IntUnknown1 := _4byteStrToUnsLong(BufSt2);

      //TEXT. Text.
      BufSt2 := OtkusitPodPole(@BufSt);
      ASoundRecs[I].StrText := PzDbStrToStr(BufSt2);

      //TEXT. Code.
      BufSt2 := OtkusitPodPole(@BufSt);
      ASoundRecs[I].StrCode := PzDbStrToStr(BufSt2);

      NumRecs := I; //Òèïà â ìàññèâ äîáàâëåí ýëåìåíò.

    until Length(TempStr) = 0;

    //Çàïîëíèòü ñïèñêè...
    For I := 1 to NumRecs do begin
      ASoundEditorF.MaskiBox.Items.Add(ASoundRecs[I].StrCode);
      ASoundEditorF.FilesBox.Items.Add(IntToStr(I)+'   '+ASoundRecs[I].StrText);
    end;

  end;

end;

Function SaveASoundStr : string;
var
  I : integer;
  TempStr, BufSt, BufSt2, BufSt3 : string;
begin
  //Ïîëîæèòü èíôó èç ìàññèâà â ñòðîêó.
  
  BufSt := '';

  If NumRecs <> 0 then begin
    //Åñëè ìàññèâ íå ïóñòîé...
    For I := 1 to NumRecs do begin
      BufSt2 := '';

      //TEXT. File.
      BufSt3 := StrToPzDbStr2(ASoundRecs[I].StrFile);
      BufSt2 := AddPodPole(BufSt2,BufSt3,1);

      //UnsLong. Unknown1.
      BufSt3 := UnsLongTo4byteStr(ASoundRecs[I].IntUnknown1);
      BufSt2 := AddPodPole(BufSt2,BufSt3,2);

      //TEXT. Text.
      BufSt3 := StrToPzDbStr2(ASoundRecs[I].StrText);
      BufSt2 := AddPodPole(BufSt2,BufSt3,3);

      //TEXT. Code.
      BufSt3 := StrToPzDbStr2(ASoundRecs[I].StrCode);
      BufSt2 := AddPodPole(BufSt2,BufSt3,4);

      //È äîáàâèòü òî ÷òî ïîëó÷èëîñü â îñíîâíóþ ñòðîêó.
      BufSt := AddPodPole(BufSt,BufSt2,1);
    end;
  end;
  Result := BufSt;
end;

procedure TASoundEditorF.OkButClick(Sender: TObject);
var
  AllOk : boolean;
begin
  AllOk := true;

  //Çàñàâèòü òåêóùèé ýëåìåíò...
  If MZLoaded = true then begin
    //Åñëè óæå áûë îòêðûò ôàéë, òî ñåéâ åìó...
    If SaveMZ(Sender) = false then begin
      AllOk := false;
      If MessageBox(Handle,'Îòêðûòûé ñåé÷àñ ýëåìåíò íå áûë ñîõðàíåí èç-çà îøèáêè. Âñåðàâíî ïðîäîëæèòü?','ÂÍÈÌÀÍÈÅ!!!',MB_ICONWARNING or MB_YESNO) = ID_YES then begin
        //Íó òèïà þçâåðþ âñå ïîôèã...
        AllOk := true;
      end;
    end;
  end;

  If AllOk = true then begin
    Close;
    ModRes := 1;
  end;  
end;

procedure TASoundEditorF.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //Êîíåö ðàáîòû ôîðìû. Âåðíóòü ðåçóëüòàò.
  {If MZLoaded = true then begin
    //Åñëè óæå áûë îòêðûò ôàéë, òî ñåéâ åìó...
    SaveMZ(Sender);
  end;}

  If ModRes = 1 then begin
    //Âåðíóòü ðåçóëüòàò
    OutputStr := SaveASoundStr;
  end
  else begin
    //Çàêàíñåëèëè, âåðíóòü ôèãó.
    OutputStr := 'NIL';
  end;
end;

procedure TASoundEditorF.FormShow(Sender: TObject);
begin
  //Íà÷àëî ðàáîòû.  Ïî÷èñòèòü ôîðìó...
  ModRes := 0;
  MaskiBox.Clear;
  FilesBox.Clear;
  ValuesEd.Cells[1,1] := '';
  ValuesEd.Cells[1,2] := '';
  ValuesEd.Cells[1,3] := '';
  ValuesEd.Cells[1,4] := '';

  //"Çàãðóçèòü" ñòðîêó...
  LoadASoundStr(InputStr);

  MZLoaded := false;    //Ýòî ïðî òî, ÷òî åùå ìèêðîçàïèñü íå îòêðûòà...
  //Òåïåðü åñëè åñòü õîòü 1 ýëåìåíò, òî âûáðàòü ïåðâûé...
  If NumRecs > 0 then begin
    MaskiBox.ItemIndex := 0;
    MaskiBoxClick(Sender);
  end;

  //È ðåôðåøíóòü êíîïêè.
  RefreshBatoni(Sender);  
end;

procedure TASoundEditorF.MaskiBoxClick(Sender: TObject);
begin
  {If MZLoaded = true then begin
    //Åñëè óæå áûë îòêðûò ôàéë, òî ñåéâ åìó...
    SaveMZ(Sender);
  end;}
  //Òèïà ñâÿçêà ñïèñêîâ
  RecNum := MaskiBox.ItemIndex+1;
  FilesBox.ItemIndex := MaskiBox.ItemIndex;
  //è "çàãðóçêà" èíôû
  LoadMZ(Sender);

  //È ðåôðåøíóòü êíîïêè.
  RefreshBatoni(Sender); 
end;

procedure TASoundEditorF.FilesBoxClick(Sender: TObject);
begin
  {If MZLoaded = true then begin
    //Åñëè óæå áûë îòêðûò ôàéë, òî ñåéâ åìó...
    SaveMZ(Sender);
  end;}
  //Òèïà ñâÿçêà ñïèñêîâ
  RecNum := FilesBox.ItemIndex+1;
  MaskiBox.ItemIndex := FilesBox.ItemIndex;
  //è "çàãðóçêà" èíôû
  LoadMZ(Sender);

  //È ðåôðåøíóòü êíîïêè.
  RefreshBatoni(Sender); 
end;

procedure TASoundEditorF.LoadMZ(Sender: TObject);
begin
  //Òèïà âûâîäà èíôû èç ìàññèâà â ôîðìó.
  ValuesEd.Cells[1,1] := ASoundRecs[RecNum].StrFile;
  ValuesEd.Cells[1,2] := IntToStr(ASoundRecs[RecNum].IntUnknown1);
  ValuesEd.Cells[1,3] := ASoundRecs[RecNum].StrText;
  ValuesEd.Cells[1,4] := ASoundRecs[RecNum].StrCode;

  MZLoaded := true;  //Ìèêðîçàïèñü îòêðûòà.
end;

function TASoundEditorF.SaveMZ(Sender: TObject) : boolean;
begin
  //Òèïà ñàâêà èíôû â ìàññèâ.
  //Ïðîâåðèòü â íà÷àëå...
  if CheckStrInt(ValuesEd.Cells[1,2]) = false then begin
    ValuesEd.Selection := SelGridRect(1,2);
    Beep;
    MessageBox(Handle,'Âûäåëåííîå ïîëå èìååò íåïðàâèëüíûé ôîðìàò.','Îøèáêà',MB_ICONERROR or MB_OK);
    Result := false;
  end
  else begin
    ASoundRecs[RecNum].StrFile := ValuesEd.Cells[1,1];
    ASoundRecs[RecNum].IntUnknown1 := StrToInt(ValuesEd.Cells[1,2]);
    ASoundRecs[RecNum].StrText := ValuesEd.Cells[1,3];
    ASoundRecs[RecNum].StrCode := ValuesEd.Cells[1,4];
    result := true;
  end;  
end;

procedure TASoundEditorF.SaveButClick(Sender: TObject);
begin
  If SaveMZ(Sender) = true then begin
    //Åñëè âñå íîðìàëüíî çàñàâèëîñü, òî
    //ïîìåíÿòü â ñïèñêàõ òåêñò è êîä...
    MaskiBox.Items.Strings[RecNum-1] := ValuesEd.Cells[1,4];
    FilesBox.Items.Strings[RecNum-1] := IntToStr(RecNum)+'   '+ASoundRecs[RecNum].StrText;
    //Òàê êàê ñïèñêè ñáèëèñü, çàíîâî âûñòàâèòü èõ.
    MaskiBox.ItemIndex := RecNum-1;
    FilesBox.ItemIndex := RecNum-1;
  end;
end;

procedure TASoundEditorF.CreateButClick(Sender: TObject);
var
  AllOk, ind1, ind2 : boolean;
  Code, TempStr : string;
  TextFil1 : TTextFileInString;

begin
  AllOk := true;
  {If MZLoaded = true then begin
    //Åñëè óæå áûë îòêðûò ôàéë, òî ñåéâ åìó...
    If SaveMZ(Sender) = false then begin
      AllOk := false;
      If MessageBox(Handle,'Îòêðûòûé ñåé÷àñ ýëåìåíò íå áûë ñîõðàíåí èç-çà îøèáêè. Âñåðàâíî ñîçäàòü íîâûé ýëåìåíò?','ÂÍÈÌÀÍÈÅ!!!',MB_ICONWARNING or MB_YESNO) = ID_YES then begin
        //Íó òèïà þçâåðþ âñå ïîôèã...
        AllOk := true;
      end;
    end;;
  end;}

  If AllOk = true then begin
    //Ñîáñíî òî, ÷òî äîëæíà äåëàòü ôóíêà - ñîçäàâàòü íîâûé ýëåìåíò.
    //Çàïðîñ Code, åñëè ÎÊ òî ïðîäîëæèòü...
    ind1 := false;
    repeat
      AskFnForm.QuestionDial := 'Ââåäèòå çíà÷åíèå ïîëÿ Code äëÿ íîâîé çàïèñè:';
      AskFnForm.ShowModal;
      if AskFnForm.ModalResult = MrOk then begin
        Code := AskFnForm.AnswerDial;
        if CheckCode(Sender,Code) = true then begin
          //Åñëè ìàñêà óíèêàëüíà.

          //Òåïåðü íàäî âûáðàòü øàáëîí.
          ShablonimF.ShablsPath := Path+'shablons\ASounds\';
          CheckShablF.ShowModal;
          //Åñëè øàáëîí áûë âûáðàí òî ïðîäîëæèòü
          //èíà÷å - ïîëíàÿ îòìåíà.

          If CheckShablF.ModalResult = mrOk then begin
            //ShowMessage(ShablPath);
            //Åñëè ÎÊíóëè...

            //Òî - ñîçäàòü ïóñòîé ýëåàìåíò, îòêðûòü øàáëîí,
            //è çàëîàäèòü â ýëåìåíò èç íåãî èíôó...
            NumRecs := NumRecs+1;

            TextFil1 := TTextFileInString.Init;
            TextFil1.Load(ShablonimF.ShablPath);
            TextFil1.Cursor := 1;
            //ãðóçèì...
            ASoundRecs[NumRecs].StrFile := TextFil1.CurReadLn;
            ASoundRecs[NumRecs].IntUnknown1 := StrToInt(TextFil1.CurReadLn);
            ASoundRecs[NumRecs].StrText := TextFil1.CurReadLn;
            ASoundRecs[NumRecs].StrCode := Code;  //Êîä íå ãðóçèì, à áåðåì ââåäåíûé.
            TextFil1.Free;

            //Òèïà ãîòîâî. Òåïåðü ìîæíî ïðîñòî çàïîìíèòü ñòðîêó, ïåðåëîàäèòü ôîðìó,
            //è âûñòàâèòü ïîòîì íóæíûé ýëåìåíò.

            MaskiBox.Clear;    //Ýòè îïåðàòîðû - äëÿ ïîäãîòîâêè ôîðìû...
            FilesBox.Clear;
            MZLoaded := false;
            RefreshBatoni(Sender);

            TempStr := SaveASoundStr;  //ÍÀÄÎ ÷åðåç ïåðåìåííóþ, ò.ê. ýòà ôóíêà äîëæíà
            //âûçûâàòüñÿ ïåðâîé!
            LoadASoundStr(TempStr);  //Òèïà ðåëîàäà...

            MaskiBox.ItemIndex := NumRecs-1;
            MaskiBoxClick(Sender);

            //Çàâåðøèòü öèêë èíäà1...
            ind1 := true;
          end
          else begin
            //Åñëè îòìåíèëè...
            //Çàâåðøèòü öèêë èíäà1...
            ind1 := true;
          end;
        end
        else begin
          //Åñëè ìàñêà ïîâòîðÿåòñÿ.
          MessageDLG('ÎØÈÁÊÀ! Òàêàÿ çàïèñü óæå åñòü â áàçå! Ââåäèòå óíèêàëüíóþ ìàñêó!',mtError,[mbOk],0);
        end;
      end
      else begin
        //×òîá âûõîä ïî îòìåíå òîêà áûë
        ind1 := true;
      end;
    until ind1 = true;
  end;

  //È ðåôðåøíóòü êíîïêè.
  RefreshBatoni(Sender);
end;

procedure TASoundEditorF.RefreshBatoni(Sender: TObject);
begin
  //Òèïà çàðåôðåøèòü áàòîíû ìëÿ...
  If MZLoaded = false then begin
    ZashablonitBut.Enabled := false;
    SaveBut.Enabled := false;
    DeleteBut.Enabled := false;
    UpBut.Enabled := false;
    DownBut.Enabled := false;
    ToNumerBut.Enabled := false;
  end
  else begin
    ZashablonitBut.Enabled := true;
    SaveBut.Enabled := true;
    DeleteBut.Enabled := true;

    If RecNum = 1 then begin
      //Âûøå ïîäíÿòü çàïèñü íåëüçÿ.
      UpBut.Enabled := false;
    end
    else begin
      //Âûøå ïîäíÿòü çàïèñü ìîæíî.
      UpBut.Enabled := true;
    end;

    If RecNum = NumRecs then begin
      //Íèæå îïóñòèòü çàïèñü íåëüçÿ.
      DownBut.Enabled := false;
    end
    else begin
      //Íèæå îïóñòèòü çàïèñü ìîæíî.
      DownBut.Enabled := true;
    end;

    ToNumerBut.Enabled := true;

  end;
end;

procedure TASoundEditorF.DeleteButClick(Sender: TObject);
var
  I : integer;
  TempStr : string;
  
begin
  If MessageBox(Handle,'Óâåðåíû???','Òèïà âîïðîñ...',MB_ICONQUESTION or MB_YESNO) = ID_YES then begin
    //Òèïà óäàëèòü òåêóùèé ýëåìåíò èç ìàññèâà è èç ñïèñêîâ.
    //Åñëè ýëåìåíò ïîñëåäíèé, òî ïðîñòî âûêèíóòü åãî, åñëè íå ïîñëåäíèé
    //Òî ñíà÷àëà ñäâèíóòü ýëåìåíò íèæå íà åãî ìåñòî (è àíàëîãè÷íîð äî êîíöà),
    //à ïîòîì îïÿòü æå âûêèíóòü ïîñëåäíèé ýëåìåíò (à åãî êîïèÿ óæå åñòü â ïðåäïîñëåäíåì ýëåìåíòà).

    If RecNum <> NumRecs then begin
      //Åñëè ýëåìåíò íå ïîñëåäíèé.
      For I := RecNum to NumRecs-1 do begin
        //Ïåðåäâèíóòü ýëåìåíòû...
        ASoundRecs[I].StrFile := ASoundRecs[I+1].StrFile;
        ASoundRecs[I].IntUnknown1 := ASoundRecs[I+1].IntUnknown1;
        ASoundRecs[I].StrText := ASoundRecs[I+1].StrText;
        ASoundRecs[I].StrCode := ASoundRecs[I+1].StrCode;
      end;
    end;

    //Òåïåðü - ïî ëþáîìó êèëë ïîñëåäíåìó ýëåìåíòó. ×èñòèòü íåîáÿçàòåëüíî. Ïðîñòî
    //èçìåíèòü êîëè÷åñòâî äîñòóïíûõ ýëåìåíòîâ.
    NumRecs := NumRecs-1;

    //Òèïà ãîòîâî. Òåïåðü ìîæíî ïðîñòî çàïîìíèòü ñòðîêó, ïåðåëîàäèòü ôîðìó,
    //è âûñòàâèòü ïîòîì íóæíûé ýëåìåíò.
    I := RecNum-1;     //Êîðî÷å òèïà çàïîìíèòü ãäå áûëè...
    If I = 0 then I := 1;  //È åñëè ñàìûé âåðõ - âûøå íå äâèãàòüñÿ.

    MaskiBox.Clear;    //Ýòè îïåðàòîðû - äëÿ ïîäãîòîâêè ôîðìû...
    FilesBox.Clear;
    MZLoaded := false;
    RefreshBatoni(Sender);

    TempStr := SaveASoundStr;  //ÍÀÄÎ ÷åðåç ïåðåìåííóþ, ò.ê. ýòà ôóíêà äîëæíà
    //âûçûâàòüñÿ ïåðâîé!
    LoadASoundStr(TempStr);  //Òèïà ðåëîàäà...

    //À òåïåðü â çàâèñèìîñòè îò òîãî, îñòàëîñü ëè ÷òîòî â ïîëå...
    If NumRecs <> 0 then begin
      //Åñëè åñòü ÷åòî...
      MaskiBox.ItemIndex := I-1;
      MaskiBoxClick(Sender);
    end
    else begin
      //Åñëè ïóñòî...

    end;

  end;
  //È ðåôðåøíóòü êíîïêè.
  RefreshBatoni(Sender);
end;

procedure TASoundEditorF.CacelButClick(Sender: TObject);
begin
  ModRes := 0;
  Close;
end;

Function TASoundEditorF.MakeShablon (Sender : TObject) : byte;
var
  Fil1 : TTextFileInString;
  AllOk : boolean;

begin
  //Ôóíêà ãåíåðèò ôàéë òèïà ñ øàáëîíîì ýëåìåíòà.

  AllOk := true;
  //Ñäåëàòü òèïà ñåéâ... Êàê áû è ïðîâåðêà çàîäíî...
  If SaveMZ(Sender) = false then begin
    AllOk := false;
    If MessageBox(Handle,'Îòêðûòûé ñåé÷àñ ýëåìåíò íå áûë ñîõðàíåí èç-çà îøèáêè. Âñåðàâíî ïðîäîëæèòü? (áóäåò èñïîëüçîâàí ïîñëåäíèé ñîõðàíåííûé âàðèàíò)','ÂÍÈÌÀÍÈÅ!!!',MB_ICONWARNING or MB_YESNO) = ID_YES then begin
      //Íó òèïà þçâåðþ âñå ïîôèã...
      AllOk := true;
    end;
  end;

  //Ïîäãîòîâèòü îáüåêò êëàññà...
  Fil1 := TTextFileInString.Init;
  Fil1.MakNewFile;

  //À òåïåðü âïèñûâàòü òóäû èíôó...
  Fil1.AddStr(ASoundRecs[RecNum].StrFile);
  Fil1.AddStr(IntToStr(ASoundRecs[RecNum].IntUnknown1));
  Fil1.AddStr(ASoundRecs[RecNum].StrText);
  Fil1.AddStr(ASoundRecs[RecNum].StrCode);

  //Íó è ñàâàíóòü âèäèìî...

  ShablonimF.ShablsPath := Path+'shablons\ASounds\';
  ShablonimF.ShowModal;
  If ShablonimF.ModalResult = mrOk then begin
    //Â ôîðìå ÎÊíóëè..
    Fil1.Save(ShablonimF.ShablPath);
  end;

  Result := 1;
end;

procedure TASoundEditorF.ZashablonitButClick(Sender: TObject);
begin
  MakeShablon(Sender);
end;

Function TASoundEditorF.CheckCode(Sender : TObject; const Code : string) : boolean;
var
  I : integer;
begin
  result := true;
  //Ïðîâåðÿëêà êîäà íà óíèêàëüíîñòü.
  For I := 1 to NumRecs do begin
    If ASoundRecs[I].StrCode = Code then begin
      //Âñòðåòèëñÿ òàêîé êîä. Âñå, ïèïåö. Òèïà âåðíóòü ôàëüñó...
      Result := false;
      //È âûéòè èç öèêëà...
      Exit //ñïåöèàëüíî áåç òî÷êè ñ çàïÿòîé.
    end;
  end;
end;

Procedure TASoundEditorF.MoveElement (Sender : TObject; MoveTo : integer);
var
  I : integer;
  TempStr : string;
begin
  //Ôóíêà äëÿ ïåðåíîñà âûáðàííîãî ýëåìåíòà íà
  //âûáðàííóþ ñòðîêó.

  // íà÷àëå - çàïîìíèòü (â "ëèøíþþ" ñòðî÷êó ýëåìåíòíîãî ìàññèâà)
  //âûáðàííûé ñåé÷àñ ýëåìåíò.

  I := NumRecs+1;  //"ëèøíÿÿ" ñòðî÷êà...
  ASoundRecs[I].StrFile := ASoundRecs[RecNum].StrFile;
  ASoundRecs[I].IntUnknown1 := ASoundRecs[RecNum].IntUnknown1;
  ASoundRecs[I].StrText := ASoundRecs[RecNum].StrText;
  ASoundRecs[I].StrCode := ASoundRecs[RecNum].StrCode;

  //Òåïåðü ïåðåòàùèòü (ñêîïèðîâàòü) íà âûáðàííîå ìåñòî ñòðî÷êó èç äðóãîãî ìåñòà...
  ASoundRecs[RecNum].StrFile := ASoundRecs[MoveTo].StrFile;
  ASoundRecs[RecNum].IntUnknown1 := ASoundRecs[MoveTo].IntUnknown1;
  ASoundRecs[RecNum].StrText := ASoundRecs[MoveTo].StrText;
  ASoundRecs[RecNum].StrCode := ASoundRecs[MoveTo].StrCode;

  //Òåïåðü - ïåðåòàùèòü íà íóæíîå ìåñòî çàïîìíåííûé ðàíåå ýëåìåíò...
  ASoundRecs[MoveTo].StrFile := ASoundRecs[I].StrFile;
  ASoundRecs[MoveTo].IntUnknown1 := ASoundRecs[I].IntUnknown1;
  ASoundRecs[MoveTo].StrText := ASoundRecs[I].StrText;
  ASoundRecs[MoveTo].StrCode := ASoundRecs[I].StrCode;

  //Òèïà ãîòîâî. Òåïåðü - òèïà ïåðåâûâîä ôîðìû, è âûáîð íóæíîé çàïèñè...

  MaskiBox.Clear;    //Ýòè îïåðàòîðû - äëÿ ïîäãîòîâêè ôîðìû...
  FilesBox.Clear;
  MZLoaded := false;
  RefreshBatoni(Sender);

  TempStr := SaveASoundStr;  //ÍÀÄÎ ÷åðåç ïåðåìåííóþ, ò.ê. ýòà ôóíêà äîëæíà
  //âûçûâàòüñÿ ïåðâîé!
  LoadASoundStr(TempStr);  //Òèïà ðåëîàäà...

  MaskiBox.ItemIndex := MoveTo-1;
  MaskiBoxClick(Sender);
end;

procedure TASoundEditorF.UpButClick(Sender: TObject);
begin
  //Ïîìåíÿòü âûáðàííûé ýëåìåíò è òîò ÷òî âûøå ìåñòàìè...
  MoveElement(Sender,RecNum-1);
end;

procedure TASoundEditorF.DownButClick(Sender: TObject);
begin
  //Ïîìåíÿòü âûáðàííûé ýëåìåíò è òîò ÷òî íèæå ìåñòàìè...
  MoveElement(Sender,RecNum+1);
end;

procedure TASoundEditorF.ToNumerButClick(Sender: TObject);
var
  MoveTo : integer;
  Ind1 : boolean;

begin
  //Íàäî ïîìåíÿòü ìåñòàìè âûáðàííûé ýëåìåíò
  //è óêàçàííûé ïîëüçîâàòåëåì...

  //Ïðèãîòîâèòü äèàëîã...
  AskFnForm.QuestionDial := 'Ñ êàêèì ýëåìåíòîì ïîìåíÿòü âûáðàííûé ýëåìåíò?';
  ind1 := false;
  repeat
    AskFnForm.ShowModal;
    If AskFnForm.ModalResult = mrOK then begin
      //Ïðîâåðèòü íà îøèáêó...
      If CheckStrInt(AskFnForm.AnswerDial) = true then begin
        //Åñëè ÷èñëî öåëî÷èñëåííîå...
        MoveTo := StrToInt(AskFnForm.AnswerDial);
        If (MoveTo >= 1) and (MoveTo <= NumRecs) and (MoveTo <> RecNum) then begin
          //Åñëè ÷èñëî ïîäõîäèò...
          //Òî ìîæíî ìåíÿòü ìåñòàìè...
          MoveElement(Sender,MoveTo);

          //è èç äèàëîãà ïîñëå âñåãî ìîæíî âûéòè...
          ind1 := true;
        end
        else begin
          //Åñëè ÷èñëî ïîïàëî â îãðàíè÷åíèÿ, òî ðóãíóòüñÿ...
          MessageBox(Handle,PChar('×èñëî äîëæíî áûòü â ïðåäåëàõ îò 1 äî '+IntToStr(NumRecs)+', è íå äîëæíî áûòü ðàâíî '+IntToStr(RecNum)+'.'),'Îøèáêà!',MB_ICONERROR or MB_OK);
        end;
      end
      else begin
        //Òèïà îøèáêà, áðåä âñÿêèé íàïèñàí.
        MessageBox(Handle,'Âû äîëæíû ââåñòè öåëî÷èñëåííîå ÷èñëî, "áóêîâêè" íå òðåáóþòñÿ ;)','Íå ïèøèòå áðåä!',MB_ICONERROR or MB_OK);
      end;
    end
    else begin
      //Åñëè îòìåíèëè, ëèáî íàæìàëè íà "êðåñòèê"...
      ind1 := true;  //òèïà ìîæíî óéòè...
    end;
  until ind1 = true;  //Ïîâòîðÿòü, ëèáî ïîêà þçåð íå îòìåíèò,
                      //ëèáî ïîêà íå îêíåò áåç îøèáîê.
end;

end.