D-Link DSL-G684T Manual do Utilizador descarregar pdf (Página 100)

100

var

i,Size: Integer;

begin

Result:=0;

Size:=Length(Value);

for i:=0 to Size-1 do

begin

if Copy(Value,Size-i,1)='1' then

Result:=Result+(1 shl i);

end;

function TForm1.find_str(substr: String; str: string) :

String;

begin

if pos(substr, str) <> 0 then

begin

Result := copy(str,(pos(substr,

str)+length(substr)),(PosEx(char(#13), str, pos(substr,

str)+length(substr))-(pos(substr, str)+length(substr))));

end

else Result := '';

end;

procedure TForm1.Servo1Click(Sender: TObject);

begin

panele_false();

if (login = 1) then panel_servo.Visible := true

else panel_login.Visible := true;

if photo = 0 then

begin

IdTelnet1.IOHandler.WriteLn('photo=1');

wait_1();

command_ok :=0;

1 2 ... 95 96 97 98 99 100 101 102 103 104 105 ... 117 118

Sem comentários

D-Link DSL-G684T Manual do Utilizador Página 100