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.

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


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...


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


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:p:D

[odrack]

Saludos

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

Gracias y ha quedado solucionado.