Daten in SQLite-DB importieren

[Sir Rufo]

Tja, wenn du die Enterprise-Version hättest, dann wäre das recht simpel.

• XML-Datenbindung-Wizard starten
• XML-Datei angeben
• Klassen bauen lassen

Und dann einfach die Daten laden und abarbeiten

Delphi-Quellcode:

procedure ProcessKunde( AKunde: IXMLKundeType );
begin
  Writeln( 'KundenNr: ', AKunde.Daten.KundenNr );
  Writeln( 'Name    : ', AKunde.Daten.Name );
  Writeln( 'Vorname : ', AKunde.Daten.Vorname );
  Writeln( 'Beruf   : ', AKunde.Daten.Beruf );
end;

procedure ProcessKundeList( AKundeList: IXMLKundeTypeList );
var
  LIdx: Integer;
begin
  for LIdx := 0 to AKundeList.Count - 1 do
    ProcessKunde( AKundeList.Items[ LIdx ] );
end;

procedure ProcessStory( AStory: IXMLStoryType );
begin
  ProcessKundeList( AStory.Kunde );
end;

procedure ProcessStoryFile( const AFilename: string );
var
  LStory: IXMLStoryType;
begin
  LStory := Loadstory( AFilename );
  ProcessStory( LStory );
end;

begin
  try
    CoInitialize( nil );
    try
      ProcessStoryFile( '..\..\Data\Daten.xml' );
    finally
      CoUninitialize;
    end;
  except
    on E: Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;
  ReadLn;

end.