Создание Dll библиотеки

@Slavan71rus · Регистрация: 26.01.2014

Студворк — интернет-сервис помощи студентам

проблема с выводом результата на экран. Библиотку нужно создать для функции nalichie

Delphi

  Function nalichie (a,b: array of real; n: integer): Boolean;
  var
     i: Longint;
 
  begin
     Result:= True;
     i:= 0;
 
 
   repeat
   if a[i] = b[i] then Result:= False
   else i:=i+1;
   Until (i>n) or (Result= False);
 
    if Result then
    ShowMessage ('Â ìàññèâàõ íåò ðàâíûõ ýëåìåíòîâ')
    else
    ShowMessage ('Â ìàññèâàõ åñòü ðàâíûå ýëåìåíòû');
  end;
 
  procedure TForm1.Button3Click(Sender: TObject);
  var
     i: Longint;
 
  begin
   n:=10;
     SetLength(a,n);
     SetLength(b,n);
   for i:=0 to n-1 do
      a[i]:= StrToFloat (StringGrid1.cells[i,0]);
   for i:=0 to n-1 do
      b[i]:= StrToFloat (StringGrid2.cells[i,0]);
    nalichie (a,b,n)
end;
end.

@mss · 04.02.2014, 21:15

Сообщение от Slavan71rus

проблема с выводом результата на экран

Убери вывод на экран - и вот уже не по кр.мере пол-проблемы.

@Slavan71rus · 04.02.2014, 21:17 **[ТС]**

сделал примерно так
Поместил в библиотеку

Delphi

  Function nalichie (a,b: array of real; n: integer): Boolean;
  var
     i: Longint;
 
  begin
     Result:= True;
     i:= 0;
 
 
   repeat
   if a[i] = b[i] then Result:= False
   else i:=i+1;
   Until (i>n) or (Result= False);
   end;
exports nalichie;
 
begin
end.

после чего импортировал её в программу

Delphi

  Function nalichie (a,b: array of real; n: integer): Boolean;
external 'Project2.dll';
 
  procedure TForm1.Button3Click(Sender: TObject);
  var
     i: Longint;
 
  begin
   n:=10;
     SetLength(a,n);
     SetLength(b,n);
   for i:=0 to n-1 do
      a[i]:= StrToFloat (StringGrid1.cells[i,0]);
   for i:=0 to n-1 do
      b[i]:= StrToFloat (StringGrid2.cells[i,0]);
    nalichie (a,b,n)
end;
    if Result then
    ShowMessage ('Â ìàññèâàõ íåò ðàâíûõ ýëåìåíòîâ')
    else
    ShowMessage ('Â ìàññèâàõ åñòü ðàâíûå ýëåìåíòû');
end.

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

@cotseec · 04.02.2014, 21:19

Delphi

1	if nalichie (a,b,n) then

@Slavan71rus · 04.02.2014, 21:24 **[ТС]**

Спасибо за ответ но при компиляции программы она выдаёт ошику
[Error] Unit1.pas(51): Declaration expected but 'IF' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
выделяя красным 18 строчку

@cotseec · 04.02.2014, 21:27

и правильно выделяет, писать надо в обработчике

Delphi

procedure TForm1.Button3Click(Sender: TObject);
  var
     i: Longint;
 
  begin
   n:=10;
     SetLength(a,n);
     SetLength(b,n);
   for i:=0 to n-1 do
      a[i]:= StrToFloat (StringGrid1.cells[i,0]);
   for i:=0 to n-1 do
      b[i]:= StrToFloat (StringGrid2.cells[i,0]);
   if nalichie (a,b,n) then......//<---------HERE
end;

@mss · 04.02.2014, 21:27

Сообщение от Slavan71rus

она выдаёт ошику

Значит не в то место вставил.
Выняй оттуда и суняй в другое место.

@cotseec · 04.02.2014, 21:30

Не по теме:

mss, куда пропадали? как скучен мир без ваших реплик :good:

@Slavan71rus · 04.02.2014, 21:32 **[ТС]**

Ура заработала !!!

Delphi

  Function nalichie (a,b: array of real; n: integer): Boolean;
external 'Project2.dll';
 
  procedure TForm1.Button3Click(Sender: TObject);
  var
     i: Longint;
 
  begin
   n:=10;
     SetLength(a,n);
     SetLength(b,n);
   for i:=0 to n-1 do
      a[i]:= StrToFloat (StringGrid1.cells[i,0]);
   for i:=0 to n-1 do
      b[i]:= StrToFloat (StringGrid2.cells[i,0]);
    if nalichie (a,b,n) then
      ShowMessage ('Â ìàññèâàõ íåò ðàâíûõ ýëåìåíòîâ')
    else
    ShowMessage ('Â ìàññèâàõ åñòü ðàâíûå ýëåìåíòû');
end;
end.

Спасибо вам за помощь многократно!!!!!!

Добавлено через 48 секунд
Чтоб бы я без вас делал.....

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	04.02.2014, 21:15	2
	Сообщение от Slavan71rus проблема с выводом результата на экран Убери вывод на экран - и вот уже не по кр.мере пол-проблемы. 1

@Slavan71rus 0 / 0 / 1 Регистрация: 26.01.2014 Сообщений: 18
	04.02.2014, 21:24 [ТС]	5
	Спасибо за ответ но при компиляции программы она выдаёт ошику [Error] Unit1.pas(51): Declaration expected but 'IF' found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' выделяя красным 18 строчку 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	04.02.2014, 21:27	7
	Сообщение от Slavan71rus она выдаёт ошику Значит не в то место вставил. Выняй оттуда и суняй в другое место. 0

@cotseec
	04.02.2014, 21:30 #8
	Не по теме: mss, куда пропадали? как скучен мир без ваших реплик :good: 1

	04.02.2014, 21:32

Опции темы

Создание Dll библиотеки

Решение