Man kann das auch noch schöner und schneller machen; man braucht dazu nur eine Zwischenvariable.
Delphi-Quellcode:
procedure TForm.FileMenuItemClick(Sender: TObject);
var
i:integer;
lines : TStrings;
begin
if not opendialog.Execute then exit;
lines := (PopupMenu.PopupComponent as TMemo).Lines;
for i := 0 to opendialog.Files.count-1 do
lines.Add(opendialog.Files[i]);
end;
Damit ist die Anweisung (PopupMenu.PopupComponent as TMemo).Lines ausserhalb der Schleife und das ist ein Vorteil, weil sich dahinter gleich 3 Funktionsaufrufe verstecken.
Aber es geht noch besser:
Delphi-Quellcode:
procedure TForm.FileMenuItemClick(Sender: TObject);
var
lines : TStrings;
begin
if opendialog.Execute then
begin
lines := (PopupMenu.PopupComponent as TMemo).Lines;
lines.AddStrings(opendialog.Files);
end;
end;
Man könnte jetzt die Zwischenvariable "lines" wieder eliminieren, aber das macht den Code nicht besser lesbar.