Ayuda con lector de caracteres

[bigguntm]

Hola a todos, hoy traigo un problemita, en un listbox tengo miles de caracteres cada linea contiene algo distinto, y quisiera que en un edit se leyera los primeros caracteres antes del espacio,

ejemplo..

clubdelphi 2.0

cuando haga click en clubdelphi 2.0, el edit fuera igual a 'clubdelphi' nada mas y que no le prestara atencion a el '2.0'

uso esto para leer la cantidad de caracteres que quiera, pero noc modificarlo para que solo lea los caracteres antes del espacio!

Código Delphi [-]
Edit.text := copy(micadena,2,45);

Saludos!!

[Casimiro Notevi]

Tienes muchas formas de hacerlo, por ejemplo:

Código Delphi [-]
edit1.text =  copy(micadena,1,pos(' ')-1)

Lee: http://www.delphibasics.co.uk/RTL.asp?Name=Copy

[bigguntm]

Empezado por Casimiro Notevi

Tienes muchas formas de hacerlo, por ejemplo:
Código Delphi [-]edit1.text = copy(micadena,1,pos(' ')-1)

Lee: http://www.delphibasics.co.uk/RTL.asp?Name=Copy

Hola mi pana, gracias por responder,

Código Delphi [-]
var 
micadena : string; 
begin 
micadena := LstBOX.Items[LstBOX.Itemindex];
 Edit5.text := copy(micadena,1,pos(' ')-1);

pero me dice 'Missing operator or semicolon' Saludos

[ecfisa]

Hola bigguntm.

Código Delphi [-]
 Edit5.text := Copy(micadena, 1, Pos(' ', micadena)-1);

Saludos.

[Casimiro Notevi]

Empezado por bigguntm

pero me dice 'Missing operator or semicolon' Saludos

Cierto, aunque no tenías más que mirar la sintaxis de la función Pos, que para eso te he pasado el enlace a delphibasics.co.uk

Código Delphi [-]
edit5.text := copy(micadena,1,pos(' ',micadena)-1)

EDITO: tal y como ha hecho ecfisa

[ecfisa]

Empezado por Casimiro Notevi

Cierto, aunque no tenías más que mirar la sintaxis de la función Pos, que para eso te he pasado el enlace a delphibasics.co.uk

Es así, es el resultado de copiar y pegar sin comprender lo que se está haciendo...

Saludos.

[Casimiro Notevi]

Empezado por ecfisa

Es así, es el resultado de copiar y pegar sin comprender lo que se está haciendo...
Saludos.

Es el método perfecto para no aprender

[bigguntm]

Empezado por ecfisa

Es así, es el resultado de copiar y pegar sin comprender lo que se está haciendo...

Saludos.

Hola Ecfisa

El problema no es porque no lo haya leido, todo lo contrario, he leido ese tema y varios mas, pero el detalle persiste,

Código Delphi [-]
Const   Espacio = ' ';  Var   ItemSelect,p : String;
begin
ItemSelect := LstBOX.Items[LstBOX.itemindex];
p : pos(Espacio, Itemselect);

Edit5.text := copy(ItemSelect,1,p-1);

todo esta correctamente escrito y verificado, pero el error 'Missing Operator or Semicolon' persiste, noc si algo le pasa a mi proyecto, pero me dice que no reconoce la operacion

Código Delphi [-]
p : pos(Espacio, Itemselect); o p : pos(' ', Itemselect);

Saludos