ClientDataSet вывод инфы

[bilibian]

Привет.

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Добавили поля
    ClientDataSet1.FieldDefs.Clear;
    ClientDataSet1.FieldDefs.Add('Name1', ftString, 20, False);
    ClientDataSet1.FieldDefs.Add('Name2', ftString, 20, False);

    // Создали набор данных
    ClientDataSet1.CreateDataSet();

    // сохраняем
    ClientDataSet1.SaveToFile('E:\delphi\!DataBase\db.cds');

    // назначаем
    ClientDataSet1.FileName:='E:\delphi\!DataBase\db.cds';

    // активируем
    ClientDataSet1.Active:=True;

    // Заполняем
    ClientDataSet1.Append();
    ClientDataSet1.FieldByName('Name1').Value := '1';
    ClientDataSet1.FieldByName('Name2').Value := '2';

    ShowMessage(?);
end;

Как достать инфу из определенной ячейки и вывести с помощью ShowMessage на экран?

[Stilet]

ShowMessage(
 ClientDataSet1.FieldByName('Определенная ячейка по имени поля').AsString;
);

ShowMessage(
 ClientDataSet1.Fields[Номер ячейки в записи].AsString;
);

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Добавили поля
    ClientDataSet1.FieldDefs.Clear;
    ClientDataSet1.FieldDefs.Add('Name1', ftString, 20, False);
    ClientDataSet1.FieldDefs.Add('Name2', ftString, 20, False);

    // Создали набор данных
    ClientDataSet1.CreateDataSet();  //создается и активищируется пустой набор данных

    // сохраняем
    ClientDataSet1.SaveToFile('E:\delphi\!DataBase\db.cds');  //зачем пустой набор сохранять?
    // назначаем
    ClientDataSet1.FileName:='E:\delphi\!DataBase\db.cds';  //для чего?

    // активируем
    ClientDataSet1.Active:=True;  //это не надо, после CreateDataSet уже активен

    // Заполняем
    ClientDataSet1.Append();
    ClientDataSet1.FieldByName('Name1').Value := '1';
    ClientDataSet1.FieldByName('Name2').Value := '2';
    ClientDataSet1.Post;  //завершение создания записи
    ShowMessage(?); //это уже сказали
end;

[bilibian]

Спасибо за помощь, но

Сообщение от Stilet

ShowMessage(
 ClientDataSet1.FieldByName('Определенная ячейка по имени поля').AsString;
);

ShowMessage(
 ClientDataSet1.Fields[Номер ячейки в записи].AsString;
);

Получаю данные только из выделенной строки, как делать выборку из любой строки? Например вытащить данные из нескольких ячеек.

[Stilet]

 with ClientDataSet1 do begin
  First; MoveBy(Номер строки);
  ShowMessage(
    Fields[Номер колонки].AsString;
   );
 end;

[bilibian]

Stilet, спасибо!

Для чего нужна эта строка?

ClientDataSet.first;

[Stilet]

MoveBy() перемещается относительно текущей записи. Если хочешь абсолют, то приходится сначала становиться на первую запись, а уже от нее перемещаться.

[bilibian]

Stilet, понятно, спасибо за помощь!

А если мне, допустим, нужно вывести только те поля которые равны единице, то для этого нужно в цикле каждую строку перебирать и сравнивать с шаблоном или есть что то подобное как в mysql? Типа сразу извлекает только те, которые соответствуют условию.

[Stilet]

А если мне, допустим, нужно вывести только те поля которые равны единице

Цыкель-цикель-мотацикель:

 with ClientDataSet1 do begin
  First; MoveBy(Номер строки);
  for i:=0 to FieldsCount-1 do
    if    (Fields[i].DataType in [ftInteger,ftLargeint,ftSmallint,ftWord]) 
    and (Fields[i].AsInteger=1)
    then   ShowMessage(Fields[i].AsString;);
 end;

[bilibian]

Stilet, спасибо за помощь!

Вместо единицы искал слово "New", сделал так:

with Form4.ClientDataSet1 do begin
  for G := 0 to RecordCount-1 do begin
    First;      // Переход на первую позицию
    MoveBy(G);  // Номер строки
        
    if Fields[1].AsString = 'New' then begin
      ShowMessage(Fields[2].AsString);
      Break;
    end;
  end;
end;