Re: Помогите начинаешему ЯВеру!
Пример работы с текстом:
program text;
uses mfs;
var
buf,fname:string;
efile:integer;
ok,cancel,clicked:command;
begin
showform;
ok:=createcommand('OK',cm_ok,0);
cancel:=createcommand('Отмена',cm_cancel,0);
addcommand(ok);
addcommand(cancel);
efile:=formaddtextfield('Файл:','',128,tf_any);
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
fname:=formgettext(efile);
buf:=mfs.read_file(fname);
showtextbox('Редактирование',buf,20000,tf_any);
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
showform;
buf:=gettextboxstring;
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
fname:=formgettext(efile);
mfs.write_file(fname,buf);
end.
Примерно так(могут быть небольшие опечатки).
На счет русского-скорее всего проблема в ленгпаке мобилы.
|