Einzelnen Beitrag anzeigen

Crowbar

Registriert seit: 17. Jun 2002
43 Beiträge
 
#1

Import von einer csv - Datei in eine neue DBase Tabelle

  Alt 8. Feb 2004, 14:43
Hi,
mit der untenstehen Procedure exportiere ich meine DBase Datenbank in eine csv - Datei.
Delphi-Quellcode:
Procedure TFMain.csvExport;
Var
StringList : TStringList;
t : Integer;
Zeile : String;

begin
  Zeile:='';
  StringList:=TStringList.Create;
  try
   AdressTable.First;
   for t:=0 to AdressTable.FieldCount-1 do Zeile:=Zeile+AdressTable.Fields[t].FieldName+';';
   StringList.Add(Zeile);
   while not AdressTable.Eof do
    begin
      Zeile:='';
      for t:=0 to AdressTable.Fields.Count-1 do Zeile:=Zeile+AdressTable.Fields[t].AsString+';';
      StringList.Add(Zeile);
      AdressTable.Next;
    end;
   StringList.SaveToFile('Adressen.csv');
  finally
   StringList.Free;
  end;
end;
Nun, möchte ich aber auch diese csv - Datei wieder importieren können. D.h. ich möchte die "Adressen.csv" in einer neu erzeugten Tabelle importieren. Dabei sollen die Namen der Tabellenfelder und deren Inhalt aus der *.csv - Datei geholt werden. Hier komme ich nicht weiter, wie ich dies am "effektivsten" programmiere.
Hat jemand soetwas schon einmal programmiert?
Bin für jede Hilfe und Denkanstoss dankbar!

CU,
Crowbar
  Mit Zitat antworten Zitat