MDI Anwendung: Auflistung der Children in einer Listbox

[Khabarakh]

Der Quelltext ist ein vollwertiger, performanterer und eleganterer - das wolltest du doch - Ersatz für

Delphi-Quellcode:

for i:=0 to Length(Self.MdiChildren)-1 do
    if (Self.MdiChildren[i] is TMDIChild) then
    begin
      if (TMDIChild(Self.MdiChildren[i]).Text = LB_Dok.SelectedItem.ToString) then
      begin
        TMDIChild(Self.MdiChildren[i]).BringToFront;
        break;
      end;
    end;

...

procedure TMainFrm.ChildClose(t, p : String);
var
  i : Integer;
begin
  // Child aus Listbox entfernen
  for i:=0 to LView_Dok.Items.Count -1 do
    if (LView_Dok.Items.Item[i].Text.Equals(t) and LView_Dok.Items.Item[i].Tag.Equals(p)) then
    begin
      LView_Dok.Items.RemoveAt(i);
      break;
    end;
end;

Schon allein die Kürze des Codes sollte überzeugen .