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 ;(