//=============================================================================
//  セルにテスト用の文字列をセット
//=============================================================================
procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  ARange  : Txlf2000Range;
  strText : String;
begin
  ARange := xlfExcelSheet.Cells.Range['B2', 'B2'];
  ARange.MergeCells := True;

  strText := '東京都' + sLineBreak
           + '埼玉県' + sLineBreak
           + '千葉県';

   ARange.Value := strText;
   ARange.Select;
   ARange.RowHeight := 100;
   ARange.VerticalAlignment := xlTop;
end;

//=============================================================================
//  セル内の行数を取得
//=============================================================================
procedure TplExcelFormEx1.Button2Click(Sender: TObject);
var
  ARange  : Txlf2000Range;
  strText : String;
  Len1    : Integer;
  Len2    : Integer;
  Len3    : Integer;
begin
  ARange := xlfExcelSheet.Cells.Range['B2', 'B2'];

  //他の処理を考慮して改行文字をCRLFとす
  strText := AdjustLineBreaks(ARange.Value);

  //全文字数と改行文字を除いた文字数を取得
  Len1 := Length(strText);
  Len2 := Length(StringReplace(strText, Char(10), '', [rfReplaceAll]));
  Len3 := Integer(strText <> '');

  strText := 'セル内の行数は ' + IntToStr(Len1 - Len2 + Len3) + ' です';
  MessageBox(Handle, PChar(strText), 'セル内の行数', MB_ICONINFORMATION);
end;

//=============================================================================
//  セルにテスト用の文字列をセット
//=============================================================================
procedure TplExcelFormEx1.Button3Click(Sender: TObject);
var
  ARange  : Txlf2000Range;
  strText : String;
begin
  ARange := xlfExcelSheet.Cells.Range['B2', 'B2'];
  ARange.ColumnWidth := 20;
  ARange.Rows.AutoFit;

  strText := '東京都' + sLineBreak
           + '埼玉県' + sLineBreak
           + 'エクセルのセル内の自動折り返し文字列' + sLineBreak
           + '千葉県';

  ARange.Value := strText;
  ARange.Select;
  ARange.VerticalAlignment := xlTop;
end;

//=============================================================================
//  セル内の行数を取得
//  以下の条件で取得可能
//  (1) 結合セルではない
//  (2) 行の高さは自動調整(行数取得後は変更してもよい)
//  (3) セル内の文字列の書式は全て同じ
//=============================================================================
procedure TplExcelFormEx1.Button4Click(Sender: TObject);
var
  ARange      : Txlf2000Range;
  HeightFalse : Double;
  HeightTrue  : Double;
  Len         : Integer;
  strText     : String;
begin
  Len := 0;
  ARange := xlfExcelSheet.Cells.Range['B2', 'B2'];

  if String(ARange.Value) <> '' then begin
    ARange.WrapText := False;
    HeightFalse     := ARange.Height;
    ARange.WrapText := True;
    HeightTrue      := ARange.Height;

    Len := Trunc(HeightTrue / HeightFalse);
  end;

  strText := 'セル内の行数は ' + IntToStr(Len) + ' です';
  MessageBox(Handle, PChar(strText), 'セル内の行数', MB_ICONINFORMATION);
end;