Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз
помогите процедуру объявить, оно матерится почему-то... Найти похожие ветки
← →
vilfred (2002-10-07 23:08) [0]Вобщем есть процедуры gauss и F, они вызываются из процедуры FormActivate, короче, я не знаю, как их объявить, там ведь есть еще константы.
или эту процедуру нужно включить как внешнюю программу?
скажите, что нужно сделать, что писать, как объявлять?
программа по ссылке: http://genphys.phys.msu.su/~dmitriy/site/source.txt
Спасибо!
← →
Рыжик (2002-10-08 11:09) [1]Объявления типов
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;
......
← →
vilfred (2002-10-08 13:38) [2]объявил перед 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"
менял процедуры на функции и обратно, не помогает, все одно и то-же.
← →
Best Before 2024 (2002-10-08 13:44) [3]Вообще-то объявляют так -
procedure P;
function F : Integer;
Но приведите побольше кода, пожалуйста
← →
vilfred (2002-10-08 14:00) [4]у меня по ссылке http://genphys.phys.msu.su/~dmitriy/site/source.txt вот код, который ерроры дает...
короче эти процедуры самописные вызываются из какихто других процедур, им передаются параметры разных типав, а я похоже, не понимаю, как это сделать, чтобы отдать процедуре несколько параметров, и чтобы потом она их вернула....
← →
Driver (2002-10-08 14:07) [5]Наверно ошибка в этом месте
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;
процедура не может возвращать что-то, сделай ее функцией как закоментарено ниже и все будет ок
← →
han_malign (2002-10-08 14:13) [6]2 Driver
это он уже делал - но почему никто принципиално не замечает procedure Gauss(...) : integer;
← →
Игорь Шевченко (2002-10-08 14:16) [7]Клинический случай
← →
Driver (2002-10-08 14:23) [8]2 han_malign
Точно, а я думаю откуда ошибка:
[Error] Unit1.pas(35): Procedure cannot have a result type
Спасибо за поправку! Сказывается конец рабочего дня :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
