begin
for i := Count - 1 downto 0 do begin
- if Items[ i ].Title = inTitle then begin
+ if AnsiCompareStr(Items[ i ].Title, inTitle) = 0 then begin
Result := Items[ i ];
Exit;
end;
i : integer;
begin
for i := Count - 1 downto 0 do begin
- if Items[i].FBBSID = BBSID then begin
+ if AnsiCompareStr(Items[i].FBBSID, BBSID) = 0 then begin
Result := Items[i];
Exit;
end;
i : integer;
begin
for i := Count - 1 downto 0 do begin
- if Items[i].FTitle = Title then begin
+ if AnsiCompareStr(Items[i].FTitle, Title) = 0 then begin
Result := Items[i];
Exit;
end;
begin
Result := nil;
for i := 0 to Count - 1 do begin
- if Items[i].FileName = ItemFileName then begin
+ if AnsiCompareStr(Items[i].FileName, ItemFileName) = 0 then begin
Result := Items[i];
Exit;
end;