[Harald]

Извиняюсь если тема уже была.
Перейду сразу к описанию проблемы
В Delphi XE была создана БД (.cds)
Программировал на висте (работает без нареканий).
При переносе программы на XP возникаю проблемы с базой данных, в частности:удаляется/не отображается 1 поле (тип byte) и некорректно выводится 1 поле записей (тип string) при этом 3 других поля этого же типа отображаются корректно.
з.ы. могу приложить скриншоты работы программы на обоих OC

[Harald]

Ах да забыл, на XP Delphi не установлен

[Harald]

С этой проблемой разобрался.
Укажите пожалуйста ошибку в коде:

Код:

procedure TForm4.Button1Click(Sender: TObject);
Var
  i,a:byte;
begin
  ListBox1.Clear;
  a:=0;
  for i:=1 to ClientDataSet1.FieldCount do 
    Begin
        if Edit1.Text=ClientDataSet1['Поиск'] then
          Begin
            ListBox1.Items.Add(ClientDataSet1['Заголовок']);
            a:=1;
          End;
        ClientDataSet1.Next;
    End;
  if a=0 then ListBox1.Items.Add('Google тебе в помощь');
  ClientDataSet1.First;
end;

procedure TForm4.Button2Click(Sender: TObject);
Var
  i:byte;
begin
  Memo1.Clear;
  for i:=1 to ClientDataSet1.FieldCount do 
    Begin
        if ListBox1.Items[ListBox1.ItemIndex]=ClientDataSet1['Заголовок'] then
          Begin
            Memo1.Lines.LoadFromFile ('..\..\Teoria\'+ClientDataSet1['Адрес']);
          End;
        ClientDataSet1.Next;
    End;
end;

lmikle: Пользуемся тегами!!!

Программа должна искать по всей бд указанное в Edit1 наименование. На деле же поиск дальше 2 строки не идет

[Harald]

Все, ошибку понял FieldCount определяет число столбцов а не строк