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.

Código PHP:

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


me pueden ayudar
gracias

[ilichhernandez]

Código Delphi [-]
var2:=trim(edit1.text);
Resultado:=copy(var2,1,30); 

podria ser por ahi......

[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