Требуется помощь.

[Vilson]

Сообщение от Sherman

Этот код работаит? Помоему case понимает только цыфры :-D

Expression -> SimpleExpression [RelOp SimpleExpression]...

SimpleExpression -> ['-'] Term [AddOp Term]...

Term -> Factor [MulOp Factor]...

Factor -> Designator
-> UnsignedNumber
-> String
-> '(' Expression ')'
-> NOT Factor
-> '[' SetConstructor ']'

CaseStmt -> CASE Expression OF CaseSelector/';'...

ЗЫ Не путай FasrScript и Паскаль.

Добавлено через 6 минут

Сообщение от supernewbie

дело не в пакетах, я переставлял их там. Хоть какие ставь, case pck of просто не работает!!! Эта проверка не робит и все. Дело не в пакетах. Инфа 100%.

Ты так и не ответил - ники чаров у тебя какие, 01 и 02? на остальные вопросы ты тоже не ответил. Ладно, замени case на if

if FromServer and (ConnectName='01') then
begin
if (pck= '29 1C 58 90 49 00 00 00 00 4D BF FE FF 08 57 02 00 A0 F3 FF FF') then TimerPck.Enabled := True;
if (pck='29 1C 58 90 49 01 00 00 00 4D BF FE FF 08 57 02 00 A0 F3 FF FF') and (TimerPck.Enabled) then PckIn := True;
end;

Что теперь?

[Sherman]

Сообщение от Vilson

ЗЫ Не путай FastScript и Паскаль.

А чо их путать то. В итоге после куевой тучи оберток фастскриптовский case упретсо в паскалевский case, которому переданная в Expression строка не подходит, и сравнивая х.з. что (скорее всего указатель на эту самую строку) с х.з. чем (опять же с указателями на строки) в Statement, естественно этот case отработает только в ветке else

[Vilson]

Сообщение от Sherman

и сравнивая х.з. что (скорее всего указатель на эту самую строку) с х.з. чем (опять же с указателями на строки) в Statement, естественно этот case отработает только в ветке else

Афтор, какой результат тебе выдал этот скрипт?

procedure Init;
Var
 s: string; 
begin
 s:='проверка кейса строк работает';
 case s of
 'автор прав': ShowMessage('Sherman прав - в fs кейс со строками не работает'); 
 'проверка кейса строк работает': ShowMessage('Sherman НЕ прав - в fs кейс со строками работает'); 
 'кто здесь оО': ShowMessage('нет никого'); 
 end; 
end;

begin
                     
end.

[NLObP]

Vilson, у меня вот что