DBF und MDX Fehler

[sstvmaster]

Hi,

habe hier eine dbase Datenbank mit mdx (Fritz!Fax) möchte diese gern auslesen.
Die dbf kann ohne mdx geöffnet werden, mit mdx kommt die Fehlermeldung:

Index based on unknown field "LEFT"

In der MDX sieht man im editor folgendes "UPPER(LEFT(DATEI, 100))".

Also scheint es in TDBF den Befehl "LEFT" nicht zu geben.

Kann ich da einen "feature request" dafür machen?

Oder kann ich den Befehl und Funktion selber schreiben, wenn ja in welcher datei?

Test Projekt: https://ufile.io/s0vbm

Vielen Dank für eure Hilfe

Maik

[sstvmaster]

Warum ist diese Version von TDBF von hier: https://sourceforge.net/projects/tdbf/ nicht in Lazarus integiriert?

In dieser gibt es dieses LEFT?

Wer ist für DBFLaz verantworlich?

[af0815]

Vieleichtweil es für Delphi und BCP deklariert ist.

Wen es dort vorhanden ist, so kannst du ja den Code nach FPC importieren und estesten,wenn es funktioniert, so kannst du sicher einen Patch einreichen.

Im Zeitaltervon sqlite und SQL haben alte Desktopdatenbanken einen niederen Stellenwert. Deshalb ist eine Erweiterung um das Feature, nurso, sicher nicht auf dem Radar der Entwickler.

Wer an der Software geschrieben hat, kann man in den Logs vom SVN nachlesen. Da es Open Source ist, kannst auch du für eine Änderung sorgen.

Btw werden Crossposts auch nicht so gerne gesehen.

Andreas

[wp_xyz]

Vieleichtweil es für Delphi und BCP deklariert ist.
Wen es dort vorhanden ist, so kannst du ja den Code nach FPC importieren

Aber bitte nicht im Delphi-Source-Code nachsehen und herauskopieren. Lazarus/FPC soll sauber bleiben!

[sstvmaster]

Ich portieren hier nichts, bin Anfänger. Dann geht's halt nicht. Danke euch trotzdem.

[sstvmaster]

So ich hab mal probiert und nun ist folgende Patchdatei entstanden:

dbf_prscore.pas.patch:

Code: Alles auswählen

 
Index: dbf_prscore.pas
===================================================================
--- dbf_prscore.pas	(revision 38983)
+++ dbf_prscore.pas	(working copy)
@@ -1426,6 +1426,18 @@
   end;
 end;
 
+procedure FuncLeftString(Param: PExpressionRec);
+var
+  srcLen, index, count: Integer;
+begin
+  srcLen := StrLen(Param^.Args[0]);
+  index := 0;
+  count := PInteger(Param^.Args[1])^;
+  if index + count > srcLen then
+    count := srcLen - index;
+  Param^.Res.Append(Param^.Args[0]+index, count)
+end;
+
 procedure FuncUppercase(Param: PExpressionRec);
 var
   dest: PChar;
@@ -2336,6 +2348,7 @@
 {$ifdef SUPPORT_INT64}
     Add(TFunction.Create('STR',       '',      'LII', 1, etString, FuncInt64ToStr, ''));
 {$endif}
+    Add(TFunction.Create('LEFT',      'LEFT',  'SI',  2, etString, FuncLeftString, ''));
     Add(TFunction.Create('DTOS',      '',      'D',   1, etString, FuncDateToStr, ''));
     Add(TFunction.Create('SUBSTR',    'SUBS',  'SII', 3, etString, FuncSubString, ''));
     Add(TFunction.Create('UPPERCASE', 'UPPER', 'S',   1, etString, FuncUppercase, ''));
 
 

Ich habe Trunk 1.9.0 installiert via fpcupdeluxe. Wie kann ich nun fpc und Lazarus neu kompilieren damit ich die Änderung testen kann?

Die gepatchte Datei befindet sich in C:\fpcupdeluxe\fpcsrc\packages\fcl-db\src\dbase

[sstvmaster]

Bitte kann mir einer helfen?

[theo]

make clean all müsste eigentlich reichen für die FCL.
https://forum.lazarus.freepascal.org/in ... ic=29547.0
http://wiki.freepascal.org/buildfaq
Bei Lazarus kann man das neu bauen innerhalb der IDE veranlassen.

[sstvmaster]

Also:
Mit cmd in das Verzeichnis C:\fpcupdeluxe\fpcsrc\packages\fcl-db\src\dbase wechseln und dann make clean all ausführen? Muss ich mit Set noch Parameter setzen?

[sstvmaster]

So,

Patch wurde angenommen -> fpc rev 38990

[theo]

Patch wurde angenommen -> fpc rev 38990

Sehr gut, gratuliere.