¿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?

Código PHP:

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


Muchas gracias por adelantado.

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

Código Delphi [-]
Label1.Caption := Memo1.SelText;

O en una variable:

Código Delphi [-]
var
  S: string;
begin
  S := Memo1.SelText;

O llamando a una función / procedure:

Código Delphi [-]
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.