CSV Textdatei in Memtable laden und mit Query abfragen

[fisipjm]

[QUOTE=Uwe Raabe;1513741]

Zitat von fisipjm:

Woher hast du die Informationen für GuessFormat?

Die Sourcen natürlich.

Delphi-Quellcode:

      // When a value is upper-cased, this is a "good" sign, that
      // the value is field name
      if not CheckSet(sItem, ['A'..'Z', '_'], ['A'..'Z', '0'..'9', '_', '#', '$']) then
        lFieldNamesUC := False;

...

    // Final guess about first line
    DataDef.WithFieldNames := lFieldNames and (not lAllStrings or lFieldNamesUC);

wie kommst du an die Source. Bei mir ist nach dem interface ( IFDBatchMoveReader = interface(IFDBatchMoveDriver) ) Schluss.
Ich befürchte ich stell mich grad richtig doof dran

[Uwe Raabe]

Zitat von fisipjm:

wie kommst du an die Source.

Strg-Klick auf TFDBatchMoveTextReader -> GuessFormat .

Übrigens: Du setzt dort nach dem Create zwar die DataDef-Eigenschaften, die werden aber bei GuessFormat wieder überschrieben. Du solltest also das GuessFormat nach dem Setzen von FileName aber vor den Einstellungen von DataDef aufrufen.

[fisipjm]

Zitat von Uwe Raabe:

Zitat von fisipjm:

wie kommst du an die Source.

Strg-Klick auf TFDBatchMoveTextReader -> GuessFormat .

Übrigens: Du setzt dort nach dem Create zwar die DataDef-Eigenschaften, die werden aber bei GuessFormat wieder überschrieben. Du solltest also das GuessFormat nach dem Setzen von FileName aber vor den Einstellungen von DataDef aufrufen.

Danke. Heute Morgen hab ich die Kommentare dann auch gesehen/gefunden. Kaffee sei dank
Über die Sinnhaftigkeit der Definition, was eine Überschrift ist, lässt sich sicher streiten, aber das hat mir schon mal sehr weiter geholfen.
Vielen Dank, Top-Hilfestellung wie immer

Ps.: Danke für den Hinweis mit den DataDef Eigenschaften. Hatte ich zwischenzeitlich sogar schon geändert und die Eigenschaft sogar um eine kleine Helper Class erweitert, damit ich mir das Geschachtel bei der Prüfung auf Nil spare.

Delphi-Quellcode:

type
  TFDTextFieldHelper = class helper for TFDTextField
  private
    function getter: TFDTextDataType;
    procedure setter(const Value: TFDTextDataType);
  published
    property DataTypeNilSafe: TFDTextDataType read getter write setter;
  end;

....

{ TFDTextFieldHelper }

function TFDTextFieldHelper.getter: TFDTextDataType;
begin
  if Self <> nil then
    result := Self.DataType
end;

procedure TFDTextFieldHelper.setter(const Value: TFDTextDataType);
begin
  if Self <> nil then
    Self.DataType := Value;
end;

...