Preprocessor - can not see whats wrong

The preprocessor terminates with:

[Fehler] frmMain.pas(1602): Nicht abgeschlossener String ();
  SetColumnsLebensmittel;
  SetColumnsZutaten;
  pgRezept.TabIndex := 0;
end;

procedure TfrmWRMain._t(s: string; p: TProc<string>);
var
  sTranslation: String;
begin
  TMSFNCCloudTranslation.Translate(s, sFormLanguage,
    procedure(const A)

Line 1602 is;

   console.log('TfrmWRMain.wfpLoad_RecipeGetFileAsText -> doCalc_Recipe');

But I can not see, what´s wrong:

procedure TfrmWRMain.wfpLoad_RecipeGetFileAsText(Sender: TObject; AFileIndex: Integer; AText: string);
begin
  console.log('TfrmWRMain.wfpLoad_RecipeGetFileAsText -> dmWRMain.load_Recipe');
  await(dmWRMain.load_Recipe(AText));
  // berechne Rezept
   console.log('TfrmWRMain.wfpLoad_RecipeGetFileAsText -> doCalc_Recipe');
  SetColumnsLebensmittel;
  SetColumnsZutaten;
  pgRezept.TabIndex := 0;
end;

procedure TfrmWRMain._t(s: string; p: TProc<string>);
var
  sTranslation: String;
begin
  TMSFNCCloudTranslation.Translate(s, sFormLanguage,
    procedure(const ARequest: TTMSFNCCloudTranslationRequest; const ARequestResult: TTMSFNCCloudBaseRequestResult)
    begin
      if ARequest.Translations.count > 0 then begin
        sTranslation := ARequest.Translations[0].TranslatedText;
        p(sTranslation);
      end;
    end);
end;

end.

Thanks for every info!

Found it. There indeed was an unclosed string, but at a complete different line above.

1 Like