Ayuda con lector de caracteres
 

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!!

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

Hola bigguntm.

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

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

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 :rolleyes:

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

Operador de asignación:

Código Delphi [-]
:=

Y la variable p debe ser un entero, no un String. ;)

bigguntm,

Hasta el presente no he visto el primer compilador que se equivoque en ningún lenguaje.

Te sugiero seguir las recomendaciones del Msg #9.

Espero sea útil :)

Nelson.

Entonces te pido que aceptes mis disculpas por apresurarme en el juicio.



En este código:
Es incorrecta la sintáxis de asignación a la variable p mediante los dos puntos (:) y también es incorrecto el tipo declarado, como bién te han señalado. La sintáxis correcta es la que realizas en la línea siguiente usando: :=

Saludos. :)

Solucionado!
 

Ok, les pido perdon porque ahi me comi el '=', aunque ese no era el error, el problema era que en el project estaba

Código Delphi [-]
Pos : Integer;

el error : Incompatible types : 'Integer' and 'String' ..

y el codigo quedo asi!

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

Saludos, gracias por responder y perdonen por la confusion!! ^\||/