como recortar caracteres...

[alexander66]

muchas gracias

el codigo final que hice es este:

Código PHP:

function TForm1.recorta(Cadena: String): String;
var Resultado :string;
begin
 if Length(Cadena)>30 then
  begin
   Resultado:=copy(Cadena,1,30);
   Result:= Resultado;
  end
 else
  Result := Cadena;

end; 


y bueno ya saben como pasarle una cadena a una funcion, si hace falta algo por que no comentarlo.

gracias