перебор записей

[BredoZavR]

есть код замены первых трех цифр в номере телефона в БД

procedure TForm1.Button9Click(Sender: TObject);
var
ph: String;
begin

  DataSource1.DataSet.Edit;

  ph:=DataSource1.DataSet.Fields[0].AsString;
  ph:=Copy(ph,4,3);
  Edit3.Text:=ph;
  ph:=Edit13.Text + ph;
  DataSource1.DataSet.Fields[0].AsString:=ph;
  DataSource1.DataSet.Post;

end;

предположим, в данный момент по запросу поиска отображается n записей, как произвести данную процедуру для всех записей?

[Yurk@]

DataSource1.DataSet.First;
while not Table1.Eof do
begin
  DataSource1.DataSet.Edit;

  ph:=DataSource1.DataSet.Fields[0].AsString;
  ph:=Copy(ph,4,3);
  Edit3.Text:=ph;
  ph:=Edit13.Text + ph;
  DataSource1.DataSet.Fields[0].AsString:=ph;
  DataSource1.DataSet.Post;
DataSource1.DataSet.Next;
end;

[BredoZavR]

while not Table1.Eof do

это разве не пойдет до конца _файла_?

[Yurk@]

...как произвести данную процедуру для всех записей?

тогда как понять твои слова ?

[BredoZavR]

Для всех записей, что в данный момент отображены
Все, разобралась, с помощью RecordCount %)

[Black Fregat]

А как именно выбираются записи для отображения?