============================================================================
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation
uses unit2;
{$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowForm;
end;    end.    ============================================================================    unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, StdCtrls, ExtCtrls;    type
  TForm2 = class(TForm)
    ImageList1: TImageList;
    ListView1: TListView;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public      end;    var
  Form2: TForm2;    function ShowForm: Boolean;    implementation    {$R *.dfm}    function ShowForm: Boolean;
var
  FListItem: TListItem;
  i: Integer;
begin
  Result:= False;
  Form2:= TForm2.Create(Application);
  try
    with Form2 do
    begin
      for i:=0 to 2 do
      begin
        FListItem:= ListView1.Items.Add;
        FListItem.Caption:= 'Create以後,show 之前';
        FListItem.SubItems.Add('Value'+IntToStr(i));
        FListItem.ImageIndex:= 0;
      end;          Result:= (ShowModal=mrOk);
    end;      finally
    Form2.Free;
  end;
end;    procedure TForm2.FormShow(Sender: TObject);
var
  FListItem: TListItem;
  i: Integer;
begin
  for i:=0 to 2 do
  begin
    FListItem:= ListView1.Items.Add;
    FListItem.Caption:= 'FormShow事件';
    FListItem.SubItems.Add('Value'+IntToStr(i));
    FListItem.ImageIndex:= 0;
  end;
end;    procedure TForm2.FormCreate(Sender: TObject);
var
  FListItem: TListItem;
  i: Integer;
begin
  for i:=0 to 2 do
  begin
    FListItem:= ListView1.Items.Add;
    FListItem.Caption:= 'FormCreate事件';
    FListItem.SubItems.Add('Value'+IntToStr(i));
    FListItem.ImageIndex:= 0;
  end;
end;    procedure TForm2.Button1Click(Sender: TObject);
var
  FListItem: TListItem;
  i: Integer;
begin
  for i:=0 to 2 do
  begin
    FListItem:= ListView1.Items.Add;
    FListItem.Caption:= 'Show以後';
    FListItem.SubItems.Add('Value'+IntToStr(i));
    FListItem.ImageIndex:= 0;
  end;
end;    end.        

引言: 請您使用 Trim(您要去掉的空白字元)即可解決 因為，您的字串變數中有空白字元,因此要使用Trim 去掉空白字元。 有問題不行的話,請mail 程式檔案給我,我再幫您改吧! DHM