Mehrere Dateien laden und...

[Batman666]

ha was glaubst was cih schon machte -
ich schreie nie ohne nicht vorher zu suchen nun habe ich 3 stunden kange gesucht und probiert!

das mein result - nix geht!

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MyList: TObjectList;


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyList: TObjectList;
  k, m: TStringList;
  i: integer;
begin
  MyList := TObjectList.Create;


  k := TStringList.Create;

  for i := 0 to 99999 do
  begin
    k.add('dffg');
    MyList.Add(k);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(IntToStr(MyList.count));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyList := TObjectList.Create(True);
end;

end.

Die Message ist immer 0 nix drinn ;(