como recortar caracteres...

[alexander66]

saludos
tengo una cadena de caracteres que la recibo de un edit1.text y la almaceno en una variable lo que pretendo hacer es que lo que reciba la variable var2 solo me acepte 30 caracteres que es la longitud en un campo de una tabla.
si quedan afuera 3 ó 4 caracteres ya no me interesa solo que agarre los 30 primeros.


var2:=trim(edit1.text);
Resultado:=var2('me recorte solo los 30 primeros caracteres')




me pueden ayudar
gracias

[ilichhernandez]

var2:=trim(edit1.text);
Resultado:=copy(var2,1,30);


podria ser por ahi......

[alexander66]

muchas gracias

el codigo final que hice es este:


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