[Farruhjon]

Можеть программно создать и редактировать pas файл. Пожалуйста, ответите. Мне это шас очен нужные. Заранее Спасибо.

[Bargest]

.pas файл - это обычный текстовый файл. И создать его можно:

Код:

var f:text;
...
assignfile(f,'123.pas');
rewrite(f);

И редактировать:

Код:

...
assignfile(f,'123.pas');
append(f);

Но это только для дозаписи. Если надо именно менять имеющийся в файле текст - то лучше так:

Код:

var f:file;
...
assignfile(f,'123.pas');
reset(f,1);

и дальше работать через seek, BlockRead, BlockWrite.

[Farruhjon]

Допустим, я создал файл. После этово нужен исползавать этот модул в свои проги. А ето как делаеться ?

[Bargest]

Вручную подключаешь через меню проекта, там AddToProject

[Farruhjon]

exe это распаковка. Он распологаются внетри exe файл. Сможеш её подключить во время выполнения программи (как dll ах)

[Bargest]

это невозможно. Программа - это машинные коды. Числа. Исходник (pas) - это текст.
Единственное, что можно сделать, это распространять вместе с программой компилятор делфы и заставлять его при запуске компилировать файл в Dll, или написать свой компилятор. Но тогда встает резонный вопрос: зачем это делать, если можно скомпилировать сразу в DLL и не разбрасываться исходниками

[Farruhjon]

Программа такая. Ползовател вводить какая то уравнение в виду f(x)=0. Тепер программа нужен решить ето уравнений. Для етого нужен вичислит значение функци f(x).

[Моклев]

Лично я делал примерно так:
1) Находил скобки, вычислял их рекурсивно и заменял на получившееся число
2) Находил функции, вычислял, заменял на числа
3) Находил возведение в степень, аналогично
4) Всё оставшееся делил на группы по знакам (внутри группы только умножение или деление: 2*3-1*4/2 -> 2*3 и -1*4/2
5) Вычислял значение каждой группы
6) Складывал все группы
Кстати, тоже делал для построителя графиков)

[NumLock]

если совсем лень самому писать, то:
(WebBrowser.Document as IHTMLDocument2).parentWindow.execScript('var r='+Edit.Text+'; document.write(r+"<br>");', 'javascript');

список математических функций: http://www.spravkaweb.ru/jscript/objects/math/

Код:

unit Unit1;

interface

uses
  MSHTML,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type
  TFormMain = class(TForm)
    WebBrowser: TWebBrowser;
    Panel: TPanel;
    Edit: TEdit;
    Button: TButton;
    Memo: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  if WebBrowser.Document=nil then WebBrowser.Navigate('about:blank');
  while WebBrowser.Document=nil do Application.ProcessMessages;
end;

procedure TFormMain.ButtonClick(Sender: TObject);
begin
  (WebBrowser.Document as IHTMLDocument2).body.innerText:='';
  (WebBrowser.Document as IHTMLDocument2).parentWindow.execScript('var r='+Edit.Text+'; document.write(r+"<br>");', 'javascript');
  Memo.Lines.Insert(0, (WebBrowser.Document as IHTMLDocument2).body.innerText);
end;

end.

http://data.cod.ru/84745