comandos de impresion

[[seoane]]

Empezado por federicorl

Varcut := edit1.Text;

Edit1.text ¿que contiene?. Supongo que la secuencia de caracteres #27#105, pero como metes esos caracteres en el edit, con una sentencia como esta:

Código Delphi [-]
Edit1.text:= #27#105;

O lo escribes directamente en el edit. Porque puede que no estés introduciendo lo que piensas. Para comprobarlo utiliza algo como esto para saber exactamente que caracteres son:

Código Delphi [-]
ShowMessage('#'+IntToStr(Byte(Edit1.text[1]))+',#'+IntToStr(Byte(Edit1.text[2])));

[federicorl]

si obiamente estoy introducuiendo en el EDIT #27 +#105, el problema es cuando llamo, no lo ejecuta mas bien lo imprime

[marcoszorrilla]

Código Delphi [-]
edit2.text:=Pnewln;

Esto si te funcionará, lo que estás haciendo como te dice Seoane es:
'#10#13'

y en realidad lo que tiene que contener son los códigos de alimentación de línea: 10 y retorno de carro 13.

Un Saludo.

[[seoane]]

Sigo dándole vueltas al asunto, en el edit ¿estas introduciendo la cadena de texto '#27+#105'?, es decir la cadena de texto tal cual. Porque así el resultado es una cadena de 8 caracteres y no los 2 que tu necesitas para hacer el corte. Se me ocurre lo siguiente para que puedas introducir los caracteres especiales como el 27:

Código Delphi [-]
function Decode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Str) > 0 do
  begin
    if Copy(Str, 1, 1) = '%' then
    begin
      if not TryStrToInt('$' + Copy(Str, 2, 2),i) then
      begin
        Result:= '';
        Exit;
      end;
      Result:= Result + Char(i);
      Delete(Str, 1, 2);
    end else Result:= Result + Copy(Str, 1, 1);
    Delete(Str,1,1);
  end;
end;


var
  s: string;
begin
  s:= Decode(Edit1.text);
  PWrite(s);
end;

De este modo, por ejemplo, si queremos imprimir esto:

Hola mundo
(Cortar)

Escribiriamos en el edit

Hola mundo%0A%0D%1B%69

Es decir sustituimos los caracteres problematicos por un '%' seguido del codigo correspondiente en hexadecimal. Espero que te sirva.