Poniższy kod niby ma konwertować plik DOC do RTF i odczytać w Richedit, ale na końcu wyskakuje błąd:
[Hint] Unit1.pas(38): Value assigned to 'ConvertDoc2Rtf' never used
A oto kod:
function ConvertDoc2Rtf(var FileName: string) : Boolean;
var
oWord: OleVariant;
oDoc: OleVariant;
begin
Result := False;
try
oWord := GetActiveOleObject('Word.Application');
except
oWord := CreateOleObject('Word.Application');
end;
oWord.Documents.Open(FileName);
oDoc := oWord.ActiveDocument;
FileName := ChangeFileExt(FileName, '.rtf');
oDoc.SaveAs(FileName);
oWord.ActiveDocument.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam);
oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
oDoc := VarNull;
oWord := VarNull;
Result := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
const
FileName = 'D:\oswiata_peszko.doc';
begin
if ConvertDoc2Rtf(FileName) then// <---- w tej linii wyskakuje powyższy błąd
begin
ShowMessage('Word document has been converted to .rtf');
RichEdit1.Lines.LoadFromFile(FileName);
end;
Jak to naprawić?