Filterproblem mit TTable

[Grolle]

Hi Marabu,
danke für deinen Vorschlag. Mit meinem bisherigen Ansatz habe ich auch noch einige Probleme:

Delphi-Quellcode:

var
sf : TIniFile;
i : integer;
s : string;
begin
  readstring;
  Form1.AdsTable1.First;
  sf := TIniFile.create(ExtractFilePath(ParamStr(0))+'daten\checkbox.ini');
  While not Form1.AdsTable1.eof do
    begin
      s := Form1.AdsTable1.FieldByName('def3').AsString;
      for i := 0 to 9 do
        if (sf.ReadBool('Jahre',IntToStr(i),true)) and
          (Form1.AdsTable1.FieldByName('bool').AsString = '0')
          and (pos(IntToStr(i),s)>0) then
          begin
            Form1.AdsTable1.Edit;
            Form1.AdsTable1.FieldByName('bool').AsString := '1';
            Form1.AdsTable1.Post;
          end
        else
          begin
            Form1.AdsTable1.Edit;
            Form1.AdsTable1.FieldByName('bool').AsString := '0';
            Form1.AdsTable1.Post;
          end;
      Form1.AdsTable1.Next;
    end;
  Form1.AdsTable1.Filter := 'bool="1"';
  Form1.AdsTable1.Filtered := true;
  sf.Free;
end;

Die Daten kommen aus ner Ini-Datei. Aber in der for-Schleife ist irgendwo ein Fehler?!?
Wie dem auch sei, ich werde mir deine Version mal versuchen auszubauen, da sie wohl etwas
performanter ist
// Edit: Was ist denn CompactStr in deinem Code?
Viele Grüße....