Remove warnis and hint, Tested Delphi 13 compatibilty

Author: Daniel09Fernandes

Src/uOpenOfficeEvents.pas

@@ -24,6 +24,7 @@ interface
  type TBeforeSetValue   = procedure (sender : TObject) of object;
  type TAfterGetValue    = procedure (sender : TObject) of object;
  type TBeforeGetValue   = procedure (sender : TObject) of object;
+
 implementation
 
 end.

Src/uOpenOfficeHelper.pas

@@ -95,7 +95,8 @@   THelperOpenOffice_calc = class helper for TOpenOffice_calc
 implementation
 
 uses
-  System.Win.ComObj, System.Classes, Soap.EncdDecd;
+  System.Win.ComObj, System.Classes, Soap.EncdDecd,
+  System.NetEncoding;
 
 function THelperOpenOffice_calc.addChart(aSettingsChart: TSettingsChart): TOpenOffice_calc;
 var
@@ -399,6 +400,7 @@ function THelperOpenOffice_calc.seTBorder(borderPosition: TBoderSheet; opColor:
 function THelperOpenOffice_calc.setCellWidth(const aWidth: integer): TOpenOffice_calc;
 begin
    Cell.getColumns.getByIndex(0).Width := aWidth;
+   Result := Self;
 end;
 
 function THelperOpenOffice_calc.setColor(aFontColor, aBackgroud: TOpenColor)
@@ -428,7 +430,7 @@ function THelperOpenOffice_calc.SheetToBase64(aPathFile:string): string;
   stream := TMemoryStream.Create;
   try
     stream.LoadFromFile(aPathFile);
-    Result := EncodeBase64(stream.Memory, stream.Size);
+    Result := String(EncodeBase64(stream.Memory, stream.Size));
   finally
     stream.Free;
   end;

Src/uOpenOffice_calc.pas

@@ -162,6 +162,8 @@ function TOpenOffice_calc.RemoveSheet(const aSheetName: string):TOpenOffice_calc
     FobjDocument.Sheets.removeByName(aSheetName)
   else
     raise Exception.CreateFmt('A aba "%s" não existe no documento', [aSheetName]);
+
+  Result := Self;
 end;
 
 function TOpenOffice_calc.RemoveSheet(aSheetIndex: Integer):TOpenOffice_calc;
@@ -175,6 +177,8 @@ function TOpenOffice_calc.RemoveSheet(aSheetIndex: Integer):TOpenOffice_calc;
   end
   else
     raise Exception.CreateFmt('Índice de aba inválido: %d', [aSheetIndex]);
+
+  Result := Self;
 end;
 
 procedure TOpenOffice_calc.ValidateSheetName;
@@ -438,6 +442,7 @@ function TOpenOffice_calc.SheetToDataSet(const TabSheetName: String; TabSheetInd
     end;
 
     Result.CreateDataSet;
+    Result.Open;
     Result.DisableControls;
     Result.LogChanges := false;
 	  lCountRow := CountRow;
@@ -496,6 +501,7 @@ function TFieldsSheet.getIndex(aNameField: String): integer;
   rep,aux, firstIdx,
   secondIdx : integer;
 begin
+  i := 0;
   Result := 0;
   rep := 26;
   aux := 0;

Src/uOpenOffice_writer.pas

@@ -173,7 +173,7 @@ function TOpenOffice_writer.CreateTable(ATable: TTableWriter): TOpenOffice_write
   oTextTable: Variant;
   FoCursor: Variant;
   key, line, linesCol, numRows, numCols: Integer;
-  lColl, lOutVal: string;
+  lOutVal: string;
   lPair: TPair<TTableRowFields, TTableLinesValues>;
   lLines: TList<TLineFieldValue>;
 begin
@@ -220,7 +220,7 @@ function TOpenOffice_writer.CreateTable(ATable: TTableWriter): TOpenOffice_write
 
 function TOpenOffice_writer.ClearSelection: TOpenOffice_writer;
 begin
-  if not EnsureDocument then Exit;
+  if not EnsureDocument then Exit(Self);
   try
     FoCursor := FobjDocument.getCurrentController.getViewCursor;
     if not (VarIsEmpty(FoCursor) or VarIsNull(FoCursor)) then
@@ -242,6 +242,8 @@ function TOpenOffice_writer.CreateTable(ATable: TFdMemTable): TOpenOffice_writer
   lTable: TTableWriter;
   lLog: Boolean;
 begin
+  lLog := False;
+  lRecNo := 0;
   ATable.DisableControls;
   lTable := TTableWriter.New;
   try
@@ -283,8 +285,9 @@ function TOpenOffice_writer.CreateTable(ATable: TClientDataset): TOpenOffice_wri
   lRecNo: Integer;
   lTable: TTableWriter;
   lLog: Boolean;
-  lLines: TLineFieldValue;
 begin
+  lRecNo := 0;
+  lLog := False;
   ATable.DisableControls;
   lTable := TTableWriter.New;
   try
@@ -378,7 +381,7 @@ function TOpenOffice_writer.gotoStartOfSentence: TOpenOffice_writer;
 
 function TOpenOffice_writer.setValue(const aText: string): TOpenOffice_writer;
 begin
-  if not EnsureDocument or not EnsureTextCursor then Exit;
+  if not EnsureDocument or not EnsureTextCursor then Exit(Self);
 
   if Assigned(onBeforeSetValue) then
     onBeforeSetValue(self);
@@ -428,8 +431,6 @@ function TOpenOffice_writer.SelectTextRange(AStartPos, AEndPos: Integer): TOpenO
 
 function TOpenOffice_writer.SelectBetweenText(AStartText, AEndText: string): TOpenOffice_writer;
 var
-  oText: Variant;
-  oCursor: Variant;
   lFullText: string;
   lStartPos, lEndPos: Integer;
 begin
@@ -503,7 +504,6 @@ function TOpenOffice_writer.startDoc: TOpenOffice_writer;
 function TOpenOffice_writer.SelectAllText: TOpenOffice_writer;
 var
   loController, loViewCursor: Variant;
-  largs: array[0..0] of Variant;
 begin
   try
     loController := FobjDocument.getCurrentController;

samples/ConsoleApplication/prj/Console.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{A84F5597-3682-4168-91C0-875FF60EC095}</ProjectGuid>
-        <ProjectVersion>20.1</ProjectVersion>
+        <ProjectVersion>20.3</ProjectVersion>
         <FrameworkType>None</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>