mostrar datos

[Cosgaya]

hola a todos, tengo una dudilla:

suposicion: tengo un edit donde en ejecucion, dentro del edit escribo 1 y luego tengo un boton con el siguiente codigo:

si escribo:

Código Delphi [-]
showmessage(edit1.text);

de resultado da 1

pero como podria mostrarlo pasandolo por una variable??
ejemplo tonto:

Código Delphi [-]
var
mostrar:string;
begin
mostrar:='edit1.text';
showmessage(mostrar);

[lynu]

pero es exactamente como lo escribiste pero sin las comillas simples. (') asi no te dira "edit1.text", sino lo que tiene el componente edit en ese instante, espero aver ayudado en algo.

var
mostrar:string;
begin
mostrar:=edit1.text;
showmessage(mostrar);

[Cosgaya]

bueno... me he dado cuenta que el ejemplo que tengo esta mal.
lo que pasa es que tengo 20 edit
su nombre es de A1 a A20 y lo que quiero es sumar el contenido de los edits ( que son numeros) sin tener que escribir cada edit

[[Lepe]]

pues amos a ver:

Código Delphi [-]
var suma :integer // serán números enteros los datos del edit ¿?, supongo
     i :integer // contador
    ctr :TComponent;
begin
  i:=1;
  try
  while i < 21 do
  begin 
     ctr := FindComponent('A'+IntTostr(i)); //buscamos el componente
     if ctr = nil then // no lo ha encontrado... pues no existirá con ese nombre.
       break; 
     if Trim(Tedit(ctr).Text) <> EmptyStr then // nos aseguramos de que tiene un texto
// si no es un número, porque el usuario ha puesto letras, dará un fallo
       suma := suma + strtoint(TEdit(ctr).Text)
    inc(i);
  end;
  ShowMessage('Suma total: '+inttostr(suma));
  except
     raise Exception.Create('Una Caja de texto no tiene un número válido');
  end;

Saludos

[Cosgaya]

hola lepe: me dice que findcomponent no esta declarado

[[Lepe]]

Si ese código está dentro de un procedimiento del tipo:

Código Delphi [-]
procedure TFORM1.(loquesea)

debe compilar. De hecho, si no compila tendrás que poner esto o algo parecido:

Código Delphi [-]
if Form1.FindComponent(..)

ya que FindComponent es un método de la clase Tcomponent, por tanto, necesitarás un "componente" para poder usarlo.

Saludos

[Cosgaya]

gracias lepe le puse :

Código Delphi [-]
form1.findcomponent

y ya me funciona