forum.boolean.name - Маленикая программа

forum.boolean.name (http://forum.boolean.name/index.php)

- Прочие вопросы (http://forum.boolean.name/forumdisplay.php?f=50)

- - Маленикая программа (http://forum.boolean.name/showthread.php?t=16856)

Маленикая программа

Здравствуйте, нужна помощь! Раньше программировал на мидлете, а сейчас почти все забыл. Помогите пожалуйста вспомнить прошлое - тоесть нужно создать программу такую, например: Создать текстовое поле и если в текстовом поле набрать(написать) например: '11.12.32.33' или 'Hello' то пусть выведит drawText ('error', 0, 0);
Очень будет полезной програссой - для роботы прочей.
За ранее спасибо!!!

Ответ: Маленикая программа

На j2me могу написать.

Ответ: Маленикая программа

Сначала залезь во встроенный хелп МидлетПаскаля, и полностью прочти его.
Это будет твоя Библия на все ближайшее время.
Затем -> интенсивное использование метода "простого научного тыка".
И только потом задавай вопросы на форуме.

Ответ: Маленикая программа

PHP код:


		
			
Program example;
var
itemId,i,id : integer;
cmdNext : command;
cmdQuit : command;
name : string;
slovo1,slovo2:array [0..1] of string;

procedure loading;
begin
i:=0;
slovo1[i]:='Привет';slovo2[i]:='Hello'; i:=i+1;
end;

begin
loading;
ShowForm;
itemId := FormAddTextField('Введите слово', '', 20, TF_ANY);
cmdNext := CreateCommand('ОК', CM_OK, 1);
AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext;
name := FormGetText(itemId);
for i:=0 to 1 do if slovo1[i]=name then begin id:=i; break; end;
ShowCanvas;
DrawText(slovo2[id], 0, 0);
Repaint;
cmdQuit := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(cmdQuit);
repeat until GetClickedCommand = cmdQuit;
end.

slovo1,slovo2:array [0..1] of string; здесь указываем сколь слов.

вот код. кому помогло жмите полезно!

Ответ: Маленикая программа

эмм..

1) Я так понял, программа ищет в массиве слова, совпадающие с введенным в форму. Но если ввести слово, ни с чем не совпадающее, все равно будет возвращено значение slovo2[0]

2) i=0 можно и не писать.

3) Форматирование кода - полезный друг.

Вот более или менее правильный код

PHP код:


		
			
Program example;

var



itemId,i,id : integer;

cmdNext, cmdQuit: command;

name : string;

slovo1:array [0..1] of string;

slovo2:array [0..1] of string;



procedure loading;

begin

    i:=0;

    slovo1[i]:='Привет'; slovo2[i]:='Hello'; i:=i+1;

end;



begin

    id:=-1;

    loading;

    

    ShowForm;

    itemId := FormAddTextField('Введите слово', '', 20, TF_ANY);

    cmdNext := CreateCommand('ОК', CM_OK, 1);

    AddCommand(cmdNext);



    repeat until (GetClickedCommand = cmdNext);



    name := FormGetText(itemId);



    for i:=0 to 1 do

    if slovo1[i]=name then

    begin 

        id:=i;

        break;

    end;



    ShowCanvas;



    if id<>-1 then DrawText(slovo2[id], 0, 0); else DrawText('Слово не найдено', 0, 0);

    Repaint;



    cmdQuit := CreateCommand('Выход', CM_EXIT, 1);

    AddCommand(cmdQuit);

    repeat until (GetClickedCommand = cmdQuit);

end.