你的初始化iSL不对!应该是:
iSL:=TStringList.Create;
而不是
iSL.Create;
iSL:=TStringList.Create;
而不是
iSL.Create;
解决方案 »
- FastReport制作报表如何跳过打印选项对话框直接打印当前页???
- 3个问题,先谢过!
- tchart 中怎么改图形的颜色
- 做个调查,有多少人对delphi8看好,有多少人在用,用过的有什么心得?
- 求两句SQL简单语句,在线等待!解决马上给分!
- 小弟请教一个简单的问题,大家都来帮帮忙!!!!!急急急急急急急急急!!!
- 怎样得到dbgrideh中SelectedRows的每个字段的值阿???
- 如何通过程序建个.db文件?
- 如何通过编绎开关区分系统安的office的版本?
- 在winow2000数据库不读取数据,但在win98却可以不知什么原因?
- 请教一调用存储过程的问题??
- 谁有一个简单的web service列子??
type
TForm1 = class(TForm)Button1: TButton;
Memo1: TMemo;
Button1: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
strlistForm : TStringList;
end;
TMyThread = class(TThread)
private
step : integer;
strListTrd : TStringList;
MemoTrd : TMemo;
public
procedure draw;
destructor destroy;
procedure Execute; override;
constructor Create(strList: TStringList; memo: TMemo); end;
constructor TMyThread.Create(strList:TStringList;Memo:TMemo);
begin
strListTrd := strList;
memoTrd := memo;
FreeOnTerminate := True;
inherited Create(false);
end;
procedure TMyThread.draw;
begin
strListTrd.Add(inttostr(step));
memoTrd.Lines.Add(inttostr(step));
end;
var
i : integer;
begin
inherited;
for i:= 0 to 100 do
begin
step := i;
synchronize(draw);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
strListForm := TStringList.Create;
strListForm.Add('aa');
strListForm.Add('bb');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if (strListForm<>nil) then
FreeAndNil(strListForm);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(strListForm.Strings[10]);//测试用;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Device : DEVMODE;
begin
TMythread.Create(strListForm,Memo1);//开始线程;end.