TSDFDataset ftString wird zu kurz gespeichert

[BrunoT]

Hallo,

ich habe ein Problem mit langen Strings (80 Zeichen) in Kombination mit TSDFDataset.
Schon bei der Eingabe in ein DBTextfeld wird die Eingabe auf 49 Zeichen begrenzt. Warum? Kann mir jemand dabei helfen?

[Bitschubser]

Schon bei der Eingabe in ein DBTextfeld wird die Eingabe auf 49 Zeichen begrenzt. Warum? Kann mir jemand dabei helfen?

Wie ist denn das zugehörige Feld in der Datenbak definiert?
Kann das überhaupt Strings mit >= 50 Zeichen aufnehmen?

[wp_xyz]

Das ist eine sehr eigenwillige Komponente...Ich kriege per Code nicht einmal eine leere SDF-Tabelle erstellt. Und wenn ich die FieldDefs im ObjectInspektor eintrage, kann ich die Feldgröße nicht mehr ändern, sie bleibt hartnäckig auf dem zuerst eingegebenen Wert, auch wenn ich die SDFDatei lösche. Das hat sich offenbar seit langem niemand mehr angesehen...

Hat jemand bessere Erfahrungen? Wenn ja, wie wird die Komponente angewendet? (Bitte Schritt für Schritt, für Dumme wie mich)

[MacWomble]

Keine Ahnung ob das weiter hilft:
http://forum.lazarus.freepascal.org/ind ... pic=3289.0

[wp_xyz]

Nein, kannte ich schon, die verlinkte Seite existiert nicht mehr (und wird auch in der WayBack Machine nicht gefunden - von wegen "Das Internet vergisst nichts"...)

[shokwave]

Hi,

ich glaube ich hab was gefunden. http://fpc-devel.freepascal.narkive.com/BYDaIFLy/tsdfdataset-does-not-work-with-records-larger-then-255-chars
In der ersten Antwort ist von den Schemas die Rede.

Possibly because FieldDefs[<n>].Size is too small. Did you setup
TSdfDataset.Schema according to your needs? The format is
<fieldname>=<fieldsize> AFAIK, MAXSTRLEN is a default value only.

Hab gerade getestet, mit folgendem Code:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  SdfDataSet1.FileName := ExtractFilePath(ParamStr(0)) + 'test.csv';
  SdfDataSet1.FieldDefs.Add('id', ftInteger);
  SdfDataSet1.Schema.Add('ID = 8');
  SdfDataSet1.FieldDefs.Add('text', ftMemo);
  SdfDataSet1.Schema.Add('TEXT = 300');
 
  SdfDataSet1.FileMustExist := False;
  SdfDataset1.FirstLineAsSchema := False;
  SdfDataSet1.Open;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SdfDataSet1.Append;
  SdfDataSet1.FieldByName('id').AsInteger := 99;
  SdfDataSet1.FieldByName('text').AsUTF8String :=
    QuotedStr('ein neuer furchtbar langer langer text mit ganz vielen neuen zeichen und was weiß ich nicht alles');
  SdfDataSet1.Post;
end;

Wichtig ist hier FirstLineAsSchema auf False und das Schema anzulegen.

[wp_xyz]

Richtig, mit Schema ist die Komponente wesentlich zahmer... Das Schema hat auch Priorität vor den Einstellungen von FieldDefs. Evtl werden diese sogar komplett ignoriert, denn wenn ich die Schema-Einträge lösche, sind die Feldnamen verloren, obwohl sie noch in den FieldDefs stehen. Vielleicht wäre die Komponente einfach zu verstehen, wenn die FieldDefs nicht published wären.

[BrunoT]

Hallo,

Danke für die Antworten.
Ich habe schon mitbekommen, dass die Datensatzlänge beim anlegen einer leeren DB auf 255 begrenzt wird.
Sind aber schon lange Datensätze in der Datei nimmt TSDFDataset den längsten Record als Maß aller Dinge.
Ich werde gleich mal mit dem Schema experimentieren. Eventuell löst das meine Probleme.

Danke für die Hilfe