String partitionell auslesen

[Sir Rufo]

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