Hola, a ver si entiendo basandome en tu pregunta y en la aclaratoria de Ruben.
1.- Tienes un solo Tedit en tu Form y Quieres saber que contiene ese edit?
o
2.-Tienes varios Tedit en tu form y quieres que resul guarde algo como:
Resul = 'Edit1=hola;Edit2=algo; ...Editn=noseque;'
siendo 'hola' el texto que contiene Edit1 y 'algo' el texto que contiene Edit2 y asi hasta tener el nombre y contenido de cada edit.
si es la primera sigue la sugerencia de Ruben
si es la segunda:
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : integer;
resul :string;
begin
Resul := '';
for i := 0 to form3.ComponentCount-1 do
if form3.Components[i].ClassName = 'TEdit' then
with form3.Components[i] as Tedit do
resul := Resul + Name + '=' + text + ';';
{haces lo que hagas con resul}
end;
espero que te sirva
|