delphi: comments

Author: NickVolynkin

Delphi/PDFReportGenerator.dpr

@@ -38,20 +38,20 @@ begin
     try
       // Assign a database name matching the name specified in the report layout
       AConnection.DisplayName := 'NWindConnectionString';
-      // Assign a connection string to use the local SQLite database
+      // Assign a connection string required to use the local SQLite database
       AConnection.ConnectionString := 'XpoProvider=SQLite; Data Source=..\nwind.db; Mode=ReadOnly';
 
       // Step 3: Define Report Parameter Values
       AReport.LoadParametersFromReport;
-      // Set the value of the "OrderIdParameter" parameter in the report layout
+      // Set the "OrderIdParameter" value in the report layout
       AReport.Parameters['OrderIdParameter'].Value := AOrderID;
 
       // Step 4: Export a report to PDF
       AStream := TMemoryStream.Create;
       try
-        // Export a report to PDF format and save it to a memory stream
+        // Export a report to a memory stream in the PDF format
         AReport.ExportToPDF(AStream);
-        // Write the content of the memory stream to a file
+        // Save memory stream content to a file
         AOutputFileName := '..\Order_' + AOrderID + '.pdf';
         AStream.SaveToFile(AOutputFileName);
         Writeln('Report saved to: ', AOutputFileName);
@@ -68,27 +68,12 @@ end;
 
 // The helper application entry point that parses command-line parameters and calls the export procedure
 begin
-  AOrderID := ''; // Initialize as empty
-  // Parse command-line parameters in the format "key=value"
-  for i := 1 to ParamCount do
+  if ParamCount < 1 then
   begin
-    if ParamStr(i).Contains('=') then
-    begin
-      AParameter := SplitString(ParamStr(i), '=');
-      Key := AParameter[0].ToLower;
-      Value := AParameter[1];
-
-      if Key = 'orderid' then
-        AOrderID := Value;
-    end;
-  end;
-
-  // Check if AOrderID is provided
-  if AOrderID.IsEmpty then
-  begin
-    Writeln('Error: OrderID parameter is required. For example: PDFReportGenerator.exe orderid=11077');
+    Writeln('Error: OrderID parameter is required. For example: PDFReportGenerator.exe 11077');
     Halt(1); // Exit with error code 1
   end;
 
+  AOrderID := ParamStr(1); // Read the first parameter as OrderID
   ExportReportToPdf(AOrderID);
 end.