[TEKTON]

Сообщение от lmikle

Да ЯТЬ!
Ну просто же.

Для гуру да

Проверил, всё работает чётенько вроде!

Надо наверно в одном посте соединить два кусочка кода.
Пригодится ещё кому нить

Код:

{-------------------------- ФУНКЦИЯ --------------------------------}
procedure ExtractParamNameFromLine(S : String; var AName : String; var AVal : Double); // Закодил lmikle  http://www.delphisources.ru
var
  sVal : String;
begin
  AName := '';
  AVal := 0;
 
  If Pos('---',S) > 0 Then
    Begin
      Try
        AName := Trim(Copy(S,1,Pos('---',S)-1));
        sVal := Trim(Copy(S,Pos('---',S)+3,Pos('%',S)-Pos('---',S)-3));
        AVal := StrToFloat(sVal);
      Except
        // Нехорошо прятать эксепшены, но лень вспоминать как tryStrToFloat работает
      End
    End;
end;

{------------------------- ЮЗАЕМ -----------------------------}

procedure TForm1.Button1Click(Sender: TObject);
var
  P : Array Of Double;
  I, pIdx : Integer;
  pName : String;
  pVal : Double;
begin
  SetLength(P,ListBox1.Items.Count);
  For I := Low(P) To High(P) Do P[i] := 0; // just in case
  For I := 0 To Memo1.Lines.Count-1 Do
  Begin
    ExtractParamNameFromLine(Memo1.Lines[i],pName,pVal);
    If pName <> '' Then
      Begin
        pIdx := ListBox1.Items.IndexOf(pName);
        If pIdx > -1 Then P[pIdx] := P[pIdx] + pVal;
      End;
  End;

  // Print to memo
  Memo1.Lines.Add('');
  Memo1.Lines.Add('--- Итоговый подсчёт: ---');
  Memo1.Lines.Add('');
  For I := Low(P) To High(P) Do
    If P[i] > 0 Then Memo1.Lines.Add(ListBox1.Items[i] + ' --- '+ FloatToStr(P[i]) + ' %');
end;