подсчет количества символов через dll

[a_n_n_a]

Здравствуйте=) Я опять с dll=) надо посчитать количествоа символов в МЕМО через dll=)
У меня есть Главная форма, Dll и форма в ней=) На главной форме Memo и кнопка подсчета, которая вызывает форму dll.
Вот код:
Dll

library dllforms;

uses
  SysUtils,
  Classes,
  Forms,
  DllFormUnit in 'DllFormUnit.pas' {Form2};

{$R *.res}
  
function ShowForm2 : Integer; stdcall;
var Form2 : TForm2;
begin 
  Form2 := TForm2.Create(Application);
  Result := Form2.ShowModal;
  Form2.Free;
end;  

exports ShowForm2;
begin
end.

Форма в ней:

unit DllFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var  i,k,w,b: integer;
begin
   k:=Form1.Memo1.Lines.Count-1;
   w:=0;
   for i:= 0 to k do
   begin
       b:=IntToStr(Length(Memo1.Lines.Text));      
       for j:=1 to b do
       begin
          if Pos(Edit1.Text, Form1.Memo1.Lines[i,j])>0 then
          w:=w+1;
       end;
   end;
   Label2.Caption:='Количество вхождений символа '+Edit1.Text+ 
   'равно '+IntToStr(w);
   Edit1.Text:='';
end;

end;

end.

Моя форма обращается (должна=)) к вызывающей, к полю MEMO и считае кол-во строк, символов.
Я знаю. что процедура неправильная..... Как правильно обратиться в МЕМО???

[fbus]

не понял почему объявлена форма2

var
  Form2: TForm2;

а обращаетесь к форме1?

k:=Form1.Memo1.Lines.Count-1;

если мемо на другой форме то нужно включить это тюнит в раздел uses после {$R *.dfm}

Uses Unit1;

тут

  b:=IntToStr(Length(Memo1.Lines.Text));

работать не будет. Length - это Integer. b объявлена как integer. Так что

  b:=Length(Form1.Memo1.Lines.Text);

кстати если нужно просто узнать сколько символов в memo можно воспользоваться просто:

var a:integer;
...
a:=Length(Memo1.text);
...

[a_n_n_a]

вот изменила процедуру.....
Все равно не считает.... ругается=)))

procedure TForm2.Button1Click(Sender: TObject);
var  i,k,j,w,b: integer;
begin
   k:=Length(Form1.Memo1.text);
   w:=0;
   for i:= 0 to k do   {количкство строк}
   begin
         if Pos(Edit1.Text, Form1.Memo1.Lines[i])>0 then
         w:=w+1;
   end;
   Label1.Caption:='Количество вхождений символа '+Edit1.Text+' рано '+IntToStr(w);
   Edit1.Text:='';
end;

[Stilet]

ругается=)))

Какими словами?

[a_n_n_a]

Access violation at address 00380136 in module 'dllforms.dll'. Read of address 000002F8 - во как=))))))

[Stilet]

Аня, прикрепи сюда архив проекта, ато навскидку так сказать не всегда удается, учитывая что с контролами в ДЛЛ нужно работать осторожно.

[a_n_n_a]

Вот мое "творение"=)

[Stilet]

Аня, вот я твой код подправил, но думаю что стоило бы по другому тебе делать:
Форма ДЛЛ:

unit DllFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   m:pchar;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

Uses Unit1;
           {o-}
procedure TForm2.Button1Click(Sender: TObject);
var  i,k,j,w,b: integer; s:string;mm:TStringList;
begin
//  s:=Form1.Memo1.text;
mm:=TStringList.Create;
 Edit1.Text:=m;
mm.Text:=m;
   k:=Length(m);
   w:=0;
   for i:= 0 to mm.Count-1 do
   begin
         if Pos(Edit1.Text, mm[i])>0 then
         w:=w+1;
   end;

   Label1.Caption:='Количество вхождений символа '+Edit1.Text+' рано '+IntToStr(w);
   Edit1.Text:='';
mm.Free;
end;

end.

Проект

function ShowForm2(am:pchar) : Integer; stdcall; external 'dllforms.dll';

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
     ShowForm2(pchar(Memo1.Text));
end;

ДЛЛ:

function ShowForm2(am:pchar) : Integer; stdcall;
var Form2 : TForm2;
begin
  Form2 := TForm2.Create(Application);
  form2.m:=am;
  Result := Form2.ShowModal;
  Form2.Free;
end;

Насколько я понял твою задачу можно ее решить проще.

[a_n_n_a]

ShowForm2(pchar(Memo1.Text));
ошибку почему то показывает на этом слове=)))

[Stilet]

Ну и когда мы признаем отсутствие телепатических возможностей у месного населения?