Problem bei TStringList

[Popov]

Zitat von mkinzler:

3.) Vergessse with

In dem Fall sehe ich nichts verwerfliches dran, aber jeder nach seinem Geschmack.

Zitat:

4.)

Delphi-Quellcode:

procedure TForm1.Marmelade(ShowX: array of Byte);
var
  i: Integer;
begin
  for i := Low(ShowX) to High(ShowX) do
    FindComponent('Show'+IntToStr(i+1)).Visible := ShowX[i] = 1; 
end;