Frame-Name in Variable

[Bummi]

Du kannst doch in Deinen Templates oder auch im Mainform ein Routine aufrufen der das Template oder Mainform als Parameter(TComponent) mitgegeben wird, welche erst alles für TComponent übersetzt und dann rekursiv die gleiche Routine für alle Komponenten (über ComponentCount) aufruft.

Mein letztes Posting macht eben dieses (per RTTI um nicht jeden Komponententyp gesondert behandeln zu müssen).

[shmia]

Delphi-Quellcode:

// sucht eine Komponente anhand des Pfads (z.B. 'Main.Workshop1.WorkshopDetail1')
function FindComponentByPath(owner:TComponent; name:string):TComponent;
var
   s : string;
   p : Integer;
begin
   if not Assigned(owner) then
   begin
      Result := nil;
      Exit;
   end;

   p := Pos('.', name);
   if p = 0 then
   begin
      Result := owner.FindComponent(name);
      Exit;
   end;

   s := Copy(name, 1, p-1);
   name := Copy(name, p+1, 999);

   Result := owner.FindComponent(s);
   if Assigned(Result) then
      Result := FindComponentByPath(Result, name);
end;

[Ykcim]

Toll! So klappt es, Bummi!!!

Delphi-Quellcode:

Procedure Beschriftung (Maske: string; TheComp:TComponent);//Damit ist es egal, ob es ein Form oder ein Frame ist
var query1, query2: string;
    Cols1, Cols2: TCols;
    Rows1, Rows2: TRows;
    i, j: integer;
    Language: string;

begin

  Language:='deutsch';
  query1:='select Sprachen_ID from sprachen where Sprache='+#39+Language+#39;
  Connect;
  ExecQuery(DB, query1, Cols1, Rows1);
  DisConnect;

  query2:='select Feld_Name, Feld_Bezeichnung from sprache_bezeichnung '+
          'where Sprache='+Rows1[0,0]+' and Maske='+#39+Maske+#39+
          ' and Variante=1';
  Connect;
  ExecQuery(DB, query2, Cols2, Rows2);
  DisConnect;

  for I := 0 to TheComp.ComponentCount-1 do
    begin
      if (TheComp.Components[I] is TLabel) or
          (TheComp.Components[I] is TButton) then
      begin
        if (TheComp.Components[I] is TLabel) then
          begin
            for J:=0 to Length(Rows2[0])-1 do
              begin
                if Rows2[0,J]=TLabel(TheComp.Components[I]).Name then
                  begin
                    TLabel(TheComp.Components[I]).Caption:=Rows2[1,J];
                  end;
              end;
          end;
        if (TheComp.Components[I] is TButton) then
          begin
            for J:=0 to Length(Rows2[0])-1 do
              begin
                if Rows2[0,J]=TButton(TheComp.Components[I]).Name then
                  begin
                    TButton(TheComp.Components[I]).Caption:=Rows2[1,J];
                  end;
              end;
          end;
       end;
    end;
end;

Ich habe eine TComponent verwendet, um sowohl Frames als auch Forms damit übersetzen zu können.

Das ist der Aufruf

Delphi-Quellcode:

procedure TMain.ButtonTestClick(Sender: TObject);
begin
  Beschriftung ('WorkshopDetail', Main.Workshop1.WorkshopDetail1); //Das ist ein Frame
  Beschriftung ('Main', Main); //Das ist ein Form
end;

Vielen Dank an alle für Eure Hilfe!!!

Gruß
Ykcim

[DeddyH]

Du darfst dann aber keine Komponenten dynamisch erzeugen, denen Du keinen Owner zuweist, denn die werden damit nicht erwischt.

[Ykcim]

Hallo DeddyH
Danke für den Hinweis!!!

Ich habe meine neue Erkenntnis - ich lerne von Euch ja schließlich sehr viel und das ist ernst gemeint - genutzt, um die Prozedur noch zu vereinfachen:

Delphi-Quellcode:

Procedure Beschriftung (Maske: string; TheComp:TComponent);
var query1, query2: string;
    Cols1, Cols2: TCols;
    Rows1, Rows2: TRows;
    i, j: integer;
    Language: string;

begin

  Language:='deutsch';
  query1:='select Sprachen_ID from sprachen where Sprache='+#39+Language+#39;
  Connect;
  ExecQuery(DB, query1, Cols1, Rows1);
  DisConnect;
  //showmessage(Rows1[0,0]);
  query2:='select Feld_Name, Feld_Bezeichnung from sprache_bezeichnung '+
          'where Sprache='+Rows1[0,0]+' and Maske='+#39+Maske+#39+
          ' and Variante=1';
  Connect;
  ExecQuery(DB, query2, Cols2, Rows2);
  DisConnect;

  for I := 0 to TheComp.ComponentCount-1 do
    begin
      if (TheComp.Components[I] is TLabel) or
          (TheComp.Components[I] is TButton) then
        begin
          for J:=0 to Length(Rows2[0])-1 do
            begin
              if Rows2[0,J]=TComponent(TheComp.Components[I]).Name then
                begin
                  If TheComp.Components[I] is TLabel then
                    TLabel(TheComp.Components[I]).Caption:=Rows2[1,J];
                  If TheComp.Components[I] is TButton then
                    TButton(TheComp.Components[I]).Caption:=Rows2[1,J];
                end;
            end;
        end;
    end;
end;

Vielen Dank an alle Helfer

Ykcim

[DeddyH]

Und wenn Du andere Komponenten außer TLabel und TButton ansprechen willst, musst Du den Code wieder erweitern. Da würde ich eher die RTTI-Variante verwenden (und von Components auf Controls umsteigen inkl. Rekursion, aber das muss ja jeder selbst wissen).