locate vor insert

[Union]

Ja, das ginge folgendermassen (ungetestet):

Delphi-Quellcode:

procedure THauptForm.Klasse1Click(Sender: TObject); 
var 
  Klasse : String; 
begin 
  Klasse := InputBox('Neue Klasse anlegen', 'Klasse:',''); 
  if Klasse <> '' then 
  begin 
    //Prüfen ob der eintrag nicht schon vorhanden ist!! 
    if TblKlassen.Locate('Klassenname', Klasse, [loIgnoreCase]) then
      ShowMessage('Klasse schon vorhanden')
    else
    begin
      TblKlassen.Insert; 
      TblKlassen.FieldByName('Klassenname').AsString := Klasse; 
      TblKlassen.Post; 
      TblKlassen.First; 
    end;
  end; 
end;

Falls das DataSet gross ist, sollte ein Index auf UpperCase(KlassenName) erstellt sein.