проверить, если элемент был выбран в ListBox

Question

Я хочу, чтобы проверить, если элемент был выбран в ListBox, когда пользователь нажимает на этикетке
, если я исполняю так я получил эту ошибку list index out of bounds

procedure TfrMain.Label15Click(Sender: TObject); 
var 
saveDialog : TSaveDialog; 
FileContents: TStringStream; 
saveLine,Selected : String; 
begin 
saveDialog := TSaveDialog.Create(self); 
saveDialog.Title := 'Save your text or word file'; 
saveDialog.InitialDir := GetCurrentDir; 
saveDialog.Filter := 'text file|*.txt'; 
saveDialog.DefaultExt := 'txt'; 
saveDialog.FilterIndex := 1; 

Selected := ListBox1.Items.Strings[ListBox1.ItemIndex]; 

if Selected <> '' then 
begin 
    if saveDialog.Execute then 
    begin 
    FileContents := TStringStream.Create('', TEncoding.UTF8); 
    FileContents.LoadFromFile(ListBox1.Items.Strings[ListBox1.ItemIndex]); 
    FileContents.SaveToFile(saveDialog.Filename); 
    ShowMessage('File : '+saveDialog.FileName) 
    end 
else ShowMessage('Save file was not succesful'); 
    saveDialog.Free; 
end; 
end; 

Answer 1

Этот код

if Selected then 

не будет компилироваться, так как Selected строка. Думаю, вы экспериментировали, прежде чем публиковать это.

Все одинаковые сообщения об ошибках, а заголовок вопроса предполагает, что ListBox1.ItemIndex равно -1. Следовательно, ошибка индекса индекса за пределами ошибки.

Вам необходимо добавить чек, чтобы ListBox1.ItemIndex не был первым перед чтением из списка. ItemIndex=-1 - способ обнаружения того, что элемент не выбран. Поэтому Ваш код должен выглядеть следующим образом:

..... 
saveDialog.DefaultExt := 'txt'; 
saveDialog.FilterIndex := 1; 
if ListBox1.ItemIndex <> -1 then 
begin 
..... 

Answer 2

Этот возникает, если в списке не выбрано ничего.

Try Использование:

procedure TfrMain.Label15Click(Sender: TObject); 
var 
saveDialog : TSaveDialog; 
FileContents: TStringStream; 
saveLine,Selected : String; 
begin 
saveDialog := TSaveDialog.Create(self); 
saveDialog.Title := 'Save your text or word file'; 
saveDialog.InitialDir := GetCurrentDir; 
saveDialog.Filter := 'text file|*.txt'; 
saveDialog.DefaultExt := 'txt'; 
saveDialog.FilterIndex := 1; 

if ListBox1.ItemIndex >= 0 then 
begin 
    Selected := ListBox1.Items.Strings[ListBox1.ItemIndex] 
    if saveDialog.Execute then 
    begin 
    FileContents := TStringStream.Create('', TEncoding.UTF8); 
    FileContents.LoadFromFile(Selected); 
    FileContents.SaveToFile(saveDialog.Filename); 
    ShowMessage('File : '+saveDialog.FileName) 
    end 
else ShowMessage('Save file was not succesful'); 
    saveDialog.Free; 
end; 
end;