Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Вниз
сохранение содержимого 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c
