сохранение текста в файл!!!

[AK BULLETS]

Файл существует.

PROCEDURE WRITELN_FILE(t:string);
var
strDir:string;
infile: TextFile;
begin
getdir(0,strDir);
AssignFile(infile, strDir+'\BD_puth.txt');
ReWrite(infile);
writeln(infile, t);
closefile(infile);
end;

- Почему не работает? Не сохраняется текст в файле!(

[ProgDel]

Попробуй две вещи

PROCEDURE WRITELN_FILE(t:string);
var
strDir:string;
infile: TextFile;
begin
getdir(0,strDir);
AssignFile(infile, strDir+'\BD_puth.txt');
ReWrite(infile);
write(infile, t);
closefile(infile);
end;

и ещё

PROCEDURE WRITELN_FILE(t:string);
var
strDir:string;
infile: TextFile;
begin
getdir(0,strDir);
AssignFile(infile, strDir+'\BD_puth.txt');
openFile(BD_puth.txt,$0001);
writeln(infile, t);
closefile(infile);
end;

[DeKot]

В строке

AssignFile(infile, strDir+' :\BD_puth.txt');

если речь идет о директории диска (C: , D: ).
Еще ошибка может быть в переменной самого текста. Откуда и как Вы берете текст t: string; ?
Во вложении полный пример приложения. Посмотрите.