Ich weiß nicht so richtig wo mein Fehler ist.
Hier mal mein Script:
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:
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?