Zitat von
Luckie:
Das ist eine Bremse:
Code.Lines.Text := Code.Lines.Text + ParamTyp + ' ';
Jedes mal, wenn auf die Texteigenschaft zugegriffen wird, wird alles ausgelesen. Warum nimmst du nicht die Methode Add von Lines?
In dem Fall gäbe es eine neue Zeile und in meinem Test war Code.Lines[Code.Lines.Count-1] nicht viel besser, aber ich werde es mal mit einem Temp-String und TStrings.Add Versuchen.
edit: Ok, vielen Dank. Dein Tipp hat hier wirklich geholfen und den Prozess um das 1000-fache beschleunigt.