Создание файла

[Nowise]

Помогите с компиляцией в ехе.
Исходник программы работает нормально, создает несколько файлов командой rewrite, но ее Ехешник либо тутже вылетает, не создав файлы либо пишет ошбку dos'а.

[alexBlack]

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

Помогите с компиляцией в ехе.
Исходник программы работает нормально, создает несколько файлов командой rewrite, но ее Ехешник либо тутже вылетает, не создав файлы либо пишет ошбку dos'а.

А где же сам исходник, который нормально работает да еще и файлы создает. Посмотреть бы на это чудо.

Заодно приведи текст ошибки.

[Nowise]

http://dump.ru/files/n/n32449065/

[Nowise]

http://keep4u.ru/full/080404/eb2c5940cdd8984568/jpg

[Xardas]

Во-первых, в пероначальном виде программа даже не компилируется. У вас файл вещественных чисел, а записывать пытаетесь целые.

Вот работающий вариант

[alexBlack]

Посмотри на исправленный вариант:

var f: file of real;
    nam,n1,n2,n3: string;
    i: integer;
    r:real;
begin
   i := 0;
   while i<10 do begin
      i:=i+1;
      nam:=inttostr(i);
      assign(f, 'C:\'+nam); { Путь лучше указать. }
      rewrite(f);
      write(f, r);
      close(f);
  end;
end;

На будущее. Текст маленький. Не надо его прикреплять. Приведи прямо в тексте сообщения и выдели тэгами CODE (кнопочка вверху). Текст сообщения об ошибке лучше написать здесь же - ручками.

[umbsse]

а как насчет инициализации переменной i до цикла while???

[Nowise]

Спасибо, попробую.

В первом варианте - процессор VTFD обнаружил недопустимую инструкцию
Во втором - вылет.
У меня мож с компом чето не так или дос не поддерживается, хотя вроде проги работают.