[devochka]

Всем привет!!!Ребята, дело такое на форме есть компоненты LABEL, нужно чтобы при нажатии на кнопочку производилась печать информации (текста) содержащаяся в компонентах???пример кода, за ранее всем спасибо))))))

[NumLock]

Код:

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin   Print; end;

или

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   StdCtrls, ComCtrls;   procedure TForm1.Button1Click(Sender: TObject); var   RichEdit: TRichEdit;   i: Integer; begin   RichEdit:=TRichEdit.Create(Self);   RichEdit.Parent:=Self;   try     for i:=0 to ComponentCount-1 do       if Components[i] is TLabel then RichEdit.Lines.Add(TLabel(Components[i]).Caption);     RichEdit.Print('');   finally     RichEdit.Free;   end; end;

[devochka]

Спасибочки