Помогите плиз, никак не могу прогу заставить свой же файл прочест

← →
Resvald © (2007-02-26 20:03) [0]

Перепробовал все что можно, она постоянно выкидывает сообщение об ошибке, код 32 (DOS)

← →
FIL-23 © (2007-02-26 20:19) [1]

ты может сначало кусочик программы покажешь, ну хотябы где ты фаил сначало создаещь а потом пытаешься его открыть

← →
Resvald © (2007-02-26 20:41) [2]

procedure TForm6.Button1Click(Sender: TObject);
Const
Popitka=(Proba+".txt");
begin
ChDir(Qwert); //возвращаюсь в родной каталог
Proba:=(Proba+".txt");
AssignFile(Faila,Proba);
Rewrite(Faila);
Write("Ну хоть щас получится?Спаси Род!!!")
end;

Где Faila-файловая переменная, проба-String с именем файла и расширением(переменная)

← →
Resvald © (2007-02-26 20:46) [3]

GetDir(Qaz,Qwert);
Proba:=Edit1.Text;
FileCreate(Proba+".txt");
MkDir(Edit1.Text);
ChDir(Qwert)

← →
Resvald © (2007-02-26 20:47) [4]

"n я так её создаю, тока в другой форме

← →
FIL-23 © (2007-02-26 21:17) [5]

че за каша, .... ты создаешь фаил и сразу пытаешся его считать. ща скину пример создания типизированного файла

← →
RASkov (2007-02-26 21:23) [6]

> [2] Resvald © (26.02.07 20:41)

> [3] Resvald © (26.02.07 20:46)

Чёт, ерунду какую-то понаписал....
Хотел ответить, но незнаю с чего начать....

> [5] FIL-23 © (26.02.07 21:17)
ты создаешь фаил и сразу пытаешся его считать

Это гдейто видно? Ну давай кидай ему пример...

← →
FIL-23 © (2007-02-26 21:27) [7]

type spisoc=record PAROL_VHODA:shortstring; //ДЛЯ ВХОДА К ПРЕПОДАМ kolvo_prepodov:byte; //сколько преподов login:shortstring; //их имя password:shortstring; //их пароль hifr:longint; end; spisoc_mas=array[1..255]of spisoc; ...... var f:file of spisoc_mas; sav_spisoc:spisoc_mas; zakrit:integer; ........... createdir(extractfilepath(application.ExeName)+edit1.Text); // создаем папку zakrit:=filecreate(extractfilepath(application.ExeName)+edit1.Text+"\"+"spisocpedmetov_"+edit1.Text+".txt"); fileclose(zakrit); //вот здесь обязательно после создания файла нужно его закрыть assignfile(f,extractfilepath(application.ExeName)+edit1.Text+".txt"); reset(f); read(f,sav_spisoc); closefile(f); ;

← →
RASkov (2007-02-26 21:30) [8]

я плакалЪ!!!

> Resvald (26.02.2007 20:41:02) [2]

А файл Пушкин будет закрывать?

Помогите плиз, никак не могу прогу заставить свой же файл прочест Найти похожие ветки