TObjectList Suchen nach String

[arbu man]

Delphi-Quellcode:

function findimage(fname:string):integer;
var i:integer;
begin
  for i:=0 to olist.count-1 do begin
    if (olist[i]as TImage).name=fname then result:=i;
  end;
end;