Возможно ли подставить параметр процедуры в имя объекта.

[Kottik]

Здравствуйте.
Имеется несколько TList.

procedure TfmMain.ShowListContents(Integer: X);
var
  i : Integer;
begin
  for i := 0 to List.Count-1 do
  begin
//действия
  end;
end;

Как сделать, чтобы процедура работала для любого из TList? Можно ли подставить параметр процедуры X в имя объекта:
x=5,
...List5.Count-1...

Если действий немного, то можно Case завести, но ведь это явно неправильный путь. Пожалуйста, подскажите.

[W0LF]

На примере ListBox'a...
В FindComponent пишем имя компонента...

  for i:=1 to 5 do begin
    TListBox(FindComponent('ListBox'+IntToStr(i))).Items.Add('Новая строка');
  end;

[Kottik]

Простите, и как мне таким способом TList отыскать? Он же не является компонентом формы

[Slovinsky]

Помимо икса List передай параметром в процедуру ))

[Kottik]

Сделал так, возможно это неправильно:
массив указателей на объекты TList. X, передаваемый параметром - это индекс данного массива.

[Stilet]

(Integer: X);

Ану бегом Паскаль учить!

массив указателей на объекты

Но можно и так, но проще без массива,
А еще проще

program Project1;

{$APPTYPE CONSOLE}

uses Classes,
  SysUtils;
type
 TList=class(Classes.TList)
  procedure ShowListContents(x:Integer);
 end;
{ TList }

procedure TList.ShowListContents;
var
  i : Integer;
begin
  for i := 0 to Count-1 do  begin
   write(Integer(Get(i)):5);
  end;
writeln;
end;

var  l,k:TList;
begin
 l:=TList.Create;k:=TList.Create;
 l.Add(pointer(1));l.Add(pointer(2));
 k.Add(pointer(3));k.Add(pointer(4));
 l.ShowListContents(0);
 k.ShowListContents(0);
  { TODO -oUser -cConsole Main : Insert code here }
 l.Free;k.Free;
 readln;
end.

т.е. переопределить этот класс, добавив в него свой метод.
Смысл ясен?

[Kottik]

Спасибо за ответы.
Смысл не ясен, вчитываться некогда. Но обязательно позже вернусь к этому коду.