"with"-Schleife für mehrere Objekte??

[ak1]

Hallo Leute,

ich habe einen Code der sieht ungefähr so aus:

Delphi-Quellcode:

with Objekt1 do begin
    //irgendwas
  end;

Jetzt würde ich diese doch sehr lange Schleife gerne für mehrere Objekte anwenden, ungefähr so:

Delphi-Quellcode:

with (Objekt1) and (Objekt2) and (Objekt3) do begin
    //irgendwas
  end;

Das geht natürlich nicht, aber ich denke es ist verständlich was ich tun will. Wie könnte ich das sonst machen?

Gruß

[Tyrael Y.]

Sind alle Objekte vom selben Typ ?

[Tyrael Y.]

..wenn alle Objekte z.B. vom Typ TmeinTyp sind und du innerhalb der Methode nen Sender zur Verfügung hast dann beispielsweise so...

Delphi-Quellcode:

with Sender as TmeinTyp do
begin
 -irgendwas-
end;

[Sharky]

Hai ak1,

wenn Du sicherstellen kannst das Du immer die Eigenschaft des richtigen Objektes ansprichst geht es.

Delphi-Quellcode:

begin
  with Edit1, Label1 do
  begin
    Caption := Text;
  end;
end;

Oder kürzer

Delphi-Quellcode:

begin
  Label1.Caption := Edit1.Text;
end;

[Dannyboy]

Hallo ak1,
ich setzte mal voraus, dass Deine Objekte zur selben Klasse gehören.
Packe sie mal alle in ein Array und greife dann so zu (ungetestet):

Delphi-Quellcode:

VAR MYObjects : Array[1..<anzahl der objekte>] of <Oberklasse>
            i : integer;
// objekte hinein packen ... ... ...
// ... 
// ...
// zugriff auf alle Objekte im Array
for i:= 1 to <anzahl der objekte> do
    With MYObjects[i] Do
    begin
      // whatever you wanna do
    end;

Gruß Dannyboy

[jbg]

Zitat von ak1:

"with"-Schleife

Du weißt aber schon die Definition einer Schleife? Nicht jeder Block / mit begin-end begrenzter Quellcode ist eine Schleife.

[ak1]

Die Objekte gehören natürlich alle zur gleichen Klasse.

Zitat von Sharky:

Delphi-Quellcode:

begin
  with Edit1, Label1 do
  begin
    Caption := Text;
  end;
end;

[/delphi]

Das findet Delphi irgendwie nicht so gut (Program bleibt stehen). Ich werde jetzt mal die Version mit dem Array probieren.

Danke für die Tips.

Update: Die Geschichte mit dem Array klappt sehr gut. Danke nochmal.

[ak1]

Zitat von jbg:

Zitat von ak1:

"with"-Schleife

Du weißt aber schon die Definition einer Schleife? Nicht jeder Block / mit begin-end begrenzter Quellcode ist eine Schleife.

Hast ja recht, da "with" nur einmal ausgeführt wird, ist es auch nur eine Anweisung.

[Sharky]

Zitat von ak1:

...Das findet Delphi irgendwie nicht so gut (Program bleibt stehen). .....

Hmmm..... geht bei mir ohne Probleme! Aber da Du ja alle Objekte von der selben Klasse hast geht das so natürlich nicht.