execute wird nicht ausgeführt, da du die Methode überschreiben musst.
Testen kann ich den Code nicht, da mir min. eine
Unit fehlt, aber ich hab noch etwas gefunden:
Delphi-Quellcode:
for i := 0 to length(Dialogs.SentenceArray) - 1 do
begin
SetLength(LocalSentenceArray, length(LocalSentenceArray) + 1); //<----
LocalSentenceArray[i] := Dialogs.SentenceArray[i];
end;
Du kopierst ja hier das Array. Und in einer Schleife sollte man die von mir markierte Zeile solange es geht vermeiden.
Das macht es ja auch:
Delphi-Quellcode:
SetLength(LocalSentenceArray, length(Dialogs.SentenceArray));
for i := 0 to high(Dialogs.SentenceArray) do
LocalSentenceArray[i] := Dialogs.SentenceArray[i];