logo
small logo
  • Produkte
  • Shop
  • Support
  • Articles
  • Customer panel Support
    • en
    • pt
    • es
    • de
    • pl
    • JP
    • ZH
  • Home
  • /
  • Articles
  • /
  • Wie man eine CSV-Datei als DataSet in Delphi verbindet und einen Bericht mit FastReport VCL 6 erstellt
  • So erhalten Sie einen Bericht aus mehreren Datenbanken in Delphi / Lazarus / C ++ Builder

    11. Dezember 2020

    Ich werde demütig bemerken, dass FastReport VCL eine der bequemsten Komponenten zum Generieren von Reporten

    read more
  • Erstellung der Barcode CODE 39 und CODE 39 Extended mit Hilfe von Delphi / Lazarus

    23. Oktober 2020

    CODE 39 ist ein 1975 von der Intermec Corporation entwickelter Barcode, der 43 Zeichen enthalten

    read more
  • So erstellen Sie mit Delphi einen ITF-Barcode (Interleaved, Industrial, Matrix)

    11. November 2020

    Barcodes. Ein Paar Infos. Es ist schwer, sich unser Leben ohne Barcodes vorzustellen, besonders jetzt, wenn

    read more
  • So erstellen Sie ein interaktives PDF-Formular in Delphi und Lazarus

    14. Dezember 2020

    Vielleicht weiß es jemand nicht, aber mit dem PDF-Standard können Sie ausfüllbare Formulare erstellen. Das

    read more
  • So erstellen Sie eine ZPL Datei in Delphi / C ++ Builder / Lazarus

    22. Dezember 2020

    Was ist ZPL? Im Allgemeinen steht ZPL für Zebra Programmierung Sprache. Teams haben die Möglichkeit, das

    read more

Wie man eine CSV-Datei als DataSet in Delphi verbindet und einen Bericht mit FastReport VCL 6 erstellt

12. Mai 2020

Wahrscheinlich sind viele schon einmal auf das Problem gestoßen, eine CSV-Datei als DataSet in Delphi zu verwenden.

Lassen Sie uns einen Blick auf eine der Lösungen für dieses Problem werfen. Wir werden die CSV-Datei über TADOQuery verbinden und einen Bericht aus diesen Daten in FastReport VCL 6 erstellen.

Erstellen Sie ein Projekt und fügen Sie die folgenden Komponenten hinzu.

1
2
3
4
5
6
7
8
OHLC_Query: TADOQuery;
OHLC_Source: TDataSource;
OHLC_DB: TfrxDBDataset;
frxReport1: TfrxReport;
frxDesigner1: TfrxDesigner; 
frxChartObject1: TfrxChartObject;
ButtonShowReport: TButton;
ButtonDesignReport: TButton;

 

Um eine Verbindung zur CSV-Datei herzustellen, verwenden wir die Komponente OHLC_Query: TADOQuery-Komponente.

Richten Sie sie ein, indem Sie die Eigenschaft ConnectionString setzen:

1
OHLC_Query.ConnectionString :=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\;Extended Properties="text;";Persist Security Info=False’

Als Nächstes müssen Sie die Datei "Schema.ini" gemäß der Dokumentation auf der Microsoft-Website erstellen: 

https://docs.microsoft.com/en-us/sql/odbc/microsoft/schema-ini-file-text-file-driver?view=sql-server-ver15

Und fügen Sie sie dem Projektordner hinzu.

Analysieren wir das Beispiel unserer Demo-CSV-Datei (EURUSD_200201_200410.csv), sie hat die folgende Struktur:

Die Daten werden mit dem ";" getrennt

Die Daten werden in einer anschaulicheren Form dargestellt, sie haben 9 Spalten:

Erstellen wir eine Textdatei und speichern sie als schema.ini

Diese Datei sollte laut der Dokumentation auf der Microsoft-Website folgenden Aufbau haben:

https://docs.microsoft.com/en-us/sql/odbc/microsoft/schema-ini-file-text-file-driver?view=sql-server-ver15

schema.ini
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
[EURUSD_200201_200410.csv]
ColNameHeader=True 
Format=Delimited(;) 
DecimalSymbol=.
TextDelimiter='
CharacterSet=ANSI 
DateTimeFormat=yyyymmdd
Col1=TICKER char
Col2=PER integer 
Col3=DATE date 
Col4=TIME char
Col5=OPEN float
Col6=HIGH float 
Col7=LOW float
Col8=CLOSE float
Col9=VOL integer

Nehmen Sie die notwendigen Einstellungen für OHLC_Source und OHLC_DB vor: 

1
2
3
OHLC_Source.DataSet := OHLC_Query;
OHLC_DB.DataSource := OHLC_Source;
OHLC_DB.UserName := 'OHLC';

Erstellen Sie eine Vorlage und speichern Sie sie als DemoCSV.fr3 

Design DemoCSV.fr3

Und verbinden Sie das DataSet mit der Vorlage

   

Als nächstes fügen Sie die Ereignisse ButtonDesignReportClick, ButtonShowReportClick und FormCreate hinzu: 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFormDemoCSV.ButtonDesignReportClick(Sender: TObject);
begin
 frxReport1.DesignReport;
end;
 
procedure TFormDemoCSV.ButtonShowReportClick(Sender: TObject);
begin
 frxReport1.ShowReport();
end;
 
procedure TFormDemoCSV.FormCreate(Sender: TObject);
begin
 frxReport1.LoadFromFile('./DemoCSV.fr3')
end;

Anwendungen starten

Wenn Sie auf die Schaltfläche ButtonShowReport klicken, wird ein Bericht erstellt.

Herzlichen Glückwunsch, Sie haben die CSV-Datei als DataSet in Delphi eingebunden und aus diesen Daten einen Bericht in FastReport VCL 6 erstellt!

Download-Link: DemoCSV.zip

about product download buy
avatar
Alexander Syrykh
QA
Fast Reports Team: Alexander Syrykh - Quality Assurance at Fast Reports
VCL CSV FastReport 6 Delphi

Add comment
logo
  • 800-985-8986 (English, US)
  • +4930568373928 (German)
  • +55 19 98147-8148 (Portuguese)
  • info@fast-report.com
  • 901 N Pitt Str #325 Alexandria VA 22314
  • Shop
  • Download
  • Dokumentation
  • Referenzen
  • Informationen zur Deinstallation unserer Produkte
  • Ticket system
  • FAQ
  • Tutorial Video
  • Forum
  • Articles
  • Unsere Nachrichten
  • Presse über uns
  • Partner
  • Kontakte

© 1998-2022 by Fast Reports Inc.

  • Datenschutz