|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблемы совместимости
Извиняюсь если тема уже была.
Перейду сразу к описанию проблемы В Delphi XE была создана БД (.cds) Программировал на висте (работает без нареканий). При переносе программы на XP возникаю проблемы с базой данных, в частности:удаляется/не отображается 1 поле (тип byte) и некорректно выводится 1 поле записей (тип string) при этом 3 других поля этого же типа отображаются корректно. з.ы. могу приложить скриншоты работы программы на обоих OC |
#2
|
|||
|
|||
Ах да забыл, на XP Delphi не установлен
|
#3
|
|||
|
|||
С этой проблемой разобрался.
Укажите пожалуйста ошибку в коде: Код:
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, 12.02.2011 в 00:59. |
#4
|
|||
|
|||
Все, ошибку понял FieldCount определяет число столбцов а не строк
|