Foros Club Delphi - como recortar caracteres...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - como recortar caracteres... (https://www.clubdelphi.com/foros/showthread.php?t=37606)

alexander66

17-11-2006 18:21:34

como recortar caracteres...

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

17-11-2006 18:32:36

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

podria ser por ahi......

alexander66

17-11-2006 19:06:43

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

La franja horaria es GMT +2. Ahora son las 17:04:12.