Prozedur innerhalb einer Prozedur

[nezumi7]

Ich möchte deepL in mein Programm einbinden und habe dafür bei GitHub eine Unit gefunden, die wunderbar funktioniert (OlfSoftware.DeepL.ClientLib.pas). Leider versteh ich den Aufruf überhaupt nicht und kann das daher nicht nach meinen Wünschen anpassen:

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
DeepLTranslateTextASync(tfile.ReadAllText(FAPIKeyFileName), 'EN', 'DE',
      Edit1.Text,
     procedure(OriginalText, TranslatedText, SourceLang, TargetLang: string)
      begin
        Edit2.text := TranslatedText;
      end);
end;

wobei in Edit1 der zu übersetzende Text steht und das Ergebnis dann in Edit2 geschrieben wird.

Was ich noch nie gesehen habe ist, dass in der Prozedur eine andere Prozedur steht, die noch nicht einmal einen Namen hat und ja eigentlich auch nichts zurückliefert. Es funktioniert trotzdem. Am Liebsten würde ich es verstehen und das alles so ändern, dass die Prozedur irgendwie aufgelöst oder "herausgeholt" wird.

Wenn das nicht geht würde ich es zumindest so ändern wollen, dass das Ergebnis ("TranslatedText") nicht zwingend in eine Komponente (Edit2) geschrieben wird, sondern in eine Variable. Komischerweise funktioniert das nicht. Wenn ich statt Edit2 eine lokale oder globale Variable nehme, kommt da nichts an.

Kann mir da bitte jemand einen Tipp geben?

[stahli]

Das nennt sich "anonyme Methode" -> https://docwiki.embarcadero.com/RADS...oden_in_Delphi

So kannst Du Deiner Hauptmethode noch eine andere Methode mitgeben, die von dieser ausgeführt wird und jeweils (je nach Situation) etwas anderes tut.

[Olli73]

Weise einfach in der anonymen Methode deine variable zu, anstatt Edit2.text zu setzen.

[nezumi7]

Zitat:

Zitat von Olli73 (Beitrag 1515420)

Weise einfach in der anonymen Methode deine variable zu, anstatt Edit2.text zu setzen.

Das geht leider nicht, keine Ahnung warum. Wenn ich die Übersetzung nicht Edit2 zuweise, sondern in eine globale variable, bleibt die leer.

[Olli73]

Die Variable wird natürlich erst nach einiger Zeit (asynchron!) gefüllt!

[Olli73]

Du kannst auch sowas probieren, falls dir das lieber ist:

Delphi-Quellcode:

procedure TForm2.DoSomethingAfterTranslation(OriginalText, TranslatedText, SourceLang, TargetLang: string);
begin
  //Mach was mit TranlatedText ....
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  DeepLTranslateTextASync(tfile.ReadAllText(FAPIKeyFileName), 'EN', 'DE', Edit1.Text, DoSomethingAfterTranslation);
end;

[nezumi7]

[QUOTE=Olli73;1515424]Du kannst auch sowas probieren, falls dir das lieber ist:


Danke, Olli. Jetzt hab ichs mit deinen Hinweisen und ein bisschen Rumprobieren hinbekommen....

:thumb:

[generic]

Das Oberthema sind Zeiger auf Funktionen. Hab da auch ein Video für dich:
https://www.youtube.com/watch?v=7PL_H2aBUOI