VPF::Проблемы с юнитами - Форум программистов

svarogik

Дата 10.6.2006, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

Код


unit typest;
interface

type

tstack=^elem;

elem= record
data:integer;
next:tstack;
end;



procedure prstack(st:tstack);
procedure crst(var spis:tstack; n:integer);
procedure inst(var st:tstack; dt:integer);
procedure outst(var st:tstack;var dt:integer);


implementation




procedure prstack(st:tstack);

begin

while st<> nil do
begin
write(st^.data:3);
st:=st^.next;
end;

end;


procedure crst(var spis:tstack; n:integer);

var i:integer;
nach:tstack;
begin

nach:= nil;

for i := 1 to n do
begin
new(spis);
spis^.data:=random(n);
spis^.next:= nach;
nach:= spis;
end;

end;





procedure inst(var st:tstack; dt:integer);
var nach:tstack;
begin

nach:=st;

new(st);


st^.data:=dt;
st^.next:=nach;
nach:= st;

end;






procedure outst(var st:tstack;var dt:integer);
var nach:tstack;
begin
if st<> nil then
begin
dt:=st^.data;
st:=st^.next;

end;
end;


end.

вот создал модуль для стэка а он не пашет, когда его подключаешь. Я модуль запускал F9 нажимал, вроде все создалось, а когда компилирую прогу с подключеным модулем, он говорит, заметте, не "файл нот фаунд", а "unit name mismatch (unstack)". Файл зовется после компиляции unstack.tpu.
Подключаю в проге я его так "uses crt,unstack"

DemoCode

Дата 10.6.2006, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: нет
Всего: 41

Вроде как название юнита должно совпадать с его именем.
unit typest, так и файл должен называться также. typest.pas

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

svarogik

Дата 10.6.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

ага спасибо все пашет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »