1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

VAR
   Fund : Boolean;
   Suchwort,
   Inhalt : String;

BEGIN
     ...
     Dataset.First;

     WHILE NOT Dataset.Eof DO
     BEGIN
          Fund   := FALSE;
          Inhalt := Dataset.FieldByName('TITEL').asString;
          Fund   := ContainsStr(Inhalt,Suchwort);

          IF NOT Fund THEN
          BEGIN
               Inhalt := Dataset.FieldByName('Notiz').asString;
               Fund   := ContainsStr(Inhalt,Suchwort);
          END;

          IF NOT Fund THEN
          BEGIN
               Inhalt := Dataset.FieldByName('Code').asString;
               Fund   := ContainsStr(Inhalt,Suchwort);
          END;

          Dataset.Next;
     END;
     ...
END;                    

1:
2:
3:
4:
5:
6:

DataSet.DisableControls;
try
  ... Suche durchführen
finally
  DataSet.EnableControls;
end;                    

1:
2:

Dataset.StartTransaction;
Dataset.AutoCommit := TRUE;                    

1:
2:
3:
4:

Fund := ContainsStr(Inhalt,Konst.Code_Suchwort);
Dataset.Edit;
Dataset.FieldByName('MARKIERT').AsBoolean := Fund;
Dataset.Post;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:

procedure TFormCode.Bit_SuchStartClick(Sender: TObject);
CONST
     L = '%';

VAR
   Anzahl    : Integer;  // Anzahl der Einträge
   SQLtext,
   Suchwort  : String;   // Inhalt = der zu durchsuchende Text
   GK,                   // Kürzel für Groß-/Klein-Check
   Fund      : Boolean;  // Bei Fund auf TRUE setzen

begin
     Start := Now;

     IF Edit_Such.Text = '' THEN                                           // kein Text in Such-Edit
     BEGIN
          ShowMessage('Vor dem Suchen bitte Suchtext eingeben ...');
          EXIT;
     END ELSE
     BEGIN
          Konst.Code_Suchwort := Edit_Such.Text;
          Suchwort            := Edit_Such.Text;
     END;

     IF NOT DBCheck_Titel.Checked AND                                      // kein Suchort ausgewählt
        NOT DBCheck_Code.Checked  AND
        NOT DBCheck_Notiz.Checked THEN
     BEGIN
          ShowMessage('Vor dem Suchen bitte einen Suchort markieren ...');
          EXIT;
     END;

     Anzahl := DatMod.Dset_CodeListe.RecordCount;                          // Anzahl der Einträge ermitteln

     IF Anzahl = 0 THEN                                                    // wenn Recordcount = 0
     BEGIN
          ShowMessage('Es existieren keine Einträge zum Durchsuchen ...');
          EXIT;                                                            // Suche beenden
     END;

     DatMod.Dset_CodeListe.Close;
     DatMod.Trans_Update.Active := TRUE;
     DatMod.Query_Main.Close;
     DatMod.Query_Main.SQL.Clear;
     DatMod.Query_Main.SQL.Append('update CODELISTE');
     DatMod.Query_Main.SQL.Append('set MARKIERT = 0');
     DatMod.Query_Main.ExecQuery;

     Ausblenden;                                                           // Komponenten während des Suchens sperren

     GK := DBCheck_GrossKlein.Checked;

     IF GK THEN
     Suchwort := L + Suchwort + L;
     Suchwort := QuotedStr(Suchwort);

     IF DBCheck_Titel.Checked THEN                                                 // wenn Suche im Titel gewählt
        IF NOT GK THEN
           SQLtext := '(TITEL containing ' + Suchwort +')'
              ELSE
           SQLtext := '(TITEL like '       + Suchwort +')';

     IF DBCheck_Code.Checked THEN                                                 // wenn Suche im Code gewählt
        IF NOT GK THEN
           SQLtext := SQLtext + ' or (CODE containing ' + Suchwort +')'
              ELSE
           SQLtext := SQLtext + 'or  (CODE like '       + Suchwort +')';

     IF DBCheck_Notiz.Checked THEN                                                // wenn Suche im Notizfeld gewählt
        IF NOT GK THEN
           SQLtext := SQLtext + ' or (BESCHREIBUNG containing ' + Suchwort +')'
              ELSE
           SQLtext := SQLtext +  'or (BESCHREIBUNG like '       + Suchwort +')';

     DatMod.Dset_CodeListe.Close;
     DatMod.Trans_Update.Active := TRUE;
     DatMod.Query_Main.Close;
     DatMod.Query_Main.SQL.Clear;
     DatMod.Query_Main.SQL.Append('update CODELISTE');
     DatMod.Query_Main.SQL.Append('set MARKIERT = 1');
     DatMod.Query_Main.SQL.Append('where ' + SQLtext);
     DatMod.Query_Main.ExecQuery;

     DatMod.Dset_CodeListe.Open;
     DatMod.Dset_CodeListe.Filtered := FALSE;
     DatMod.Dset_CodeListe.Filter   := 'MARKIERT = 1';
     DatMod.Dset_CodeListe.Filtered := TRUE;
     DatMod.Dset_CodeListe.Last;
     Anzahl := DatMod.Dset_CodeListe.RecordCount;
     DatMod.Dset_CodeListe.Filtered := FALSE;

     Einblenden;
     Einlesen;

     IF Anzahl = 0 THEN SQLtext := 'Keine passenden Einträge gefunden.';
     IF Anzahl = 1 THEN SQLtext := IntToStr(Anzahl) + ' Eintrag gefunden.';
     IF Anzahl > 1 THEN SQLtext := IntToStr(Anzahl) + ' Einträge gefunden.';

     VST.SetFocus;
     Ende   := Now;
     ShowMessage(SQLtext);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TFormCode.Test(Sender: TObject);
VAR
   i,Wert  : Integer;
   Liste   : TListBox;
   Datei   : String;
   Schnitt : Extended;

begin
     Liste := TListBox.Create(FormCode);
     Liste.Parent := FormCode;
     Liste.Visible := FALSE;
     Liste.Sorted  := FALSE;

     Datei := Konst.Pfad_Main + 'Zeittest.txt';
     Wert  := 0;

    {MaxTest und das Array ZeitTest sind globale "virtuelle" Variablen, die später wieder entfernt werden, wenn ich den Test nicht mehr brauche}

     FOR i := 1 TO MaxTest DO
     BEGIN
          Bit_SuchStartClick(Sender);
          ZeitTest[i] := MillisecondsBetween(Start,Ende);
          Wert        := Wert + ZeitTest[i];
          Liste.Items.Append(IntToStr(ZeitTest[i]));

          FormCode.Caption := IntToStr(i);
          Application.ProcessMessages;
     END;

     Schnitt := Wert / MaxTest;

     Liste.Items.Append('');
     Liste.Items.Append(FloatToStr(Schnitt));

     Liste.Items.SaveToFile(Datei);

     Liste.Sorted := TRUE;
     Datei := Konst.Pfad_Main + 'Zeittest sortiert.txt';
     Liste.Items.SaveToFile(Datei);

     FreeAndNil(Liste);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

     IF DBCheck_Titel.Checked THEN                                         // wenn Suche im Titel gewählt
        IF NOT GK THEN
           SQLtext := '(TITEL containing ' + Suchwort +')'
              ELSE
           SQLtext := '(TITEL like '       + Suchwort +')';

     IF DBCheck_Code.Checked THEN                                          // wenn Suche im Code gewählt
     BEGIN
          IF SQLtext <> '' THEN SQLtext := SQLtext + ' or ';               // wenn Suche im Titel nicht gewählt ist SQLtext noch leer
          IF NOT GK THEN
             SQLtext := SQLtext + '(CODE containing ' + Suchwort +')'
                ELSE
             SQLtext := SQLtext + '(CODE like '       + Suchwort +')';
     END;

     IF DBCheck_Notiz.Checked THEN                                         // wenn Suche in Notiz gewählt
     BEGIN
          IF SQLtext <> '' THEN SQLtext := SQLtext + ' or ';               // und hier dasselbe: wenn leer, dann nichts davorsetzen
          IF NOT GK THEN
             SQLtext := SQLtext + '(BESCHREIBUNG containing ' + Suchwort +')'
                ELSE
             SQLtext := SQLtext +  '(BESCHREIBUNG like '       + Suchwort +')';
     END;