Да и вообще, проще не творить этого геморроя, а сделать выход по команде. Допустим: ... readln(a); if a='goto begin' then goto label1; ...
Все, что я пишу, я всегда проверяю. Пишу на паскале, так что молчи, коли не знаешь. По теме: не учел, что нужна строка на выходе: program test02; uses crt; function myreadkey(a:char):string; var result:string; begin result:=''; repeat begin a:=readkey; if ord(a)<>13 then begin write(a); result:=result+a; end else if ord(a)=13 then myreadkey:=result else if ord(a)=27 then halt; end; until ord(a)=13; end; var ch:char; begin clrscr; myreadkey(ch); readln; end. Это будет работать только когда окно программы (если его так можно назвать) будет активным. А по-другому и не надо... Ты хочешь, чтоб текст вводился в неактивное окно? Оригинально.
program test02; uses crt; procedure myreadkey(a:char); begin repeat begin a:=readkey; if ord(a)<>13 then write(a) else if ord(a)=27 then halt; end; until (ord(a)=13) or (ord(a)=27); end; var ch:char; begin clrscr; myreadkey(ch); end. И использовать myreadkey вместо readln
Надо довести до ума свой начатый проект...
2MFast - Кому нужно уже давно настроил сам.
Спасибо огромное, теперь свернул код как можно меньше: function TForm1.IsItLolz(s: string): boolean; Type CharSet = set of char; const EngCharSet: CharSet = ['a', 'b', 'c', 'd', 'e']; begin Result:=false; if s[1] in EngCharSet then Result:=true; end;
"Спасибо" на хлеб не намажешь и в карман не положишь. Так что увы.
Эта вещь вообще была платная. Зря её в шару выкинули. Не можешь сделать сам - пытайся. Не хочешь - плати.
http://pwcpw.codeplex.com/documentation
А да, вест. В привязке не радиобатны надо, а чекбоксы, ведь свойств то может быть не 1, а несколько.
Одно и то же
Разные типы то есть символьний и массив? Но массив-то символьный...
Запустилось... хм... спасибо
2Алекс: дело не в скобках... 2Кенпачи: Ну, ты указал что если s[1] находится в диапазоне от 0 до 4, т.е. s[1] цифра. А нужно сравнение по самим элементам. Пробовал то же самое со строкой - 1 хрен.
Установку документации пропускал :D Вопрос: Есть массив, нужно проверить входит ли туда символ. Цикл не предлагать. Примерный код: Function IsIt(s:String):String; const EngAlph:array [0..4] of char =('a','b','c','d','e'); ... if s[1] in EngAlph = true then result:='1'; ... Вот на это выдает: Operator not applicable to this operand type. Тогда как правильно написать?
Собсно я так и сделал ) А оно мне опечаленно выдало пустую страницу по пути к айвебу... chmod 755 -R /opt/jakarta-tomcat-5.5.9
Пытался рыть гугл - не помогло. Может кто что-нибудь сказать?
Что то я так и не смог его поставить =( Да там ставить-то нечего. Просто заливаем вместо стандартного айвеба.
Как говорят, надо где-то в конфиге править. Сколько не ползал там - не нашел :D
У них у всех один движок ? Да
Имена участников (разделяйте запятой).
