文字列の一致を”=”ではなくAnsiCompareStr関数を使うようにした

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 8ac1654..f903fe9 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -587,7 +587,7 @@ var
 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;
@@ -679,7 +679,7 @@ var
        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;
@@ -695,7 +695,7 @@ var
        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;
@@ -916,7 +916,7 @@ var
 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;