XML - Zu viele Parameter

[MaM]

Moin,


ich habe eine Procedure welche folgenden Inhalt hat:

Delphi-Quellcode:

procedure TF_Hauptfenster.Add(XML_File: TStringList);
begin
  XML_File.Add('  <Holyday>');
  XML_File.Add('    <Date>'+Edit1.Text+'</Date>');
  XML_File.Add('  </Holyday>');
end;

Diese Procedure wird in einer nachfolgenden benötigt:

Delphi-Quellcode:

procedure TF_Hauptfenster.Button1Click(Sender: TObject);
var
  i: Integer;
  MyItem: TListItem;
  XML_File: TStringList;
begin
  XML_File:=TStringList.Create;

  MyItem:= LV_Aufgaben.Items.Add;
  MyItem.SubItems.Add(Edit1.Text);

  XML_File.Add('<Holydays>');
  For i:=0 to LV_Aufgaben.Items.Count-1 do
  begin
    Add(XML_File, i); ------------> Zu viele Parameter
  end;
  XML_File.Add('</Holydays>');}

  XML_File.SaveToFile(ExtractFilePath(Application.ExeName)+'test.xml');
end;

Ich bekomme folgende Fehlermeldung, in der markierten Zeile: Zu viele Parameter.
Wo liegt der Fehler, wie kann ich das Problem lösen?



MaM