Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ¿Como se recogería en una variable la cadena de caracteres? (https://www.clubdelphi.com/foros/showthread.php?t=23134)

Kamikaze 07-07-2005 17:43:28

¿Como se recogería en una variable la cadena de caracteres?
 
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?. 

:D Muchas gracias por adelantado. :D

delphi.com.ar 07-07-2005 17:45:23

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

Saludos!

Kamikaze 07-07-2005 18:02:55

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 07-07-2005 18:08:59

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 07-07-2005 18:26:04

Muchas Gracias!!!!

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


La franja horaria es GMT +2. Ahora son las 10:26:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi