面 试2?jijie

Question

delphi://---------------------------------------------------------------------------
function CharToWord(CharHi, CharLo: Char): Word;
begin
  Result := (Ord(CharHi) shl 8) + Ord(CharLo);
end;
-----------------zai c#  ruhe shixianthanks!!!!!

Answer 1

public short CharToInt(byte CharHi, byte CharLo)
{
    return (short)((CharHi<<8) + CharLo);
}

Answer 2

shang mian de han shu  yinggai  jia zai na  er hao ya?  thanks!!
//---------------------------------------------------------------------------
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;namespace caizi
{
/// <summary>
/// Summary description for Form1.
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
private System.Windows.Forms.TextBox textBox1;
private System.Windows.Forms.Button button1;
private System.Windows.Forms.TextBox textBox2;
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.Container components = null; public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent(); //
// TODO: Add any constructor code after InitializeComponent call
//
} /// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null) 
{
components.Dispose();
}
}
base.Dispose( disposing );
} #region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.textBox1 = new System.Windows.Forms.TextBox();
this.button1 = new System.Windows.Forms.Button();
this.textBox2 = new System.Windows.Forms.TextBox();
this.SuspendLayout();
// 
// textBox1
// 
this.textBox1.Location = new System.Drawing.Point(80, 64);
this.textBox1.Name = "textBox1";
this.textBox1.Size = new System.Drawing.Size(304, 19);
this.textBox1.TabIndex = 0;
this.textBox1.Text = "textBox1";
// 
// button1
// 
this.button1.Location = new System.Drawing.Point(256, 136);
this.button1.Name = "button1";
this.button1.TabIndex = 1;
this.button1.Text = "button1";
this.button1.Click += new System.EventHandler(this.button1_Click);
// 
// textBox2
// 
this.textBox2.Location = new System.Drawing.Point(80, 208);
this.textBox2.Name = "textBox2";
this.textBox2.Size = new System.Drawing.Size(312, 19);
this.textBox2.TabIndex = 2;
this.textBox2.Text = "textBox2";
// 
// Form1
// 
this.AutoScaleBaseSize = new System.Drawing.Size(5, 12);
this.ClientSize = new System.Drawing.Size(600, 405);
this.Controls.Add(this.textBox2);
this.Controls.Add(this.button1);
this.Controls.Add(this.textBox1);
this.Name = "Form1";
this.Text = "Form1";
this.ResumeLayout(false); }
#endregion /// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main() 
{
Application.Run(new Form1());
} private void button1_Click(object sender, System.EventArgs e)
{
textBox2.Text=textBox1.Text;
}
}
}

Answer 3

你应该说清楚你的目的，因为.net中一个字符占16位，一个word存不下的，上面的函数是对byte进行操作，你要是对char进行操作的话所有数据类型长度都要加倍

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
const
  KI = #$1B + '$B';  {漢字IN  : このコードに続く文字コードは漢字コードとする}
  KO = #$1B + '(B';  {漢字OUT : このコードに続く文字コードはANKコードとする }
//---------------------------------------------------------------------------
function WordToChar(N: Word): String;
begin
  Result := Char(Hi(N)) + char(Lo(N));
end;
//---------------------------------------------------------------------------
function CharToWord(CharHi, CharLo: Char): Word;
begin
  Result := (Ord(CharHi) shl 8) + Ord(CharLo);
end;
//public short CharToInt(byte CharHi, byte CharLo)
//{
//    return (short)((CharHi<<8) + CharLo);
//}
//------------------------------------------------------
function SjisToJis(sjis: Word): Word; assembler;
asm
   shl ah, 1
   sub al, 1fh
   js  @1
   cmp al, 61h
   adc al, 0deh@1:
   add ax, 1fa1h
   and ax, 7f7fh
end;
//-------------------------------------------------------
function StrSjisToJis(str: string): string;
var
  idx: integer;
  flag_ANK: boolean;
begin
  {初期値設定}
  Result   := '';
  flag_ANK := True;  idx := 0;
  while (idx < Length(str)) do  //while string input
  //==================================================================================  begin
    Inc(idx);   // adjust+1    if ByteType(str, idx) = mbLeadByte then
     //判断字符串的第一个字符是否是字    begin// 是字
      {ANKから２バイトコードへ移行する場合、KIを設定する}
      if flag_ANK then
      begin
        flag_ANK := False;
        Result := Result + KI;
      end;
      {SJIS to JIS変換する}
      Result := Result + WordToChar(SjisToJis(CharToWord(str[idx],str[idx + 1])));
      Inc(idx);
    end
    else
    begin
      {２バイトコードからANKへ移行する場合、KOを設定する}
      if not flag_ANK then
      begin
        flag_ANK := True;
        Result := Result + KO;
      end;
      {ASCIIコードと同一なのでコード変換しない}
      Result := Result + str[idx];
    end; {if-else}  //==================================================================================  end; {while}  {改行時にANKに戻す}
  if not flag_ANK then
  begin
    Result := Result + KO;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.Text := StrSjisToJis(edit1.Text);
end;end.

Answer 5

qing kan !!!
ru he zai c# zhong shi xian!! xiexie!!1

Answer 6

function WordToChar(N: Word): String;
begin
  Result := Char(Hi(N)) + char(Lo(N));
end;na zhe ge ru he bian