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

[[Al González]]

Operador de asignación:

Código Delphi [-]
:=

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

[[nlsgarcia]]

bigguntm,

Empezado por bigguntm

...todo esta correctamente escrito y verificado...el error 'Missing Operator or Semicolon' persiste...

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.

[ecfisa]

Empezado por bigguntm

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,

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



En este código:

Empezado por bigguntm

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);

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.

[bigguntm]

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