Как создать Txt файл

[lOSK]

я извиняюсь если такая тема уже была, но мне срочно нужна ваша помощь.
мне в delphi нужно Создать txt файл в определенной директории и (неменее важно) вписать в этот файл свой текст.
в общем, господа программисты, выручайте только плиз, распишите все подробно, с комментариями.

 

[etc]

"Прощание славянки" вам в помощь.

 

[lOSK]

что такое "прощание словянки"?
ну плиз помогите, срочно надо. гугл не помог

 

[etc]

что такое "прощание словянки"?

Гимн на провадах, в армию.

 

[slavas]

Все просто. На форму бросаешь Memo и кнопку Button.

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('c:\определенная директория\твой_текст.txt');
end;

Запускаешь, печатаешь текст в Memo(можно из какой-нибудь переменной его там сохранить), нажимаем кунопку и всё.
Какие еще здесь комментарии? Единственное - эта определенная директория должна обязательно существовать, хотя бы пустая.

 

[astronom]

Если надо вписать какой-либо текст, независимо от визуальных компонентов (например, лог-файл), то:
1. Объявить переменную типа TextFile (иожно просто Text);
2. Связать эту переменную с тем файлом, который необходимо открыть: AssignFile(переменная, путь_к_файлу);
3. Открыть файл для записи: Append(переменная) - если нужно добавить строки в ранее созданный файл (в его конец) или Rewrite(переменная) - если нужно перезаписать ранее созданный файл или создать новый. При использовании Rewrite вся ранее (до применения команды) записанная в файл информация, уничтожается.
4. Записать необходимый текст в файл: Writeln (строка, переменная).
5. Закрыть файл: CloseFile(переменная);

Примерчик:

Ссылка скрыта от гостей

 

[lOSK]

всем кто помогал спасибо! а вот etc, без обид, я бы посоветовал не флудить, раз нечего сказать. на другом форуме мне написали код. выкладываю его, может кому-нибудь пригодиться:

 Var f:System.Text; //класс текстового файла 
begin 
AssignFile(f,'<путь и имя файла н.п. С:\temp\1.txt>'); //регистрация файла 
Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться) 
//Reset(f); //просто открываем файл для редактирования 
WriteLn(f,'My first file!!!'); //записываем строку в файл с переводом курсора на новую строку 
Write(f,'My first file!!!'); //записываем строку в файл без перевода курсора на новую строку 
CloseFile(f); //закрываем файл 
end;

 

[astronom]

Вроде бы Reset - открытие файла только на чтение? Т.е. его редактировать в этом случае не получится.

 

[lOSK]

astronom у меня все получилось....

 

[etc]

у меня все получилось....

Не правда, это не у вас.