Value-Abruf aus Tstringlist beinhaltet "=" -> Fehler

[DeddyH]

Genau dies sollte mein Code eigentlich erledigen

[edit] Und in einer fehlertoleranteren Version:

Delphi-Quellcode:

procedure AddiereStringListen(const Quelle, Ziel: TStrings);
var i: integer;
begin
  for i:=0 to Quelle.count-1 do
    if Ziel.Values[Quelle.Names[i]] = '' then
      Ziel.Values[Quelle.Names[i]] := Quelle.Values[Quelle.Names[i]]
    else
      Ziel.Values[Quelle.Names[i]]:= inttostr(StrToIntDef(Ziel.Values[Quelle.Names[i]],0) +
      StrToIntDef(Quelle.Values[Quelle.Names[i]],0));
end;

[/edit]