| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сохранение содержимого edit в файл [D6, WinXP]

Cijgan ©   (2005-06-04 07:36:00) 

Не используя компонент мемо как можно сделать сохранение содержимого editв текстовый файл.

---

Anatoly Podgoretsky   (2005-06-04 15:24:00) [1]

Cijgan   (04.06.05 15:10) [4]
Тебе сюда http://podgoretsky.com/cgi-bin/dlcounter/npscnt?file=http://podgoretsky.com/ftp/Docs/Delphi/Podgoretsky/PasFiles.html&file_id=app-files

---

Anatoly Podgoretsky   (2005-06-04 15:23:00) [2]

Cijgan   (04.06.05 07:45) [2]
Я так понимаю F - имя файла,

Нет это сам файл (Паскаля)

подзабыл, а вот в var объявлять какой тип?

TextFile вестимо

---

Плохиш   (2005-06-04 15:14:00) [3]

250 Euro

---

Cijgan   (2005-06-04 15:10:00) [4]

Отлично, а как сделать чтобы каждый раз файл пополнялся содержимым Edit, а не заменялся, а также обеспечить не повторение данных, т.е проверка есть ли такое слово в файле или нет и выдать ошибку!
Заранее сенкьюверимач!!!!

---

Хинт   (2005-06-04 07:54:00) [5]

function SaveEdit(Edit:TEdit;fn:string):boolean;
var
F:TextFile;
begin
Result:=false;
AssignFile(F,fn);
{$I-}
Rewrite(F);
{$I+}
If IOResult=0 then
  begin
  WriteLn(F,Edit.Text);
  CloseFile(F);
  Result:=true;
  end;
end;

Вызывать так:
SaveEdit(Edit1,'C:\1.txt');

---

Cijgan   (2005-06-04 07:45:00) [6]

>Такой вариант не устраивает?
Устраивает любой вариант

AssignFile(F,'C:\file.txt');
Rewrite(F);
WriteLn(F,Edit.Text);
CloseFile(F);

Я так понимаю F - имя файла, подзабыл, а вот в var объявлять какой тип?

---

Хинт   (2005-06-04 07:40:00) [7]

AssignFile(F,'C:\file.txt');
Rewrite(F);
WriteLn(F,Edit.Text);
CloseFile(F);

Такой вариант не устраивает?

---

Наверх