Альтернативный экран ввода текста на Моторолах!!!

[MotoMustanger]

ресурс можно только вставить в jar файл через комп и считывать информацию из него. Изменять и создавать с помощью самой java проги его нельзя. Можно через recordstore:

var rs:recordstore;
buffer:string;
index:integer;
begin
  rs:=openrecordstore('buf');
  index:=addrecordstoreentry('buf','ТЕКСТ'); //записываем текст в хранилище под номером index
  buffer:=ReadRecordStoreEntry('buf',index);  //считываем текст в буфер из хранилища номер index
  closerecordstore('buf');
end;

[BASSON XVI]

Народ Можете мне показать пример!!! С этими «Ресурсовыми файлами» я то знаю как подключать его!!! А вот как его самому написать не знаю!!! Можно маленький пример с подробным описанием!! Или где моно про это почитать!! В прицепи мне нужен вход в Ресурсовый файл, там проверка на наличие в RS данных !! Если они есть то вывод их в основной код!!

П.С. Я не про те ресурсы!!!! ХАХА Я про то ч как написанна либа CRT!! Мне надо что то на подобе!!!

[BASSON XVI]

Не ну что мне катонить поможет!!!! Даст какуюнить инфу!!! Про либы написанные на пискале!!!

[BASSON XVI]

Как я понял про стандартные либи кторотые пишуться на паске мне не кто не что не раскажет!!!! Вопрос другой!! Моно ли в переменно buf в кторой текст найти определённую букву по счёту и удалить её или заменить??? если да то как примерчик маленький моно!!!!

[ViNT]

Можно так:

//Заменить 1-ю "t" в строке на "d"
buf:=setchar(buf,'d',pos(buf,'t'));

//Заменить все "t" на "d"
for i:= 0 to length(buf)-1 do
if getchar(buf,i)='t' then buf:=setchar(buf,'d',i);

[BASSON XVI]

Понимаеш в чем проблема у меня идейка! переделывать код набранной клавиши в изображение буквы!! А потом двигая курсором на экране удалать определённую избор буквы! и что бы она в buf удалялась!!!

[ViNT]

Тогда так:

function DelChar(s:string;idx:integer):string;
var tmp:string;
begin
tmp:=copy(s,0,idx-1);
tmp:=tmp+copy(s,idx,length(s));
DelChar:=tmp;
end;

Например

DelChar('stroka',4);

возвращает strka.

[BASSON XVI]

Ок спасибо! Что бы я без тебя делал!! А можно чем то на подобии этого кода заменять буквы в реестре!
И ещё вопросик как прочитать каждую букву или символ реестра и сопоставить ей изображение!

[BASSON XVI]

С сопостовлением кажеться я придумал а вот как мне добавлять букву после скажем 4 символов??

[ViNT]

Можно так:

function InsertChar(s:string;idx:integer;ch:char):string;
var tmp:string;
begin
tmp:=copy(s,0,idx);
tmp:=tmp+ch;
tmp:=tmp+copy(s,idx,length(s));
InsertChar:=tmp;
end;

[BASSON XVI]

мож пример я честно не врубаюсь я ещё паскаль не знаю в этом году буду учить!!! А можно как нить из изображения выризать куски мне надо из карты шрифтов вырезать буквы!!!!

[ViNT]

Например, если надо в строке '1245678' вставить символ '3' после второго символа, надо использовать функцию так:

var
buf:string;
...
begin
buf:='1245678';
buf:=insertchar(buf,2,'3');

На счет шрифтов есть стандартная функция ImageFromImage.
Использование описано в хелпе.

[BASSON XVI]

Можеш пример показать с ImageFromImage понимаеш в русскаом хелпе нет такого!! А в англ я слабо!!!

[ViNT]

var
src,dst:image;

begin
src:=loadimage('image.png');
//ImageFromImage(src:image;x,y,w,h:integer)-возвращает изображение из области с координатами x,y и размерами WxH изображения src.
dst:=imagefromimage(src,0,0,10,10);
drawimage(dst,20,20);

[BASSON XVI]

Все спасибо понял буду тестить!!!!