Tstrings Delphi 2007
hay una manera de hacer esto más eficiente:
necesito concatenar cada item de un Tstrings en en una cadena separado por espacios es para delphi 2007 |
Hola JaviMarciano.
Podes ahorrarte la variable Statement usando la variable implícita Result,
Saludos :) |
Una alternativa podría ser algo así, pero tendrás que probar si realmente es más eficiente:
Y añadir al uses la unit StrUtils. |
Si no ando desencaminado y como para lo único que utilizas StatementLines es para obtener información igual es mas eficiente declararla como constante, habría que comprobarlo.
|
Muy buena la opción de Neftali ^\||/ (no me acordé de ella) a la que se le podría sumar ExtractStrings de la unit Classes.
Para salir de dudas sobre la eficiencia de usar una u otra alternativa, hice una prueba sobre un archivo de texto de 22350 líneas con este código: (Mientras escribía la prueba recordé agreguar EnableControls y DisiableControls para mejorar la performance.) El resultado promedio de 3 mediciones:
La balanza se inclina a recorrer el TStrings con un for y creo que es debido a que AnsiReplaceText debe realizar comprobaciones adicionales para lograr su gran ductilidad de uso. Saludos :) |
La franja horaria es GMT +2. Ahora son las 04:31:08. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi