PDA

Ver la Versión Completa : como cortar texto de un edit


superhopi
10-06-2003, 12:23:45
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.

cadetill
10-06-2003, 13:03:03
el problema es que lo que le tienes que pasar por parametro es una variable, es decir, tienes que hacer algo asi....


var str : string;
begin
str := edit.text;
delete (str,1,150);
edit.text := str;
end;


Espero te sirva