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

[DeddyH]

Ich hab zwar nicht ganz verstanden, was Dein Code tun soll, aber wie sieht es so aus?

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(strtoint(Ziel.Values[Quelle.Names[i]]) +
      strtoint(Quelle.Values[Quelle.Names[i]]));
end;