habe eine Problem bei der Änderung der Captions. Die Captions der einzelnen Objekte von Form2 sollen geändert werden, nachdem sie geucht und gefunden wurden. Sobald die Objekte also gefunden wurden, würde der NAme des Objekts übergeben und mittels diesem Namen wird in der XML-Datei nach den Captions gesucht. Das hat den Vorteil, dass ich nur noch Elemente in das Form einfügen muss ohne mir gedanken über Mahrsprachigkeit zu machen (Englisch, Deutsch usw.). Die Captions werden also automatisch aus der XML-Datei gefischt. Problem ist, das sich die Captions nicht übergeben lassen. Ich bekomme den Fehlet, dass Captions keine Componente von TComponent ist. Stimmt ja auch. Doch TControl erbt doch von TComponent. Wie kann ich das Problem lösen das ich die Captions umbenant bekomme. Hier mein Quleltext.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Objektsuche.h"
#include <XMLDoc.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;

//---------------------------------------------------------------------------
AnsiString getName(AnsiString ObjName,AnsiString Sprache)
{
try
{
AnsiString BuCaption;
_di_IXMLDocument LangXML = LoadXMLDocument("lang.xml");
_di_IXMLNodeList NodeList = LangXML->DocumentElement->ChildNodes;
_di_IXMLNode ObjNameNode = NodeList->FindNode(ObjName);
BuCaption = ObjNameNode->ChildNodes->FindNode(Sprache)->NodeValue;

return BuCaption;
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
}

//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
// Ausgabe der Anzahl der Objekte
int i = 0;
i= Form2->ComponentCount;
Button_Para->Caption = i;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button_BerPrClick(TObject *Sender)
{
// Suchen nach dem Namen der Objekte und Ausgabe der Namen

AnsiString ObjName[5];
AnsiString CaptionName[5];
AnsiString Sprache = "eng";

for (int i=0; i< Form2->ComponentCount;i++)

{
ObjName[i] = Form2->Components[i]->GetNamePath();
CaptionName[i] = getName(ObjName[i], Sprache);

// Form2->Components[i]->Caption = CaptionName[i];
}
}

entweder benutzt du die Eigenschaft TForm::Controls (müßtest dann aber rekursiv arbeiten), oder du castest überprüfend auf TControl.

TControl* curcontrol;
for (int i=0; i< Form2->ComponentCount;i++)

{
  curcontrol = dynamic_cast<TControl*>(Components[i]); 
  if (curcontrol)
  {
    ObjName[i] = curcontrol->GetNamePath();
    CaptionName[i] = getName(ObjName[i], Sprache);
    curcontrol->Caption = CaptionName[i];
  }
}

und las das Form2-> in Methoden weg, die schon zu Form2 gehören.

/Edit : Rück deinen Code ordentlich ein und benutzt beim Posten von Code hier im Forum den C++ Tag (direkt unter den Smilies)

bis bald
akari