Показать сообщение отдельно
Старый 04.07.2007, 15:28   #9
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
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.

Примерно так(могут быть небольшие опечатки).

На счет русского-скорее всего проблема в ленгпаке мобилы.
(Offline)
 
Ответить с цитированием