Label Print?

[Daniel]

Alle Labels eines Fensters könntest Du folgendermassen einsammeln:

Code:

Procedure ScanLabels( aForm : TForm );
var index : Integer;
Begin
  For index:= 0 To aForm.ComponentCount-1 Do
  Begin
    If (aForm.Component[index] is TLabel) Then
      With TLabel(aForm.Component[index]) Do
        WriteToFile( aForm.Name+'.'+Name+'.Caption:= '+Caption);
  End;
End;

Und die Prozedur WriteToFile könnte folgendermaßen aussehen:

Code:

Procedure WriteToFile( aString : String );
var aFile : TextFile;
Begin
  AssignFile( aFile, 'C:\DATA.TXT' );
  Reset( aFile );
  WriteLn( aFile, aString );
  CloseFile( aFile );
End;

Ich habe weder die eine noch die andere Methode getestet, aber das Prinzip sollte in jedem Fall funktionieren.


Grüße,
Daniel