1:
2:
3:
4:
5:

if not dm.MyTableDomain_Klasse.Locate('Domain_KlasseID',999,[]) then
  begin
  dm.MyTableDomain_Klasse.AppendRecord([999,'nicht festgelegt', 'not specified']);
  Domain_KlasseID:= 999;
  end // if					

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

if not dm.MyTableDomain_Klasse.Locate('Domain_KlasseID',999,[]) then  
  begin  
    dm.MyTableDomain_Klasse.Edit;
    dm.MyTableDomain_Klasse.AppendRecord([999,'nicht festgelegt', 'not specified']);  
    Domain_KlasseID:= 999;  
    dm.MyTableDomain_Klasse.Post;
  end // if					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

:
      DM.Neuladen([DM.qryTabelle],False);
      if DM.GeheZuDatenSatz(DM.qryTabelle, 'AUFTRNR', lsAuftrNr, False) then
      begin
        try
          DM.qryTabelle.Edit;
          lsKuerzel := ExtractFileName(lsVerz);
          lsKuerzel := Copy(lsKuerzel, 6, 255);
          DM.qryTabelle.FieldByName('KUERZEL').AsString := lsKuerzel;
          DM.qryTabelle.Post;
        except
          Fehler('zur Zeit kann das Kürzel nicht in die Tabelle eingetragen werden!'); // meine Ausgabefunktion, kann durch andere ersetzt werden
        end;
      end;
:					

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:

// in Interface, Objekt DM (Datamodule)
type
   Tdm = class(TDataModule)
:
      function GeheZuDatensatz(poTabelle: TDataset; psFeld, psWert: string; pbSchnell : boolean = True): Boolean;
:
   end;

implementation

function Tdm.GeheZuDatensatz(poTabelle: TDataset; psFeld, psWert: string; pbSchnell: boolean = True): Boolean;

   function SucheLangsam(psFeld, psWert: string): Boolean;
   var
      lbGef: boolean;
   begin
      with poTabelle do
      begin
         try
// Falls die Tabelle in einem TDBGrid benutzrt wird, wird hier der Datensatz-Zeiger eingefroren, ansonsten würde der Datensatzzeiger im TDBGrid wandern
            DisableControls;
            psWert := Trim(Uppercase(psWert));
            lbGef := False;
            First;
            while not (EoF or lbGef) do
            begin
               lbGef := (UpperCase(Trim(FieldByName(psFeld).AsString)) = psWert);
               if not lbGef then
                  Next
               else
                  Break;
            end;
         finally
// Hier wird der Datensatz-Zeiger wieder freigegeben
           EnableControls;
         end;
      end;
      Result := lbGef;
   end;

begin
   if not (poTabelle.Active) then
      poTabelle.Active := True;
   if pbSchnell then
   begin
      try
         Result := poTabelle.Locate(psFeld, psWert, [loCaseInsensitive]);
      except
         Result := SucheLangsam(psFeld, psWert);
      end;
   end
   else
   begin
      Result := SucheLangsam(psFeld, psWert);
   end;
end;					

1:

DM.qryTabelle.Active := True;