Find all the records in the table and change the text

[Angel4585]

Delphi-Quellcode:

var
  Options: TLocateOptions;
begin
  Options := Options + [loPartialKey, loCaseInsensitive];
  Table1.Close;
  Table1.Open;
  Table1.First;
  while Table1.Locate('Permission',Edit1.Text,Options) do
  begin
    Table1.Edit;
    Table1.FieldByName('Permission').AsString := Edit2.Text;
    Table1.Post;
  end;

  ShowMessage('Permissions have been changed..');

Didn't test it but should work.
Though the better version ist the one from DeddyH using SQL.