| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите плиз, никак не могу прогу заставить свой же файл прочест [D7]
Resvald © (2007-02-26 20:03:00)Перепробовал все что можно, она постоянно выкидывает сообщение об ошибке, код 32 (DOS)
Anatoly Podgoretsky (2007-02-27 00:39:00) [1]> Resvald (26.02.2007 20:41:02) [2]
А файл Пушкин будет закрывать?
Amoeba (2007-02-26 21:50:00) [2]я плакалЪ!!!
RASkov (2007-02-26 21:30:00) [3]> [7] FIL-23 © (26.02.07 21:27)
Ужас какой...
FIL-23 (2007-02-26 21:27:00) [4]
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:23:00) [5]> [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:17:00) [6]че за каша, .... ты создаешь фаил и сразу пытаешся его считать. ща скину пример создания типизированного файла
Resvald (2007-02-26 20:47:00) [7]"n я так её создаю, тока в другой форме
Resvald (2007-02-26 20:46:00) [8]GetDir(Qaz,Qwert);
Proba:=Edit1.Text;
FileCreate(Proba+'.txt');
MkDir(Edit1.Text);
ChDir(Qwert)
Resvald (2007-02-26 20:41:00) [9]procedure TForm6.Button1Click(Sender: TObject);
Const
Popitka=(Proba+'.txt');
begin
ChDir(Qwert); //возвращаюсь в родной каталог
Proba:=(Proba+'.txt');
AssignFile(Faila,Proba);
Rewrite(Faila);
Write('Ну хоть щас получится?Спаси Род!!!')
end;
Где Faila-файловая переменная, проба-String с именем файла и расширением(переменная)
FIL-23 (2007-02-26 20:19:00) [10]ты может сначало кусочик программы покажешь, ну хотябы где ты фаил сначало создаещь а потом пытаешься его открыть
| |
