locate vor insert

[Delphi-Phil]

also es war schon richtig nur an einer kleinen Sache war noch ein Problemchen...


Es muss richtig so sein:

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, [b][loCaseInsensitive][/b]) then
      ShowMessage('Klasse schon vorhanden')
    else
    begin
      TblKlassen.Insert;
      TblKlassen.FieldByName('Klassenname').AsString := Klasse;
      TblKlassen.Post;
      TblKlassen.First;
    end;
  end;
end;

Gruß Phil und vielen Dank für Eure Hilfe!