Delphi-Quellcode:
procedure TForm23.FileListBox1Change(Sender: TObject);
begin
if (FileListBox1.ItemIndex <> -1) and (FSynEdit <> nil) then
begin // <-- wichtig bei mehreren Anweisungen nach einem IF
WebBrowser1.Navigate(FileListBox1.FileName);
FSynEdit.Lines.LoadFromFile(FileListBox1.FileName);
end;
end;
Viele Grüße
P.S.: Da das FSynEdit ja zum Formular gehört, würde ich die Variablendeklaration in den "private" oder "protected" Abschnitt des Formulars ablegen.