Werteübergabe

[Hellcat]

Hi Leute!
Folgendes Problem: Ich hab 35 Panels, von denen bestimmte Eigenschaften an eine Funktion übergeben werden sollen. Mein Problem ist nur, daß ich keinen blassen Schimmer habe wie ich es hinkriege daß für die Panels 1 bis 35 jedes Mal die entsprechende Eigenschaft rausgreift.

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);//Menüpunkt "Speichern"
var i: integer;
begin
  for i := 1 to 35 do
    begin
      speichern('PanHalle'+IntToStr(i)+'.caption','PanHalle'+IntToStr(i)+
        'T'+'.caption', IntToHex(Strtoint('PanHalle'+IntToStr(i)+'.Color'),6),
        StrToBool('bildTHL'+IntToStr(i)),StrToBool('bildSchl'+IntToStr(i)),
        StrToBool('bildSound'+IntToStr(i)));
    end;
end;

Was ich da gecoded habe ist der größte Schwachsinn, denn in dem Fall würde beispielsweise nicht die entsprechende Caption des Panels 1 speichern sondern immer nur 'PanHalle1.caption'...und das ist nun wirklich nicht im Sinne des Erfinders

Hier noch mal der Code für die aufgerufene Prozedur:
procedure speichern (Hname, Zeit, HFarbe: string; Schl, THL, Sound:boolean);

[mirage228]

das geht mit findcomponent!
so kannst auf die compos zugreifen

Beispiel:
FindComponent(('Panel' + Inttostr(i)) as TPanel).Caption { oder Color oder irgendne Eigenschaft}

[Hellcat]

Danke!

@moderatoren: Der Thread ist versehentlich im falschen Forum gelandet...wäre nett wenn ihr den verschieben könntet, damit ihn andere später leichter finden (denke mal daß ich nicht der einzige bin der irgendwann mal über dieses Anfänger-Problem stolpert..)

[Hellcat]

Hmm, das klappt leider nicht so ganz
speichern(FindComponent(('PanHalle' + Inttostr(i)) as TPanel).caption) ich erhalte immer die Meldung "[Error] UnitHaupt.pas(314): Operator not applicable to this operand type", selbst wenn ich mich an die Vorgabe aus der OH halte... woran kann das liegen?

[Daniel B]

Hallo,

ich habe es mal nach Delphi Language verschoben, in Klatsch und Trasch hatte es wirklich nichts verloren.

Grüsse, Daniel

[mirage228]

sorry hab mich vertippt! es muss heissen:

(FindComponent('PanHalle' + IntToStr(i)) as TPanel).Caption

[Hellcat]

Und wie mache ich das dann wenn ich eine vorher definierte Variable vom Typ Boolean habe(THL, THL2,..., THL35)? Die kann ich ja nicht mit FindComponent aufrufen...

[X-Dragon]

Zitat von Hellcat:

Und wie mache ich das dann wenn ich eine vorher definierte Variable vom Typ Boolean habe(THL, THL2,..., THL35)? Die kann ich ja nicht mit FindComponent aufrufen...

Wenn die Variablen schon Werte zugewiesen bekommen haben, kann man sie z.B. so kontrollieren:

Delphi-Quellcode:

  for i := 1 to 35 do
    if StrToBool('THL'+IntToStr(i)) then
      ShowMessage ('Diese Variable hat den Wert True :)');

[Hellcat]

Ich will sie ja aber nicht kontrollieren sondern in eine Textdatei speichern. Und dafür muß ich an die Funktion zum schreiben einen boolschen Wert übergeben. Dein Tipp hilft mir da also nicht so wirklich weiter...

[X-Dragon]

Zitat von Hellcat:

Ich will sie ja aber nicht kontrollieren sondern in eine Textdatei speichern. Und dafür muß ich an die Funktion zum schreiben einen boolschen Wert übergeben. Dein Tipp hilft mir da also nicht so wirklich weiter...

Dann wäre es aber noch ganz interessant zu wissen wie deine Speichern-Prozedur überhaupt arbeitet, denn bis vorhin war es noch eine Prozedur .

Also soll deine Speicher-Funktion die du hast, 35mal aufgerufen werden und jeweils die kompletten Infos gespeichert werden?