Показать сообщение отдельно
Старый 05.11.2009, 22:22   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: помогите с кодом мп вылетает

1. Лучше не использовать file как имя программы, это заразервированное слово.
2. Если используется библиотека, ее надо прилинковать к проекту:
program test;
uses jsr75
3. А вот это откуда?
jsr75.write_file(string file_namestring text); 
нужно просто
jsr75.write_file(file_nametext); 
компилятор типы и так знает, кстати, скорее всего из-за этого и летит.

C функцией вообще все перепутано, возвращаемый тип должен быть не path(такого типа в программе вообще нет), а string, и присваивается значение не типу, а функции, т.е.
function CreateFile(file_name,text:String):string;
    
begin
        jsr75
.write_file(file_name,text);
        
CreateFile:=jsr75.get_files_with_path(path);
    
end
И еще, все функции и переменные объявляются до begin.

Советую, прежде чам писать программы ориентированные на работу с ФС, изучить основные принципы прграммирования на паскале и после этого особенности MP.
(Offline)
 
Ответить с цитированием