extraccion de letras de un texto

[odrack]

Saludos.

Tengo un buen rato buscando por la red, pero no he conseguido nada, quiero extraer una o dos letras de una palabra, pero no consigo hacerlo.

Tengo el siguiente codigo, pero solo cuenta el numero de letras que contiene.

Código Delphi [-]
procedure TForm40.Button6Click(Sender: TObject);
var len1:integer;
begin
Len1:=Length(edit1.text);
 edit7.Text:=inttostr(len1);
end;

espero alguien me pueda ayudar.

[axesys]

Intenta con una variable string

Código Delphi [-]
 
var
  cadena: string;
begin
  cadena:= edit1.text;
  edit7.text:= cadena[1]; //para sacar la primer letra
end;

[[BlueSteel]]

Hola...

mira, en realidad no se si quieres extraer un texto o reemplazar algo...

Código Delphi [-]
AnsiReplaceStr('Texto en Donde buscar','D','d')

lo anterior te busca dentro del texto la letra D y la reemplaza por la d

si quieres extraer o copiar puedes hacerlo con

Código Delphi [-]
 
Copy('Texto a copiar',1,5)

lo anterior te copia 5 caracteres desde la primera posición (izquierda a derecha).. el resultado de lo anterior es Texto

Salu2

[odrack]

Saludos

Es verdad mi error estaba en que lo tenia como integer y me faltaba los corchetes [1].

Gracias y ha quedado solucionado.