Index eines Strings einer StringList finden

[ichbins]

Selber schreiben:

Delphi-Quellcode:

function indexofpartstring(sl:tstringlist;s:string):integer;
var
  i:integer;
begin
  for i:=0 to sl.count-1 do 
    if copy(sl.strings[i],1,length(s))=s then
    begin
      result:=i;
      exit;
    end;
end;