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.