Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2011, 22:17   #1
nupinh
Новичок
Джуниор
 
Регистрация: 21.05.2011
Сообщений: 1
По умолчанию incompatible types

Код:
Type mas=array[1..100,1..100] of real;
Type mass=array[0..1000] of real;

var
  Form1: TForm1;
  Dk:mas; pw,np:mass;
  Fr, Fw: TextFile;

implementation

uses Unit2;
function Dinkoeef(pw,np:mass; n,m:integer; var Dk:mas):real; external 'dinkoeff.dll' index 10;

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  i,j,n,m:integer;
  pwmin, pwmax, npmin, npmax, h1, h2: real;
begin
assignfile(fw,'a.txt');
 rewrite(fw);
 writeln(fw,strtofloat(Edit1.Text));
 writeln(fw,strtofloat(Edit2.Text));
 writeln(fw,strtofloat(Edit3.Text));
 writeln(fw,strtofloat(Edit4.Text));
 writeln(fw,strtofloat(Edit5.Text));
 writeln(fw,strtofloat(Edit6.Text));
  closefile(fw);


h1:=(pwmax-pwmin)/(n-1);
h2:=(npmax-npmin)/(m-1);

For i:=1 to m do begin Form1.StringGrid1.Cells[i,0]:=FloatToStrf(pwmin,fffixed,2,2);
pw[i]:=pwmin;
pwmin:=pwmin+h1;
end;

For j:=1 to n do begin Form1.StringGrid1.Cells[0,j]:=FloatToStrf(npmin,fffixed,2,2);
np[j]:=npmin;
npmin:=npmin+h2;
end;

Form1.StringGrid1.RowCount:=n+1;
Form1.StringGrid1.ColCount:=m+1;

Dinkoeef(pw,np,Dk);
For i:=1 to m do For j:=1 to n do begin Form1.StringGrid1.Cells[i,j]:=FloatToStrf(Dk[i+1,j+1],fffixed,7,4);
end;

  form1.StringGrid1.Cells[0,0]:='2n/p\w/p';
   end;

выдает ошибку Incompatible types 'mas' and 'integer'


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 21.05.2011 в 23:48.
nupinh вне форума Ответить с цитированием
Старый 21.05.2011, 23:18   #2
mss
Заблокирован
 
Регистрация: 27.05.2010
Сообщений: 1,099
По умолчанию

Цитата:
function Dinkoeef(pw,np:mass; n,m:integer; var Dk:mas):real; external 'dinkoeff.dll' index 10; // сколько формальныых аргументов у функции ?
..
Dinkoeef(pw,np,Dk); // сколько фактических ?
Считать до пяти умеешь ? Или только до трех ?))
mss вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Incompatible types MetR Помощь студентам 4 22.12.2011 18:31
Incompatible types TCanvas and TBitmap athleet Общие вопросы Delphi 2 13.07.2011 04:01
Incompatible types: 'Integer' and 'Extended'.. zak_87 Общие вопросы Delphi 3 06.10.2010 15:25
Delphi Incompatible types Iogan Gamba Puti Помощь студентам 1 19.06.2008 13:45