Ich weiß nicht so richtig wo mein Fehler ist.
Hier mal mein Script:

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form23: TForm23;
  FSynEdit:TSynEdit;
implementation

{$R *.dfm}

procedure TForm23.FileListBox1Change(Sender: TObject);
begin
if FileListBox1.ItemIndex >-1 then
      WebBrowser1.Navigate(FileListBox1.FileName);
      FSynEdit.Lines.LoadFromFile(FileListBox1.FileName);
end;

procedure TForm23.FormCreate(Sender: TObject);
var
  FsynHtml: TSynHtmlSyn;
  col:string;
begin
 FSynEdit := TSynEdit.Create(self);
  // SynEdit auf das Formular packen
  FSynEdit.Parent := Self;
  // SynEdit über das komplette Formular strecken
  FSynEdit.Align := alleft;
  FsynEdit.Width:=350;
  FSynEdit.ReadOnly:=true;
  // Zeilennummerierung einschalten
  FSynEdit.Gutter.ShowLineNumbers := true;
  // Tabs einschalten
  FsynEdit.WantTabs:=true;

    FSynHtml := TsynHtmlSyn.Create(self);
   // Farbdefinitionen
   FSynHtml.CommentAttri.Style:=[fsitalic];
   FsynHtml.CommentAttri.Foreground:=$00B0B0B0;
   Fsynhtml.KeyAttri.Style:=[fsbold];
   Fsynhtml.IdentifierAttri.Style:=[];
   FsynHtml.IdentifierAttri.Foreground:=clblue;
   FsynHtml.UndefKeyAttri.Foreground:=$000080FF;
   Fsynhtml.SymbolAttri.Style:=[];
   FsynHtml.SymbolAttri.Foreground:=clblue;
   FsynHtml.ValueAttri.Foreground:=$00C7C7C7;

      //Kommentar


   FSynEdit.Highlighter := FSynHtml;

end;

Wo das Form erstellt wird, erstelle ich dynamsich das SynEdit.
Dann lade ich den Script in das Synedit.
Aber wenn ich mein Projekt start beendet er die sachen wegen den hier
   FSynEdit.Lines.LoadFromFile(FileListBox1.FileName); Fehler:

markieren

Code:

Erste Gelegenheit für Exception bei $774842EB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 00538D2E in Modul 'xlite.exe'. Lesen von Adresse 0000028C'. Prozess xlite.exe (7024)

Aber wo leigt mein Fehler?

markieren

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.

oh

stimmt ich hab das ganz übersehen.

danke