program GetKeyStatDEMO; // 2017/08/27 const VK_SHIFT = $10; // Shiftキー VK_CONTROL = $11; // Ctrlキー VK_MENU = $12; // Altキー var stat : string; begin OkMsgBox('何かキーを押して下さい'); if GetKeyStat(VK_SHIFT) then stat := ' Shift '; if GetKeyStat(VK_CONTROL) then stat := stat + ' Ctrl '; if GetKeyStat(VK_MENU) then stat := stat + ' Alt ';
// gotoPage 2014/11/28 Nabetech var id, ty, page, layer: integer; d1, d2, d3, d4, d5 : double; begin Message('ジャンプ先要素をヒットして下さい'); id := Hit(ty, d1, d2, d3, d4, d5); if id > -1 then if GetPageLayer(id, page, layer) then Begin ActivePage(page); Activelayer(layer); End; end.
Program WorkPositionEdit; var i, leng : integer; s : string; sl : stringlist;
begin sl := stringlist.Create; // StringListの利用例 sl.Clear;
leng := EditorLength(); // エディタの行数を取得する for i:=1 to leng do // StringListに全行を格納する sl.Add(EditorRead(i));
EditorCrear(); // エディタの消去
for i:=1 to leng do Begin s := sl.GetItem(i-1); // 注:インデックスと違う Writeln(s); if Length(s) < 1 then continue; if Pos('%', s) > 0 then continue; Writeln('M01'); End;
Program SeqnNo; var i, n, leng : integer; s : string;
begin // エディタにNCデータを準備しておいて下さい。 n := 1; leng := EditorLength(); // エディタの行数を取得する for i:=1 to leng do Begin s := EditorRead(i); if Length(s) < 1 then continue; if Pos('%', s) > 0 then continue; if Pos('(', s) > 0 then continue; if Pos('N', s) > 0 then continue;