Lector Codigo de Barra

[mjjj]

ya lo tengo solucionado,

lo que me ocurre ahora, es que el codigo de barra tiene algunos guiones entre sus caracteres, el problema es que el guion (-), me lo detecta como una comilla ('), por lo tanto por codigo, quiero reemplazar la comilla por un guion.

el problema es que la funcion stringreplace, pone entre comillas lo que quiero cambio...

quedaria algo asi.

Código Delphi [-]
StringReplace(SEDIT2.TEXT,''','-',[]);

como puedo hacer esto?

[cecam]

En vez de stringreplace, usamos una funcion propia

function StrTran( const cText, cOrigen, cDesti:string ):string;
var
   nPos:Integer;
begin
  Result := cText;
  if cOrigen<>cDesti then
  begin
      nPos:=Pos(cOrigen, Result);
      while (nPos>0) do
      begin
        Result := Copy( Result, 1, (nPos-1))+cDesti+Copy( Result, nPos+Length(cOrigen), Length(Result) );
        nPos:=Pos(cOrigen, Result);
      end;
  end;
end;

Saludos!!

[anubis]

Bueno, algo estuve viendo sobre los codigo de barras.
Parece que en el lector se puede configurar con diferents paquetes de codigos (creo que se llaman asi) los ansi. Si eso no entra dentro de lo posible, tambien en delphi en vez de reemplazar codigo ascii podrias usar su valor numerico, nose si esto te funcionaria.

editado:sorry, me adelante, olvida lo que dije, mejor la solucion de cecam

[cocute]

Empezado por mjjj

ya lo tengo solucionado,

lo que me ocurre ahora, es que el codigo de barra tiene algunos guiones entre sus caracteres, el problema es que el guion (-), me lo detecta como una comilla ('), por lo tanto por codigo, quiero reemplazar la comilla por un guion.

el problema es que la funcion stringreplace, pone entre comillas lo que quiero cambio...

quedaria algo asi.

Código Delphi [-]
StringReplace(SEDIT2.TEXT,''','-',[]);

como puedo hacer esto?

aunque no vayas a usar esto para que lo sepas para otra vez en esos casos tienes que poner la comilla dos veces osea:

Código PHP:

StringReplace(SEDIT2.TEXT,'''','-',[]); 


[mjjj]

la idea de la doble comilla no resulta, les voy a poner un ejemplo.

Lo que tengo es: CO'611'892'AF
Necesito: CO-611-892-AF

El la funcionen que ponen, que significan las distintas variables.
Me servirá la función?

Gracias

[rgstuamigo]

Empezado por mjjj

la idea de la doble comilla no resulta, les voy a poner un ejemplo.

Lo que tengo es: CO'611'892'AF
Necesito: CO-611-892-AF

Gracias

Pues haslo asi:

Código Delphi [-]
Resultado:=StringReplace(Edit1.Text,'''','-',[rfReplaceAll]);

O asi tambien

Código Delphi [-]
Resultado:=StringReplace(Edit1.Text,chr(39),'-',[rfReplaceAll]);

Saludos...