31.07.2018, 22:42
|
Прохожий
|
|
Регистрация: 31.07.2018
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
|
|
Цитата:
Сообщение от TEKTON
Для гуру да
Проверил, всё работает чётенько вроде!
Надо наверно в одном посте соединить два кусочка кода.
Пригодится ещё кому нить
Код:
{-------------------------- ФУНКЦИЯ --------------------------------}
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;
|
Как раз пригодилось!!!! Спс)
|