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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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