Hi!
Ich will Dateien in ein Worddokument von Delphi aus schreiben, ohne dies in Word expliziet anzeigen zu lassen.
Soweit so gut, Datei wird erzeugt, und dann soll mit Writeln hineingeschrieben werden.
Nur leider bekomme ich dabei diese unschöne Fehlermeldung....
hier mal mein Quellcode. Hab irgendwie keine Idee mehr was daran falsch sein könnte....
Delphi-Quellcode:
with Daten.DSSonstigeBefehle.DataSet do
begin
if not fileExists(Pfad+'\Dokumente\RechnungK.csv') then document:= TFileStream.Create(Pfad+'\Dokumente\RechnungK.csv', fmCreate)
else begin
AssignFile(f, Pfad+'\Dokumente\RechnungK.csv');
Erase(f);
document:= TFileStream.Create(Pfad+'\Dokumente\RechnungK.csv', fmCreate);
end;
//ShowMessage('Datei angelegt!');
Open;
First;
AssignFile(f, Pfad+'Dokumente\RechnungK.csv');
while (not eof) do
begin
writeln(Pfad+'Dokumente\RechnungK.csv', FieldByName('Rechnungsnummer').AsString+';'+FieldByName('Anrede').AsString+';'+FieldByName('Name').AsString+';'+FieldByName('Vorname').AsString+';'+FieldByName('Strasse').AsString+';'+FieldByName('Hausnummer').AsString+';'+FieldByName('PLZ').AsString+';'+FieldByName('Ort').AsString+';'+FieldByName('Kundennummer').AsString+'K'+';'+FieldByName('Vermittlungsdatum').AsString+';'+FieldByName('Modul').AsString+';'+FieldByName('Preis').AsString+';');
ShowMessage('Ins Worddokument wurde geschrieben ;)');
with Daten.tVermittlung do
begin
locate('Id', Daten.QSonstigeBefehle.FieldValues['Rechnungsnummer'], []);
Edit;
FieldByName('Rechnungsdatum').AsDateTime:=Date;
FieldByName('Rechnung').AsBoolean := true;
ShowMessage('Das Rechnungsdatum steht jetzt auch schon in der Vermittlung...');
post;
prior;
end;
next;
end;
CloseFile(f);
end;
document.Free;
Gruß
Chrissy