procedure TRwExcel.ExportDataToExcelMTitle(paraDBGrid: TDBGridEh; ...
- 由汉字得到拼音首字母
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetPyChar(strChinese: string; bUpCase: Boolean = True): char;
begin
case WORD(strChinese[1]) shl 8 + WORD(strChinese[2]) of
$B0A1..$B0C4: result := 'A';
$B0C5..$B2C0: result := 'B';
$B2C1..$B4ED: result := 'C';
$B4EE..$B6E9: r
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetPyChar(strChinese: string; bUpCase: Boolean = True): char;
begin
case WORD(strChinese[1]) shl 8 + WORD(strChinese[2]) of
$B0A1..$B0C4: result := 'A';
$B0C5..$B2C0: result := 'B';
$B2C1..$B4ED: result := 'C';
$B4EE..$B6E9: r
我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()
- 注意这一句话
SendMessage(FindWindow('TfmMan_MainForm',nil),WM_User+100,Integer(PChar('0')),0); ...
我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()
- Turbo C++ for Windows: ANSWERS TO COMMON QUESTIONS
Turbo C++ for Windows: ANSWERS TO COMMON QUESTIONS ...
我要留言To Comment 阅读全文Read All | 回复Comments() 点击Count()
- 向其他进程注入代码的三种方法
本文章翻译自Robet Kuster的Three Ways to Inject Your Code into Another Process一文，原版地址见下面。本文章版权归原作者所有。 ...