1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

constructor TWinForm1.Create;
var dt,dd : DataTable;

begin
  inherited Create;
  InitializeComponent;
  ds := DataSet.Create;
  dt := DataTable.Create('InventoryReport');
  dd := DataTable.Create('ReportLine');
  ds.Tables.Add(dt);
  ds.Tables.Add(dd);
  with dt.Columns.Add('DocumentReference', System.Type.GetType('System.String')) do
  with dt.Columns.Add('DocumentDate', System.Type.GetType('System.String')) do
  with dt.Columns.Add('PeriodStartDate', System.Type.GetType('System.String')) do
  with dt.Columns.Add('PeriodEndDate', System.Type.GetType('System.String')) do
  with dt.Columns.Add('ReportType', System.Type.GetType('System.String')) do
  with dt.Columns.Add('VendorId', System.Type.GetType('System.String')) do
  with dt.Columns.Add('VendorName', System.Type.GetType('System.String')) do
  with dt.Columns.Add('CountryCode', System.Type.GetType('System.String')) do
  with dt.Columns.Add('BranchCode', System.Type.GetType('System.String')) do

  with dd.Columns.Add('LineNumber', System.Type.GetType('System.String')) do
  with dd.Columns.Add('VendorCode', System.Type.GetType('System.String')) do
  with dd.Columns.Add('VikingCode', System.Type.GetType('System.String')) do
  with dd.Columns.Add('SelloutQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('OnHandQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('SafetyStockQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('TotalReceivedQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('TotalOpenOrdersQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('CustomerBackOrdersQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('MiscellaneousQuantity', System.Type.GetType('System.String')) do
  with dd.Columns.Add('WatchProductFlag', System.Type.GetType('System.String')) do

  dataGrid1.DataSource := ds;       // DataGrid an DataTable anbinden

end;

procedure TWinForm1.MenuItem1_Click(sender: System.Object; e: System.EventArgs);
begin
  Self.Close;
end;

procedure TWinForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  ds.ReadXml('test.xml');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

<?xml version="1.0" encoding="ISO-8859-1" ?> 
- <wrappedxml>
  <numberofdocuments>1</numberofdocuments> 
- <InventoryReport>
  <DocumentReference>2</DocumentReference> 
  <DocumentDate>2006-11-06</DocumentDate> 
  <PeriodStartDate>2006-11-03</PeriodStartDate> 
  <PeriodEndDate>2006-11-03</PeriodEndDate> 
  <ReportType>SELLOUT</ReportType> 
  <VendorId>495</VendorId> 
  <VendorName>MUSTERFIRMA</VendorName> 
  <CountryCode>GB</CountryCode> 
  <BranchCode>5807</BranchCode> 
- <ReportLine>
  <LineNumber>1</LineNumber> 
  <VendorCode>23962</VendorCode> 
  <VikingCode>CHMX05</VikingCode> 
  <SelloutQuantity>0</SelloutQuantity> 
  <OnHandQuantity>0</OnHandQuantity> 
  <SafetyStockQuantity>0</SafetyStockQuantity> 
  <TotalReceivedQuantity>0</TotalReceivedQuantity> 
  <TotalOpenOrdersQuantity>0</TotalOpenOrdersQuantity> 
  <CustomerBackOrdersQuantity>0</CustomerBackOrdersQuantity> 
  <MiscellaneousQuantity>0</MiscellaneousQuantity> 
  <WatchProductFlag>N</WatchProductFlag> 
  </ReportLine>
- <ReportLine>
  <LineNumber>2</LineNumber> 
  <VendorCode>23963</VendorCode> 
  <VikingCode>CHMX10</VikingCode> 
  <SelloutQuantity>0</SelloutQuantity> 
  <OnHandQuantity>46</OnHandQuantity> 
  <SafetyStockQuantity>41</SafetyStockQuantity> 
  <TotalReceivedQuantity>0</TotalReceivedQuantity> 
  <TotalOpenOrdersQuantity>0</TotalOpenOrdersQuantity> 
  <CustomerBackOrdersQuantity>0</CustomerBackOrdersQuantity> 
  <MiscellaneousQuantity>0</MiscellaneousQuantity> 
  <WatchProductFlag>N</WatchProductFlag> 
  </ReportLine>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function LiesersteZeilevonDatei(Dateiname:String):String;
Var F : File of Text;
    S:String;
Begin
 AssignFile(F,Dateiname);   //Datei öffnen
 Reset(F)                   //An den Anfang
 Readln(F,S)                //Erste Zeile der Datei nach S einlesen
 CloseFile(F);
 Result := S;
End;