我有一个表单,其中包含一个名为
点击按钮后,将执行
运行应用程序时,选择第一个文件没有问题,但是当想要选择第二个文件时,会出现错误提示“Project project3 raised an exception class EInvalidPointer with message 'Invalid Pointer Operation'.”。这是什么原因造成的?如何纠正这个问题?
TOpenDialog
的组件(OpenDialog1
)和一个按钮。
OpenDialog1
的Options
属性中的ofAllowMultiSelect
设置为true。点击按钮后,将执行
AddFilesToListView
方法:procedure TForm4.AddFilesToListView();
var
ListItem : TListItem;
I: Integer;
F : File;
LengthOfAudio : TDateTime;
previousCursor : TCursor;
begin
previousCursor := Self.Cursor;
Self.Cursor := crHourGlass;
if OpenDialog1.Execute then
begin
for I := 0 to OpenDialog1.Files.Count - 1 do begin
if FileExists(OpenDialog1.FileName) then begin
ListItem:=ListView1.Items.Add;
ListItem.Caption := 'Test';
ListItem.SubItems.Add(ExtractFileName(OpenDialog1.Files[I]));
ListItem.SubItems.Add(ExtractFilePath(OpenDialog1.Files[I]));
end else
raise Exception.Create('File does not exist.');
end;
end;
Self.Cursor := previousCursor;
OpenDialog1.Files.Free;
end;
运行应用程序时,选择第一个文件没有问题,但是当想要选择第二个文件时,会出现错误提示“Project project3 raised an exception class EInvalidPointer with message 'Invalid Pointer Operation'.”。这是什么原因造成的?如何纠正这个问题?