у меня кода кот наплакал. никаких особых манипуляций с переменной не делаю.
| Код |
unit UMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Math, UMyFiles, contnrs;
type
TMainForm = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
MyObjectList: TObjectList;
files: MyFile;
CountCelinders: integer;
count: integer;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
begin
MyObjectList:= TObjectList.Create;
count:= 0;
end;
procedure TMainForm.Timer2Timer(Sender: TObject);
var
str: string;
length, i, j, numb: integer;
begin
for j:=0 to random(4) do
begin
length:=random(10)+1;
SetLength(str,length+6);
for i:=0 to length do
str[i]:=Chr(RandomRange(97,122));
str[length+1]:='.';
for i:=length+2 to length+4 do
str[i]:=Chr(RandomRange(97,122));
str[Length+5]:=#0;
numb:= random(CountCelinders);
files:=MyFile.Create;
files.name:=str;
files.number:=numb;
//MyObjectList.Add(files); <----- ОШИБКА!!!!!!!!!!
//files.Destroy;
count:=count+1;
end;
end;
end.
|
|
)