Fórum TStringList soma de valores #415351

var
Lista_Arquivo:Tstrings;
Lista_Correta:TStrings;
I, index: Integer;
begin
    lista_Arquivo:=TStringList.Create;
    Lista_Correta:=TStringList.Create;

    try
      Lista_Correta.NameValueSeparator:=,;
      Lista_Arquivo.NameValueSeparator:=,;

    lista_Arquivo.Add(00587,10);
    lista_Arquivo.Add(00587,5);
    lista_Arquivo.Add(00256,1);


    for I := 0 to pred(Lista_Arquivo.Count) do
    begin
     Index:=  Lista_Correta.IndexOfName(Lista_Arquivo.Names[i]);
     if index < 0 then

        Lista_Correta.Add(Lista_Arquivo.Strings[i])
     else
       Lista_Correta.ValueFromIndex[Index]:= floattostr(
       (strtofloat(Lista_Correta.ValueFromIndex[Index])+
       strtofloat(Lista_Arquivo.ValueFromIndex[i])));
    end;


    for I := 0 to pred(Lista_Correta.Count) do
      Showmessage(Lista_Correta.Strings[i]);

    finally
      Lista_Arquivo.Free;
      Lista_Correta.Free;
    end;