请问如何选取listbox中的某一行(50分)

  • 主题发起人 主题发起人 binbinonline
  • 开始时间 开始时间
B

binbinonline

Unregistered / Unconfirmed
GUEST, unregistred user!
想做一个搜索列表,但搜索到的文件该如何选取呢?这是我第一次提问,不知道该给多少分,50分行吗?
另:可不可以再提一个问题如何用shockwave组件将SWF转换为EXE文件?两个问题共分行吗?
 
想做一个搜索列表,但搜索到的文件该如何选取呢?这是我第一次提问,不知道该给多少分,50分行吗?
另:可不可以再提一个问题:如何用shockwave组件将SWF转换为EXE文件?两个问题共100分行吗?
 
ListBox.itemindex:=number;
 
listbox.itemindex:=0 选中第一条项目
listbox.itemindex:=n 选中第n+1 条项目
 
什么意思?不解。关于第二个问题,请看下面代码:
procedure Swf2Exe(SwfFileName, ExeFileName: string);
var
ResStream: TResourceStream;
ExeMem, SwfMem: TMemoryStream;
SwfFileSize: Longint;
ExeFlag: Cardinal;
begin
ExeMem := TMemoryStream.Create;
try
//加Flash单独播放器文件
ResStream := TResourceStream.Create(HInstance, 'SWFPLAYER', RT_RCDATA);
try
ExeMem.CopyFrom(ResStream, ResStream.Size);
finally
ResStream.Free;
end;

//加swf文件
SwfMem := TMemoryStream.Create;
try
SwfMem.LoadFromFile(SwfFileName);
ExeMem.CopyFrom(SwfMem, SwfMem.Size);
SwfFileSize := SwfMem.Size;
finally
SwfMem.Free;
end;

// 追加FA123456标志
ExeFlag := $FA123456;
ExeMem.WriteBuffer(ExeFlag, SizeOf(Integer));

// 追加SWF文件长度
ExeMem.WriteBuffer(SwfFileSize, SizeOf(Integer));

//保存文件
ExeMem.SaveToFile(ExeFileName);
finally
ExeMem.Free;
end;
end;

一个Flash exe文件是由以下部分组成:
单独的Flash播放器+swf文件+FA123456+swf文件大小
 
问题是该如何判断我选的文件索引号呢?
 
接受答案了.
 
后退
顶部