<div dir="ltr">function ExtractWord(N: Integer; const S: string;  const WordDelims: TSysCharSet): string;<div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div><br></div><div>Es muy fácil su uso, en este caso ComboPais.Items.Add(ExtractWord(1, sLinea, ['/']));</div><div><br></div><div>Y digo de paso por que vbSplit corregida no tiene absolutamente ningún problema :)</div><div><br></div><div>Saludos.</div><span class="HOEnZb"><font color="#888888"><div><br></div><div>Jesus Reyes A.</div></font></span></div><br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus-ide.org">Lazarus-es@lists.lazarus-ide.org</a><br>
<a href="http://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus-ide.org/listinfo/lazarus-es</a><br>
<br></blockquote></div>Jesús, muchas gracias esclarecer el tema. <br></div><div class="gmail_extra">me gustó mucho el comentario del mes pasado sobre la inicialización de las variables.<br><br></div><div class="gmail_extra">Aun después de tu fix, a la función vbSplit esta sigue sin gustarme. yo la implementaría con una sola llamada a SetLength.<br></div><div class="gmail_extra">previo llamado a WordCount y usaría tu recomendación ExtractWord.<br><br></div><div class="gmail_extra">quizás el autor en algún momento modificó esa función y el uso de TokenizerClass tuvo que ver con eso.<br></div><div class="gmail_extra"><br clear="all"></div><div class="gmail_extra"><br></div><div class="gmail_extra">-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Rafael Bidegain<br><br>Ya que los cuerdos no hablan, hablará el loco.<br>(The Fool, Padraic Pearse)<br><br># yo quiero educación libre. ¡YA!<br><br></div>
</div></div>