Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];
ВнизПомогите плиз, никак не могу прогу заставить свой же файл прочест Найти похожие ветки
← →
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]> [7] FIL-23 © (26.02.07 21:27)
Ужас какой...
← →
Amoeba © (2007-02-26 21:50) [9]я плакалЪ!!!
← →
Anatoly Podgoretsky © (2007-02-27 00:39) [10]> Resvald (26.02.2007 20:41:02) [2]
А файл Пушкин будет закрывать?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.043 c