[Помогите!] Запись в файл

[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!!!');

[Andry lomakin]

Цитата: Сообщение от savaover I/O error 103 на месте WriteLn(f,'My first file!!!'); Write(f,'My first file!!!');

Вот так попробуй
нужно нам помимо кнопки 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]

Цитата: Сообщение от Mebius var TxtFile:TStringList; begin TxtFile:=TStringList.Create; try TxtFile.Text:='текст'; TxtFile.SaveToFile('имя.txt'); finally TxtFile.Free; end; end; как один из вариантов)

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

Добавлено через 19 минут

Цитата: Сообщение от Andry lomakin Вот так попробуй нужно нам помимо кнопки 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 минуты

Цитата: Сообщение от Andry lomakin Вот так попробуй нужно нам помимо кнопки 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, Спс я уже докумекал как мне норм зделать. Можеш дать свой скайп?