Запись в файл

[savaover]

Хелп!!! Как можно создать .txt файл и записать текст в него?

[Andry lomakin]

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;

[savaover]

I/O error 103 на месте WriteLn(f,'My first file!!!');
Write(f,'My first file!!!');
/horror

[Andry lomakin]

I/O error 103 на месте WriteLn(f,'My first file!!!');
Write(f,'My first file!!!');
/horror

Вот так попробуй
нужно нам помимо кнопки 2 Edit
edit1-поле пути к папке
edit2 - имя файла

var f:textfile;
s,s1,s2:string;
begin
assignfile(f,'edit1.text'+'\'+edit2.text);//откриваем файл
rewrite(f); // режим перезаписи. Замените ету строку на append(f) для ддозаписи
write(f,edit3.text); //edit3.text-текст для записи в файл.
closefile(f); // окончание роботы с файлом. Если не сделать ето, будет ошибка
ShowMessage('Сделано'); // вывести сообщения об успешной операции. Не обезательно.

[Mebius]

var
TxtFile:TStringList;
begin
TxtFile:=TStringList.Create;
try
TxtFile.Text:='текст';
TxtFile.SaveToFile('имя.txt');
finally
TxtFile.Free;
end;
end;


как один из вариантов)

[savaover]

var
TxtFile:TStringList;
begin
TxtFile:=TStringList.Create;
try
TxtFile.Text:='текст';
TxtFile.SaveToFile('имя.txt');
finally
TxtFile.Free;
end;
end;


как один из вариантов)

Не так не катит... Надо что бы файл не создавало заново, а записывало новую инфу на новую строку желательно!

Добавлено через 19 минут
Вот так попробуй
нужно нам помимо кнопки 2 Edit
edit1-поле пути к папке
edit2 - имя файла

var f:textfile;
s,s1,s2:string;
begin
assignfile(f,'edit1.text'+'\'+edit2.text);//откриваем файл
rewrite(f); // режим перезаписи. Замените ету строку на append(f) для ддозаписи
write(f,edit3.text); //edit3.text-текст для записи в файл.
closefile(f); // окончание роботы с файлом. Если не сделать ето, будет ошибка
ShowMessage('Сделано'); // вывести сообщения об успешной операции. Не обезательно.


Спс биг но как на другой строчке записавать?

Добавлено через 22 минуты
Вот так попробуй
нужно нам помимо кнопки 2 Edit
edit1-поле пути к папке
edit2 - имя файла

var f:textfile;
s,s1,s2:string;
begin
assignfile(f,'edit1.text'+'\'+edit2.text);//откриваем файл
rewrite(f); // режим перезаписи. Замените ету строку на append(f) для ддозаписи
write(f,edit3.text); //edit3.text-текст для записи в файл.
closefile(f); // окончание роботы с файлом. Если не сделать ето, будет ошибка
ShowMessage('Сделано'); // вывести сообщения об успешной операции. Не обезательно.


Спс биг но как на другой строчке записавать?

[Andry lomakin]

Попробуй
все так же 4 edita
var f:textfile;
s,s1,s2:string;
begin
assignfile(f,'edit1.text'+'\'+edit2.text);//откриваем файл
rewrite(f); // режим перезаписи. Замените ету строку на append(f) для ддозаписи
write(f,edit3.text); //edit3.text-текст для записи в файл.
write(f,edit4.text); //edit4.text-текст для записи в файл.
closefile(f); // окончание роботы с файлом. Если не сделать ето, будет ошибка
ShowMessage('Сделано'); // вывести сообщения об успешной операции. Не обезательно.
Может и запашет

[savaover]

Andry lomakin, Спс я уже докумекал как мне норм зделать. Можеш дать свой скайп?