Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

помогите процедуру объявить, оно матерится почему-то... [D4, Win95/98]

vilfred © (2002-10-07 23:08:00)
Вобщем есть процедуры gauss и F, они вызываются из процедуры FormActivate, короче, я не знаю, как их объявить, там ведь есть еще константы.

или эту процедуру нужно включить как внешнюю программу?

скажите, что нужно сделать, что писать, как объявлять?

программа по ссылке: http://genphys.phys.msu.su/~dmitriy/site/source.txt

Спасибо!

Driver (2002-10-08 14:23:00) [1]
2 han_malign
Точно, а я думаю откуда ошибка:
[Error] Unit1.pas(35): Procedure cannot have a result type

Спасибо за поправку! Сказывается конец рабочего дня :)

Игорь Шевченко (2002-10-08 14:16:00) [2]
Клинический случай

han_malign (2002-10-08 14:13:00) [3]
2 Driver
это он уже делал - но почему никто принципиално не замечает procedureGauss(...) : integer;

Driver (2002-10-08 14:07:00) [4]
Наверно ошибка в этом месте

procedure Gauss(n,m: Byte; x,y: Vect; c: Vect_m): integer;
-->procedure F(m: Byte; x: Real; c: Vect_M): Real;
// function F(m: Byte; x: Real; c: Vect_M): Real;

процедура не может возвращать что-то, сделай ее функцией как закоментарено ниже и все будет ок

vilfred (2002-10-08 14:00:00) [5]
у меня по ссылке http://genphys.phys.msu.su/~dmitriy/site/source.txtвот код, который ерроры дает...

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

Best Before 2024 (2002-10-08 13:44:00) [6]
Вообще-то объявляют так -
procedure P;
function F : Integer;

Но приведите побольше кода, пожалуйста

vilfred (2002-10-08 13:38:00) [7]
объявил перед TForm, но все равно не пашет, пишет ерроры

[Error] Unit1.pas(35): Procedure cannot have a result type
[Error] Unit1.pas(36): Procedure cannot have a result type
[Error] Unit1.pas(72): Procedure cannot have a result type
[Error] Unit1.pas(103): Procedure cannot have a result type
[Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

менял процедуры на функции и обратно, не помогает, все одно и то-же.

Рыжик (2002-10-08 11:09:00) [8]
Объявления типов
type
Vect = array[0..7] of real;
Vect_M = array[0..4] of real;
Matr = array[0..4,0..4] of real;
надо поставить перед объявлением функций. В данном случае перед
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
......

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »