сохранение содержимого edit в файл

← →
Cijgan (2005-06-04 07:36) [0]

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

← →
Хинт © (2005-06-04 07:40) [1]

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

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

← →
Cijgan (2005-06-04 07:45) [2]

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

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

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

← →
Хинт © (2005-06-04 07:54) [3]

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 15:10) [4]

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

← →
Плохиш © (2005-06-04 15:14) [5]

250 Euro

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

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

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

TextFile вестимо

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

сохранение содержимого edit в файл Найти похожие ветки