Помогите начинаешему ЯВеру!

[BASSON XVI]

Здрасе я очень плохо знаю паскаль да и вообще языки программирования!
Вот появилась идея написания простенького мидлета так сказать TXT EDITOR-a
Почитал справку от МидлетПаскаля немного не понял да там и всего толком не написано!
Вообщем решился написать вот 2 часа бездарной работы и я заглох на этом !!!

ВОТ КОД В ФОРМАТЕ TXT ВСТАВЛЯЕМ ЕГО В ПАСКАЛЬ И ПРОВЕРЯЕМ!!!

Скомпилировать не получилось оно и понятно написано не бох весть что!(да еще и в первы раз, так сказать первы блин комом!) Выдола 2 ошибки и 9 игноров! Что делать Помогите Плиз!!!
Везде писал коды клавиш такие CM_EXIT и так далее потому что не знаю как назначить на софт клавиши для Моторолы функции! Так же не знаю как сделать что бы из мидлета выходило и сохраняло файл под своим названием где по желаешь!
Можете подсказать как органезовать на правую софт клавишу удаление одной буквы ну типа BacSpace! Так же как организовать открытие файла txt! Так же не знаю как сделать что бы менялся текст то есть итап обычный рус., англ. у меня картинки их есть так что мне надо только код для этого!

Вот что требовалось от мидлета!
Зайти =>пописать(выйти без сохр. по надобности! )=>Сохранить =>Выйти!
Зайти =>Открыть сохр txt =>Пописать по редактировать =>Сохранить =>Выйти!

Не предлагать мне приложение Microsoft Word оно у меня не идет да и не нравиться оно мне! Хотя принципе сделано на высшем уровне просто не для меня!

Очь прошу сильно не пинайте и не ругайте только начинаю делать Ява на паскале лучше помогите чем могите! Заранее спасибо!

[ViNT]

Без библиотек это на MP не сделать.
Минимум, нужна MFS-для файловой системы(если моторола).
Софт-кнопки в mp не детектируются, хотя гдето видел соотв. либу.
Вот мой пример на работу с MFS, может поможет.

[BASSON XVI]

У меня ессть все баблиотек на Моторолу это и IO и FileSystemAccessor посмотрю на твои може что полуситься! Ты знаеш где сть хороший учебник на МИдлет паскаль а то стандарт это только пару просцедур и функций!

[ViNT]

В стандартном описано все что есть. А остальные только через либы.

[BASSON XVI]

Понятно вообщем жду ещё помощи!!!

[BASSON XVI]

Люди ну помогите пожайлуста загорелось мне постичь МР!! Я обновил код! Теперь 2 ошибки и 1 варинг! Помогите найти в чом дело? Так же ну помогите с ФС как сохранять и открывать текстовые файлы с тела обьясните хоть в краце!

[ViNT]

Читаешь файл в строку, грузишь в textbox, редактируешь, сохраняешь содержимое textbox'а в строку, пишешь строку в файл.
Поиск файлов в папке есть в моем примере.

[BASSON XVI]

А ты ба не мог не много по понятней с маленьким примером это обьяснить!! Так как у меня даже нет пыта работы на паскале!

И по чему у меня нельзя писать названия русские на клавиши! МР рууский может из за того что шерифт смнеил! если да то скади какой у тебя стоит!

[ViNT]

Пример работы с текстом:

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.

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

На счет русского-скорее всего проблема в ленгпаке мобилы.

[BASSON XVI]

Все вечерком посижу по думаю! По тестю!

[BASSON XVI]

Пример работы с текстом:
program text;
uses mfs;

var
........
Этот вот пример что то не работает! Пробовал сделал его приложением закинул на диск /c/ тексьовый документ p.txt там написанно было жве буквы латиницой!! В мидлете как только не прописывал и так /c/p.txt и так /c/p! В текст в мидлете не отображался и даже еслия пытался это сохранить документ не сохранялся! я кидал в папку классы IO мотороловские!
Обьясните почему не чего не получилось!!!
И еще скажте как мне это все разбить на три процедуры:

procedure textopen;
// Здесь надо открать текстовый документ
procedure textBox;
//Здесь надо надо его оттобразить в форме и отредоктировать!
procedure textSave;
//Зедсь на до его сохранить!

[ViNT]

А какая мобила?

[BASSON XVI]

Моторола Л6! У неё помойму MOTOFS!

[ViNT]

1. Если нет exception на обращение к классам, то скорее всего motofs.
2.Необходимо дать приложению доступ к ФС.
3.Нужно точно соблюдать регистр(нельзя писать file.TXT вместо file.txt.

Вот кое что исправил(синим цветом) но это на суть не влияет, всеравно надо дать доступ к ФС:

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('Файл:','/a/mobile/text.txt',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,2000,tf_any);

addcommand(ok);
addcommand(cancel);


repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(200);
until clicked=ok;
showform;

buf:=gettextboxstring;

repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(200);
until clicked=ok;
fname:=formgettext(efile);


if mfs.file_exists(fname)=1 then
mfs.delete_file(fname);//иначе просто допишет текст в конец файла


mfs.write_file(fname,buf);
end.

[BASSON XVI]

Что значит дать доступ к Фс у меня на прошивке доступ к ФС открыт! Я также забрасывал туда что требовал эмулятор а именно! IO com=>motorola=>io=>falesys......!!!!!! Ща потестю что ты исправил!

Не не все равно неработает! регистр соблюдал! У же кодрировал и в ANSI И в Уникоде! Не помогает! А у тебя то это работает?