カテゴリー: Delphi

投稿日:

言語別 case文

【Delphi】

  条件文(iの部分)には32ビット以下の順序型が使用できる．文字(char)は使用できるが文字列は使用できない．

    case i of
        0:
        begin
            //コード
        end;
        1..5, 10:
        begin
            //コード
        end;
        else
        begin
            //コード
        end;
    end;

【VB.net】

    Select Case i
        Case 0
            ‘コード
        Case 1 To 4, 7 To 9, 11, 13, Is > 50
            ‘コード
        Case Else
            ‘コード
    End Select

【C++】

    switch( i ) {
        case 0 :
        {
            //コード
        }
        break;
        case 1 :
        {
            //コード
        }
        break;
        default:
        {
            //コード
        }
        break;
    }

投稿日:

TeeChart 座標位置から画面上のピクセル位置を取得，ピクセル位置からグラフ上の座標位置を取得など

座標位置から画面上のピクセル位置を取得，ピクセル位置からグラフ上の座標位置を取得など  (TeeChart Pro 8.06)

uessに TeEngineを追加

procedure TForm1.GetPosInfo;
var
  i, XPos, YPos: Integer;
  XVal, YVal: Double;
  str1: String;
begin

  //Seriesのデーター点インデックスから点の値とピクセル位置を取得 =====
  i := Series1.FirstValueIndex;//最初の点のインデックス(LastValueIndexは最後の点)
  //データー点の値を取得
  XVal := Series1.XValue[i];
  YVal := Series1.YValue[i];
  //データー点の画面上のピクセル位置を取得
  XPos := Series1.CalcXPos(i);
  YPos := Series1.CalcYPos(i);

  str1 := ‘[Point index ‘ + IntToStr(i) + ‘]’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Value =(‘ + FloatToStr(XVal) + ‘, ‘ + FloatToStr(YVal) + ‘)’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Pixel =(‘ + IntToStr(XPos) + ‘, ‘ + IntToStr(YPos) + ‘)’;
  str1 := str1 + #13#10;

  //ウインドウのピクセル位置からグラフ上の座標位置を取得 =====
 
//ピクセル位置100, 100の座標を取得
  XPos := 100;
  YPos := 100;
  XVal := Series1.XScreenToValue(XPos);
  YVal := Series1.YScreenToValue(YPos);

  str1 := str1 + #13#10;
  str1 := str1 + ‘[Pixel (‘ + IntToStr(XPos) + ‘, ‘ + IntToStr(YPos) + ‘)]’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Value =(‘ + FloatToStr(XVal) + ‘, ‘ + FloatToStr(YVal) + ‘)’;
  str1 := str1 + #13#10;

  //グラフ上の座標位置からウインドウのピクセル位置を取得 =====

  //座標10.0, 5.0のピクセル位置を取得
  XVal := 10.0;
  YVal := 5.0;
  XPos := Series1.CalcXPosValue(XVal);
  YPos := Series1.CalcYPosValue(YVal);

  str1 := str1 + #13#10;
  str1 := str1 + ‘[Value (‘ + FloatToStr(XVal) + ‘, ‘ + FloatToStr(YVal) + ‘]’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Pixel = (‘ + IntToStr(XPos) + ‘, ‘ + IntToStr(YPos) + ‘)’;
  str1 := str1 + #13#10;

  ShowMessage(str1);

end;