FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
como cortar texto de un edit
Estoy imprimiendo un texto que hay en un edit.
El problemilla es que el texto puede ocupar mas de una linea, por lo que lo corto de la siguiente forma: edit1.text:=texto; if length(edit1.Text)>150 then begin texto:=copy(edit1.text, 1, 150); memo1.Lines.Add(texto); end; Lo que quiero hacer ahora es imprimir el resto de texto que me queda, pero para ello quiero eliminar el texto que ya he impreso... Habia probado haciendo: delete (edit.text,1,150); pero me da error. ¿como lo puedo hacer? Gracias por anticipado.
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#2
|
|||
|
|||
el problema es que lo que le tienes que pasar por parametro es una variable, es decir, tienes que hacer algo asi....
Código:
var str : string; begin str := edit.text; delete (str,1,150); edit.text := str; end; |
|
|
|