помогите с кодом мп вылетает

[JACUK]

Пробую компилить вот такой код и мп вылетает

program file;
begin
var path:string;
function CreateFile(file_name,text:String):path;
	begin
		jsr75.write_file(string file_name, string text);
		path:=jsr75.get_files_with_path(path);
	end;
end.

[ViNT]

1. Лучше не использовать file как имя программы, это заразервированное слово.
2. Если используется библиотека, ее надо прилинковать к проекту:

program test;
uses jsr75; 


3. А вот это откуда?

jsr75.write_file(string file_name, string text); 


нужно просто

jsr75.write_file(file_name, text); 


компилятор типы и так знает, кстати, скорее всего из-за этого и летит.

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.

[JACUK]

Побую сделать как ты говориш,все равно вылетает!!!

[JACUK]

Здесь есть кто нибуть???????

[Tadeus]

RTFM: надо поставить совместимость с Win98

[JACUK]

Tadeus,поставил совместимость и помогло,лови +!Одно плохо при каждом запуске мп,вылазить окошко с какойто ошибкой-надоедает каждый раз нажимать ок!

[odd]

Сообщение от JACUK

Tadeus,поставил совместимость и помогло,лови +!Одно плохо при каждом запуске мп,вылазить окошко с какойто ошибкой-надоедает каждый раз нажимать ок!

Озвучь текст ошибки, будем думать в чем причина.