Hallo, habe folgenden Code zum drucken einer StringList:
Code:
procedure TForm1.BitBtn14Click(Sender: TObject);
var
FileList: TStringList;
aRichEdit: TRichEdit;
i: integer;
begin
FileList := TStringList.Create;
For i := 0 to FileListBox1.Count -1 do
begin
FileList.Add(FileListBox1.Items[i]);
end;
FileList.SaveToFile('c:\text.txt');
aRichEdit.Lines.LoadFromFile('c:\text.txt');
aRichEdit.Print('Test');
aRichEdit.Free;
FileList.free;
end;
Die test.txt wird ordentlich erstellt. Nur dann kommt:
Zugriffsverletzung bei Adresse ......
Wenn ich aber manuell ein RichEdit ins Formular platziere, das dann unsichtbar mache, dann klappt das. Irgendwas hab ich wohl vergessen. Nur
was?
Hat einer ne Idee?
cu
ereetzer