ListBox に表示できません (ID：32818)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

igyさんありがとうございます。
新規プロジェクトで下のプログラムを作って動作させてみたら正常に表示されました。

ちなみにバージョンはTurbo DelphiのVer 10.0.2288.42451  で、アップデートは２になっています。
もう一度、プログラムを見直して見ます。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;
  RefText:TStringList;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
    i := 0;
  while i < RefText.Count -1  do
  begin
    ListBox1.Items.Add(RefText.Strings[i]);
    i := i + 1;
  end;
//  ListBox1.Items.Assign(RefText);
  Form2.Show;
//    Form2.ListBox1.Items.Assign(RefText);       これでもOK
    i := 0;
  while i < RefText.Count -1  do
  begin
    Form2.ListBox1.Items.Add(RefText.Strings[i]); //これでもOK
    i := i + 1;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RefText := TStringList.Create;
  RefText.LoadFromFile('D:\ファイル7.txt');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RefText.Free;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る