Свзяка ПДС + РК7 +РК 6 + fixlen

[Uchenik]

if RestCode = 123450001 then delete(Parameter, 1, 2);
- эта операция должна удалить первые два символа.

тогда получается надо изменить эту строку, и вписать по другому? не подскажете что написать? =)

[SLion]

function MCR1001280(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;
var RestCode: integer;
begin
result := false;
{ 778=КодРесторана=КодКарты }
if pos('778=', Parameter) = 1 then
begin
delete(Parameter, 1, 4);
if pos('=', Parameter) > 1 then
begin
RestCode := StrToIntDef(copy(Parameter, 1, pos('=', Parameter) - 1),-1);
delete(Parameter, 1, pos('=', Parameter));
if RestCode = 123450002 then
Parameter := '30'+Parameter;
Result := RestCode div 10000 = IntParam('EnterpriseCode')
end;
end;
end;

[Uchenik]

function MCR1001280(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;var RestCode: integer;begin result := false; { 778=КодРесторана=КодКарты } if pos('778=', Parameter) = 1 then begin delete(Parameter, 1, 4); if pos('=', Parameter) > 1 then begin RestCode := StrToIntDef(copy(Parameter, 1, pos('=', Parameter) - 1),-1); delete(Parameter, 1, pos('=', Parameter)); if RestCode = 123450002 then Parameter := '30'+Parameter; Result := RestCode div 10000 = IntParam('EnterpriseCode') end; end;end;

спасибо, сегодня попробую