Скачать: CL | DM;

сохранение содержимого 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

---

← →
Anatoly Podgoretsky ©   (2005-06-04 15:23) [6]

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

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

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

TextFile вестимо

---

← →
Anatoly Podgoretsky ©   (2005-06-04 15:24) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c