nach Variablen "suchen"

[DDKFM]

Hallo,

ich baue gerade eine GUI-Anwendung. In dieser GUI-Klasse stehen einige Objekte(Beispiel siehe unten) in den public Attributen.
Jedem dieser Objekte muss ich einen X- und Y-Wert zuweisen. Diesen Wert möchte ich aus einem XML-Dokument laden.(Methode setPoints(...))

Meine Frage ist jetzt ob es eine Möglichkeit nach diesen Variablen über einen String zu suchen, das heißt das ich aus dem
XML-Dokument einen String rausbastel und anschließend nach dieser Variablen/Attribut suche und davon die entsprechenden Werte festlege.

Code: Alles auswählen

 
TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Timer1: TTimer;
    ToggleBox1: TToggleBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
    OProgram:TProgram;
    Prog_Databus:TBundle;
    Prog_Addresbus:TBundle;
    Prog_Instructionbus:TBundle;
  end; 
...
...
...
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin  
Image1.Canvas.Clear;
  Image1.Canvas.Clear;
  for i := 0 to 3 do
      begin
        Prog_Addresbus[i]:=TDataLine.Create(nil,true,nil,false);
        Prog_Addresbus[i].setDrawPanel(Image1.Canvas);
        Prog_Addresbus[i].setPoints([Point(10,200),Point(10,220)]);
        Prog_Databus[i]:=TDataLine.Create(nil,true,nil,false);
        Prog_Instructionbus[i]:=TDataLine.Create(nil,true,nil,false);
      end; 
end;

MfG DDKFM

[Komoluna]

Erstmal unabhängig von deiner Frage: Warum rufst du Image1.Canvas.Clear 2x auf?

MFG

Komoluna

[Warf]

Du könntest dir dafür eine Funktion basteln a'la:

Code: Alles auswählen

function TForm1.GetObjectByKey(Key: String): TObject;
begin
  Result:=nil;
  if Key = 'OProgram' then Result:= OProgram
  else if Key = ...
end;

[Socke]

ich baue gerade eine GUI-Anwendung. In dieser GUI-Klasse stehen einige Objekte(Beispiel siehe unten) in den public Attributen.
Jedem dieser Objekte muss ich einen X- und Y-Wert zuweisen. Diesen Wert möchte ich aus einem XML-Dokument laden.(Methode setPoints(...))

Verschiebe die Variablen in den Bereich published und verwende die Funktionen aus der Unit typinfo.

[DDKFM]

Erstmal unabhängig von deiner Frage: Warum rufst du Image1.Canvas.Clear 2x auf?

Zitat:http://wikis.zum.de/zum/Lazarus-Buch/Computer-Graphik

"Es kann sein, dass in Ausnahmefällen die Färbung stattdessen schwarz wird.
Möglicherweise handelt es sich dabei um einen Programmierfehler in Lazarus.
Abhilfe lässt sich dadurch schaffen, den clear-Befehl zweimal hintereinander auszuführen)."

Wenn ich Clear nur einmal aufrufe färbt sich das Canvas schwarz.

[DDKFM]

Ich habe mir jetzt einmal die Unit typinfo angeschaut, aber bin noch nicht wirklich weitergekommen.

Beispiel:

Code: Alles auswählen

 
published
    OProgram:TProgram;
    Prog_Databus:TBundle;
    Prog_Addresbus:TBundle;
    Prog_Instructionbus:TBundle; 
...
...
for i := 0 to 3 do
      begin
        Prog_Addresbus := TBundle.Create;
        Prog_Addresbus.Lines[i]:=TDataLine.Create(nil,true,nil,false);
        Prog_Addresbus.Lines[i].setDrawPanel(Image1.Canvas);
        Prog_Addresbus.Lines[i].setPoints([Point(10,200),Point(10,220)]);
      end;
 

Ausschnitt XML:

Code: Alles auswählen

 
<TBundle name = "Prog_Addresbus">
         <Point id = "0" x = "10" y = "200"/>
         <Point id = "1" x = "10" y = "220"/>
</TBundle>
 

Nun möchte ich jetzt durch das XML-Dokument gehen und nach dem Name "Prog_Addresbus" in den Attributen des Formulars suchen.
Ich hoffe jemand weiß genauer wie man sowas bewerkstelligen könnte.

MfG DDKFM