Nimm dir ADOTable auf das Form und trage bei "ConnectionString" folgendes ein:
Code:
DBQ=<Verzeichnis in dem die Datei zu finden ist>;
Driver={Microsoft Text-Treiber (*.txt; *.csv)};
DriverId=27;
Extensions=None,asc,
csv,tab,txt;
FIL=text;
MaxBufferSize=2048;
MaxScanRows=25;
PageTimeout=5;
SafeTransactions=0;
Threads=3;
UID=admin;
UserCommitSync=Yes;
Das ganze ist natürlich ein String und nur der Lesbarkeit halber beim ; getrennt
Bei "TableName" trägst du dann den Dateinamen ein.
Die Schema.ini muss jetzt auch in dem gleichen Verzeichnis vorhanden sein.
Im Quelltext kannst Du dann wie folgt auf diese Tabelle zugreifen:
Delphi-Quellcode:
ADOTable1.Open // Tabelle öffnen
while not ADOTable1.Eof // bin ich am Ende?
do begin
ShowMessage( ADOTable1.FieldByName( 'Item1' ).AsString ); // Item1 in MessageBox ausgeben
ShowMessage( ADOTable1.FieldByName( 'Amount' ).AsString ); // Amount als String in MessageBox ausgeben
ShowMessage( IntToStr( ADOTable1.FieldByName( 'Amount' ).AsInteger ) ); // Amount als Integer in MessageBox ausgeben
ADOTable1.Next; // Nächster Datensatz
end;
ADOTable1.Close; // Tabelle schließen
Das ist eigentlich schon das ganze Geheimnis, ansonsten schaust du mal im Bereich
DB vorbei
cu