Zitat von
sakura:
An welcher Stelle wird der Fehler denn gebracht?
...
...
Der aktuelle Code:
Code:
procedure TForm1.BitBtn14Click(Sender: TObject);
var
aRichEdit: TRichEdit;
begin
aRichEdit := TRichEdit.Create(Self);
aRichEdit.Parent := Form1;
try
aRichEdit.Lines.Assign(FileListBox1.Items);
aRichEdit.Print('Test');
aRichEdit.Free;
finally
aRichEdit.Free;
end;
end;
Der Fehler erscheint, nach dem die Liste ordentlich ausgedruckt wurde.
Also der Code ansich funktioniert ja. Nur eben dieser komische Fehler.
Seltsam.
Ich hab das jetzt eben nochmal in nen try..except Block gepackt.
Ist zwar keine Lösung des problems, funktioniert aber.
Vielleicht weiß ja trotzdem wer, warum die Fehlermeldung kommt.
ereetzer