[AlexandrV]

ктонибудь научите меня делать такой скрипт

Код:

procedure TForm2.MaxIDExecute(Sender: TObject);
var forsht:integer;
begin
 If inputQuery(DLGP4, DLGP3,IDOS) then begin
    If inputQuery(DLGP5, DLGP6,IDOSPRS) then begin
      If Length(IDOS) > 0 then
        ID0:=StrToInt(IDOS);
        if PGCST1 = PgDown1 then begin
          RED1.Clear;
          RED1.Lines.Strings[0]:=PRK1+':'+IntToStr(ID0);
          RED1.Lines.Add('0:');
          RED1.Lines.Add('1:'+IDOSPRS+PRStroca1Libx1+PRStroca1Libx2);
        end;
        if PGCST1 = PgDown2 then begin
          ListBox3.Clear;
          ListBox3.Items.Strings[0]:=PRK1+':'+IntToStr(ID0);
          ListBox3.Items.Add('0:');
          ListBox3.Items.Add('1:'+IDOSPRS+PRStroca1Libx1+PRStroca1Libx2);
        end;
      end;
    End;
    if ValueKeyPress = true then begin
      IDEI1:=2;
      for forsht := 1 to id0-1 do begin
        if PGCST1 = PgDown1 then begin
          RED1.Lines.Add(Inttostr(IDEI1)+':');
          IDEI1:=IDEI1+1;
        end;
        if PGCST1 = PgDown2 then begin
          ListBox3.Items.Add(Inttostr(IDEI1)+':');
          IDEI1:=IDEI1+1;
        end;
      end;
    end;
end;

Нужно чтобы скрипт находился в текстовом файле. Сколько не искал но так и не смог научится паскальскрипту может научите как делать

Для начала хочу сделать такой скрипт

Код:

procedure TForm2.RussianExecute(Sender: TObject);
begin
  Language:='rus';

  LangugeRead;
end;

procedure TForm2.UkrainianExecute(Sender: TObject);
begin
  Language:='ukr';

  LangugeRead;
end;

procedure TForm2.EnglishExecute(Sender: TObject);
begin
  Language:='eng';

  LangugeRead;
end;

procedure TForm2.SpanishExecute(Sender: TObject);
begin
  Language:='spa';

  LangugeRead;
end;

procedure TForm2.FrenchExecute(Sender: TObject);
begin
  Language:='fre';

  LangugeRead;
end;

После хочу сделать такой скрипт

Код:

procedure TForm2.MaxIDExecute(Sender: TObject);
var forsht:integer;
begin
 If inputQuery(DLGP4, DLGP3,IDOS) then begin
    If inputQuery(DLGP5, DLGP6,IDOSPRS) then begin
      If Length(IDOS) > 0 then
        ID0:=StrToInt(IDOS);
        if PGCST1 = PgDown1 then begin
          RED1.Clear;
          RED1.Lines.Strings[0]:=PRK1+':'+IntToStr(ID0);
          RED1.Lines.Add('0:');
          RED1.Lines.Add('1:'+IDOSPRS+PRStroca1Libx1+PRStroca1Libx2);
        end;
        if PGCST1 = PgDown2 then begin
          ListBox3.Clear;
          ListBox3.Items.Strings[0]:=PRK1+':'+IntToStr(ID0);
          ListBox3.Items.Add('0:');
          ListBox3.Items.Add('1:'+IDOSPRS+PRStroca1Libx1+PRStroca1Libx2);
        end;
      end;
    End;
    if ValueKeyPress = true then begin
      IDEI1:=2;
      for forsht := 1 to id0-1 do begin
        if PGCST1 = PgDown1 then begin
          RED1.Lines.Add(Inttostr(IDEI1)+':');
          IDEI1:=IDEI1+1;
        end;
        if PGCST1 = PgDown2 then begin
          ListBox3.Items.Add(Inttostr(IDEI1)+':');
          IDEI1:=IDEI1+1;
        end;
      end;
    end;
end;

procedure TForm2.Colors_LibxExecute(Sender: TObject);
begin
 if ColorDialog1.Execute then begin
    ColoresTI:=ColorDialog1.Color;
    Colorsis2:=Colorsis0+ColorToHex(ColoresTI)+Colorsis1;
    if PGCST1 = PgDown1 then begin
      RED1.SelText:=Colorsis2;
    end;
    if PGCST1 = PgDown2 then begin
      RED2.SelText:=Colorsis2;
    end;
  end;
end;

Скрипт мне нужен для того, чтобы не высылать каждый раз EXEшник весом в 5 мб.

Допустим если я не изменял код в Exe но изменил код в скрипте то для этого достаточно будет выслать патч с скриптом и все.

Можете помочь обучится паскаль скрипту

В XE3 я заметил встроенный компонент скриптов. Может ктонибудь научит на чем легче. В любом случае паскальскрит у меня тоже есть.