delphi学习 字符串切割问题（split）
最近做一个项目，要用Delphi，以前从未学过，好是费劲啊，哈哈光是字符串切割这个问题就困扰了几个小时，通过查资料终于解决，在这与大家分享一下
Function split(src: pchar; ch: char):TStringList;
// 分割字符串
var
i: Integer;
tmp : string;
begin
Result:=TStringList.Create;
tmp := '';
showmessage(src);
showmessage(inttostr(Length(src)));
for i := 0 to Length(src) do
begin
if src[i] <> ch then
begin
tmp := tmp + src[i];
end
else
begin
Result.Add(tmp);
tmp := '';
end;
end;
Result.Add(tmp);
end;
说明一下，有些人用Pos函数来对字符串分割，这个函数对中文处理不了，所以最好不要用，
调用方法
先定义一个 var AStrings: TStringList;
在下面使用时 AStrings:=TStringList.Create;然后AStrings:=FaClass.split(pchar(AStr),'|');就把分割后的数组保存在了AStrings中了
相关文档：
unit Servicescontrol;
interface
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName: ......
The built-in assembler allows you to write assembly code within Delphi programs. It has the following features:
内嵌的汇编器允许在delphi程序中书写汇编代码，他有如下特性：
Allows for inline assembly
允许内嵌汇编
Supports all instructions found in the Intel Pentium III, In ......
使用Delphi调用WebServices接口的简单应用实例
Delphi从6.0就开始支持Web Services的开发和应用了，本文通过使用Delphi 7.0调用新浪发送短信的Web Service进行短信应用程序开发这一实例详细的介绍在Delphi中如何开发基于Web Services的应用系统。
第一步，准备工作，了解新浪短信Web Service。新浪发送短信的Web Service� ......
procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SendMessage(Handle, 48384, 9, 0);
end;
end; ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,comobj, OleServer,
ExcelXP;
type
TForm1 = class(TForm)
ADOConn: TADOConnection;
& ......
