forum.boolean.name - сохранение и загрузка!

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - сохранение и загрузка! (http://forum.boolean.name/showthread.php?t=4376)

сохранение и загрузка!

Я делаю форму с текстовым окном. Мне надо, чтобы при загрузки в этом текстовом поле появлялась надпись. Я ее изменяю и нажимаю клавишу сохранить и сохраняется новый текст. Потом я захожу в программы и вижу в текстовом поле текст который сохранял.

За ранее благодарю!:"(

Re: сохранение и загрузка!

Примерно так:

Код:

program RS_x;

var

etext:integer;

rs:recordstore;

buf:string;

cmok:command;

idx:integer;

cmexit,clicked:command;

begin

rs:=openrecordstore('TEXT');

showform;

etext:=formaddtextfield('Текст','',20,tf_any);

cmok:=createcommand('OK',cm_ok,0);

cmexit:=createcommand('EXIT',CM_EXIT,0);

addcommand(cmok);

addcommand(cmexit);

buf:=readrecordstoreentry(rs,1);

formsettext(etext,buf);

repeat

clicked:=getclickedcommand;

if clicked=cmok then

begin

if readrecordstoreentry(rs,1)='' then

idx:=addrecordstoreentry(rs,formgettext(etext)) else

modifyrecordstoreentry(rs,formgettext(etext),1);

end;

until clicked=cmexit;

closerecordstore(rs);

end.