Damit man mein Vorhaben ein bißchen besser versteht noch ein paar zusätzliche Infos...
In meinem Programm gibt es mehrere Forms... In jeder Form gibt es mehrere Komponenten wie z.B. Labels etc.
Die Anforderung ist nun das der Benutzer eine
csv Datei erstellen kann in der er je nach Land die Captions von Labels & Co. übersetzen kann.
Damit ich nun im OnCreate Ereignis jeder Form die
csv Datei auslesen muss wollte ich mir eine Prozedur basteln an die ich den Form Namen übergebe und über die Prozedur sollen aus der
csv Datei dann die richtigen Captions ausgelesen werden.
Bisher sieht das ganze nun so aus:
Delphi-Quellcode:
procedure prLoadModuleLanguage(sModule : String);
var
i : Integer;
begin
For i := 0 To Application.FindComponent(sModule).ComponentCount -1 Do
Begin
//TAdvPage
If (Application.FindComponent(sModule).Components[i] is TAdvPage) Then
Begin
(Application.FindComponent(sModule).Components[i] as TAdvPage).Caption := fnGetComponentCountryText('Component', sModule, 'TAdvPage', (Application.FindComponent(sModule).Components[i] as TAdvPage).Name);
End;
//TAdvToolBar
If (Application.FindComponent(sModule).Components[i] is TAdvToolBar) Then
Begin
(Application.FindComponent(sModule).Components[i] as TAdvToolBar).Caption := fnGetComponentCountryText('Component', sModule, 'TAdvToolBar', (Application.FindComponent(sModule).Components[i] as TAdvToolBar).Name);
End;
//TAdvGlowButton
If (Application.FindComponent(sModule).Components[i] is TAdvGlowButton) Then
Begin
(Application.FindComponent(sModule).Components[i] as TAdvGlowButton).Caption := fnGetComponentCountryText('Component', sModule, 'TAdvGlowButton', (Application.FindComponent(sModule).Components[i] as TAdvGlowButton).Name);
End;
End;
end;
Bisher habe ich keine bessere Idee wie ich das sonst umsetzen könnte... Ich lass mir aber gern auf die Sprünge helfen
