Speichern - ein großes Problem

[Billi Berserker]

Die bmp Dateien würde ich einfach so als Bitmaps speichern, eventuell in nem extra ordner.

Beispiel code für XML (blind programmiert und nicht getestet)
(ich habe auch keine ahnung wie dein code strukturiert ist, hier so wie ich es machen würde - weiß auch gerade nicht ob ü in xml als item name geht)

Delphi-Quellcode:

procedure Speichern;
var
  n : integer;
  XML : TJvSimpleXML
  Schüler : TSchüler
begin
  XML := TJvSimpleXML.Create(nil);
  try
    XML.Root.Name := 'Klasse X';
    for n := 0 to SchülerList.Items.Count - 1 do
        with XML.Root.Items.Add('Schüler').Items do
        begin
          item := TSchüler(SchülerList.Items.Item[n]);
          Add('Name',Schüler.Name);
          Add('Vorname',Schüler.Vorname);
          ...
            // restlichen Eigenschaften
          ...  
          Schüler.Bitmap.SaveToFile('C:\Fotos\' + Schüler.Name + ' ' + Schüler.Vorname + '.bmp');
        end;
    XML.SaveToFile('C:\klassex.xml');
  finally
    XML.Free;
  end;
end;

procedure Laden;
var
  n : integer;
  XML : TJvSimpleXML;
  Schüler : TSchüler
begin
  XML := TJvSimpleXML.Create(nil);
  try
    XML.LoadFromFile('C:\klassex.xml');
    for n := 0 to XML.Root.Items.Count - 1 do
        with XML.Root.Items.Item[n].Items do
        begin
          Schüler : TSchüler.Create;
          Schüler.Name := Value('Name');
          Schüler.Vorname := Value('Vorname');
          ...
          // restlichen Eigenschaften
          ...
          Schüler.Bitmap.LoadToFile('C:\Fotos\' + Schüler.Name + ' ' + Schüler.Vorname + '.bmp');
          SchülerList.Items.Add(Schüler);
        end;
  finally
    XML.Free;
  end; 
end;