文字列分割関数を書き換えます。「tomzw」に返信します。

問題のソース:
http://www.cnblogs.com/del/archive/2008/11/27/967440.html#1384363

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{        ,       }

procedure Split(const str: string; const c: Char; var List: TStrings);

begin

  List.Clear;

  List.Delimiter := c;

  List.DelimitedText := str;

end;



{    }

procedure TForm1.Button1Click(Sender: TObject);

var

  List: TStrings;

  s: string;

  c: Char;

begin

  s := 'aaa;bbb;ccc;ddd';

  c := ';';



  List := TStringList.Create;

  Split(s,c,List);

  ShowMessage(List[1]); {bbb}

  List.Free;

end;



end.