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

[friedemann2009]

Zitat von shmia:

Was hältst du von Zwischenvariablen?
Könnte doch sein, dass man damit leichter Debuggen kann,oder?

Delphi-Quellcode:

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

Hey, vielen Dank: das war ne gute Idee. Ich muss zwar erst noch checken, ob das die Ergebnisse doch irgendwie verfälscht, aber auf den ersten Blick sieht es ganz gut aus.

Gruß,
friedemann