Сравнение строк memo и их сложение

[cezer]

Всем добрый вечер. подскажите пожалуйста, есть memo в него загружен текст:

User, 192.168.0.103, 18:39:15, 3642, 1, 2, 0, 0
User, 192.168.0.103, 18:39:15, 3642, 3, 4, 0, 0
Admin, 192.168.0.103, 18:39:15, 3642, 2, 6, 0, 0
Admin, 192.168.0.103, 18:39:15, 3642, 7, 8, 0, 0

Нужно разбить каждую строку на несколько частей. И самое главное при считывании строк Если Имя повторяется то прибавлять 5 и 6й столбец, одного и того же имени.

теперь на примере:
Имеется 4е строки которые описаны выше, в первых двух имя повторяется это значит что 5 и 6й столбец прибавляем между собой label5.caption:=1+3 и label6.caption:=2+4. Сколько строк за ранее не известно каждый раз прибавляются и имена могут чередоваться.

Как разбить строки нашёл, а как сделать так чтоб он по строчно разбивал складывал и тд и тп ума не приложу.

[Stilet]

Я думаю нужно задействовать ODBC провайдер для текстовых файлов типа CSV.
Тогда группировку можно будет провести SQL запросом.
Я бы так и сделал.
Впрочем можно и так:

q:=TStringList.Create;w:=TStringList.Create;e:=TStringList.Create;
with Memo.Lines do 
 for i:=0 to Count-1 do begin
  q.DelimitedText:=Strings[i];
  if q.count>5 then w.values[q[0]]:=IntToStr(StrToIntDef(w.values[q[0]],0)+q[4]);
  if q.count>6 then e.values[q[0]]:=IntToStr(StrToIntDef(e.values[q[0]],0)+q[5]);
 end;

Теперь в списках w и е данные просуммированы по логинам.

[cezer]

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

...

Спасибо за ответ. Но
в memo очень много пользователей и они повторяются и чередуются нужно для каждого пользователя вывести общее число сложив 5 и 6 столбец...
упрощённый вариант

User, 1, 2
User, 1, 5
Admin, 1, 8
Vasya, 6, 9
Admin, 9, 5
Vasya, 10, 5

итог:
User | 2 | 7
Admin | 10 | 13
Vasya | 16 | 14

[Stilet]

cezer

Мой пример разве это не делает?

[cezer]

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

Мой пример разве это не делает?

Ооо Стилет слава богам я думал уже не откликнешься)) Первое он выдал ошибку в последних двух строкач но я переделал поставил скобки по другому но он не правильно считает(((

[Stilet]

Поправив на

    if q.count>5 then w.values[q[0]]:=IntToStr(StrToIntDef(w.values[q[0]],0)+StrToIntDef(q[4],0));
    if q.count>6 then e.values[q[0]]:=IntToStr(StrToIntDef(e.values[q[0]],0)+StrToIntDef(q[5],0));

Проверил свой пример на твоем тексте - все считает верно.

[cezer]

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

....

Работает Стилето. Спасибо а ка так получается что при нажатии если в memo2 пользователя он сам создаёт label и вписывает значение? И такой вопрос как можно в DBgrid перевести чтоб получилось что то типо того:
User1 | цифры( w.Text | цифры( e.Text
Admin | цифры( w.Text | цифры( e.Text
Root | цифры( w.Text | цифры( e.Text

и так далее по пользователям чтоб они не повторялись?

[Stilet]

а ка так получается что при нажатии если в memo2 пользователя он сам создаёт label и вписывает значение?

Не ниче набора из понял этого слов

как можно в DBgrid перевести

Я не зря выше говорил про ODBC. Почитай о том, как подключиться к текстовому (csv или plan text) файлу как к базе данных.