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!