Изпечатай

[laskov]

Импортирам dbf (MyDbf) файл в празна SQL (ZQuery1) таблица:

  if ZQuery1.BOF and ZQuery1.EOF then
    begin
     MyDbf.First;
     while not MyDbf.EOF do
       begin
         ZQuery1.Append;
         ZQuery1.FieldValues['N'] := MyDbf.FieldValues['N'];
         ZQuery1.FieldValues['DATA'] := MyDbf.FieldValues['DATA'];
         MyDbf.Next;
       end;
       ZQuery1.Post;
    end;

Преди изпълнението MyDbf.RecordCount - ZQuery1.RecordCount = 40257, а след изпълнението е 702. Импортират се 39555 записа.
 Сумите на N в едната и в другата база са еднакви.
 Отварям dbf файла с друга програма - според нея броят на записите е 39555, но според FoxPro са 40257.
Моля, посъветвайте ме как да открия причината за несъответствието в броя на записите!

[laskov]

Направих следната проверка:

  MyDbf.First;
  ZQuery1.First;
  while (not MyDbf.EOF) and (ZQuery1.FieldValues['N'] = MyDbf.FieldValues['N']) and (ZQuery1.FieldValues['DATA'] = MyDbf.FieldValues['DATA']) do
     begin
         MyDbf.Next;
         ZQuery1.Next;
     end;

и цикълът се изпълнява докато достигне MyDbf.EOF and ZQuery1.EOF , което трябва да означава, че (това, което се чете от) двете таблици са идентични.
Дали може да се окаже, че в dbf-а има записи, маркирани за изтриване?

[jet]

пробвай във fox pro
set delete on
и тогава брой записите, после

set delete off
и пак ги преброй

[laskov]

Тези команди FoxPro-то ги хареса, но аз не видях разлика в бройката на записите. Не се и замислих много, ами направих едно PACK и истината лъсна . Благодаря!

[laskov]

Нов проблем. Опитвам се да обработя един текст на кирилица, UTF-8, но се оказа, че това с Lazarus не е лесна работа. Ето как успях да направя аналог на MidStr()

procedure TForm1.Button1Click(Sender: TObject);
  var P : PChar = 'Това е стринг, завършващ на 0';
begin
  Memo1.Append(StrPos(P, 'стри'));
  Memo1.Append(StrPas(@Memo1.Lines.ValueFromIndex[0][7]));
  P := @Memo1.Lines.ValueFromIndex[1][1];
  (P + 8)^ := #0;
  Memo1.Append(StrPas(P));
end;

И резултатът е

стринг, завършващ на 0
инг, завършващ на 0
инг,

Но в зависимост от съдържанието на стринга, първият и/или последният символ може да не са коректни.
Има ли по-свястен начин?

Освен това, направих промени в една от библиотеките му. Той разбира, че е променена и я записва, но не я компилира! Как да му кажа да я компилира?

[laskov]

Проблемите по-горе бяха решени. Сега имам следния въпрос:

Имам база данни и навигатор: TDBNavigator. След цъкване върху бутоните nbInsert или nbEdit работещият с програмата трябва да продължи с въвеждане на данни или с цъкване върху nbPost или nbCancel от навигатора. Но не е проблем той да цъкне върху друг обект, който няма връзка с горните действия.
Как се решава този проблем?

Май намерих решение: Ползват се TGroupBox. Ако всичко, което е свързано с въпросната таблица от базата данни е в GroupBox1, а всичко останало в GroupBox2, то

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TDBNavButtonType);
begin
  case Button of
    nbInsert, nbEdit    : GroupBox2.Enabled := False;
    nbCancel, nbPost  : GroupBox2.Enabled := True;
  end;
end;