¿Como se recogería en una variable la cadena de caracteres?

[Kamikaze]

Hola otra vez a todos.
Me ha asaltado otra duda que seguramente es tan obvia
que no la veo.:(
La pregunta es:
¿Como se recogería en una variable la cadena de caracteres?


with Memo1 do
begin
SelStart:=Posicion; //Posicion es un numero entero, que marca donde
//deve empezar dentro del memo1.
SelLength:= 12; //Le pongo cuantos caracteres tiene.
SetFocus; //Esto me marca la cadena que quiero.
end; //¿Pero como la recojo en una variable?.



:D Muchas gracias por adelantado. :D

[delphi.com.ar]

No entiendo bien tu pregunta, pero: Si quieres obtener solamente el texto seleccionado, puedes utilizar la propiedad SelText

Saludos!

[Kamikaze]

Muchas gracias delphi.com.ar.
¿Pero como hago para
despues convertir ese texto obtenido mediante
SelText en una variable para transportarla a otras
funciones?

Ya que si pongo SelText
1 me elimina la cadena que quiero obtener
2 si pongo seltext:=(variablesting) y pongo que
salga en un label label1.caption:=variablestring;
se me queda en blanco (no da ningun valor).

¿Me podrias decir como lo hago?

[delphi.com.ar]

SelText es una propiedad del tipo string, que pedes asignar de manera directa a cualquier variable o propiedad (que permita escritura) del mismo tipo. Si es de otro tipo ya tienes que ver que función cast aplicar para el caso.


Label1.Caption := Memo1.SelText;


O en una variable:

var
S: string;
begin
S := Memo1.SelText;


O llamando a una función / procedure:

procedure TMiForm.MiProcedure(const MiValor: string);
begin
Label1.Caption := Memo1.SelText;
end;

procedure TMiForm.Button1Click(Sender: TObject);
begin
MiProcedure(Memo1.SelText);
end;


Saludos!

[Kamikaze]

Muchas Gracias!!!!

Si no te molesta, te pondre como participante en la creacion de mi programa
en la seccion de autores.