Ayuda con lector de caracteres

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