[cezer]

Всем добрый вечер! Ну или ночь) Имеется код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 q,w,e:TStrings;
 i: integer;
begin
 q:= TStringList.Create; 
 w:= TStringList.Create;
 e:= TStringList.Create;
with Memo1.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)+ StrToInt(q[4]));
   if q.count>6 then e.values[q[0]]:= IntToStr(StrToIntDef(e.values[q[0]],0)+ StrToInt(q[5]));
  end;
 Label1.Caption:=w.Text;
 Label2.Caption:=e.Text;
 q.Free;
 w.Free;
 e.Free;
end;

Как правильно вывести в DBgrid значения w и e?
Например во второй столбец W в третий E

После обработки текст выглядит так

Код:

User1=цифры( Label1.Caption:=w.Text;)
User1=цифры( Label2.Caption:=e.Text;)

Надо перевести в DBgrid но чтоб было так:

Код:

User1 | цифры( Label1.Caption:=w.Text;) | цифры( Label2.Caption:=e.Text;)

Помогите в решении этой не лёгкой для меня задачи.

[lmikle]

На сколько я вижу, имеет место непонимание того момента, что DBGrid предназначен для работы с базами данных (есть вариант "прикрутить" данные из памяти, но все равно это делается через наследника DataSet).

Т.О. тут 2 варианта.
1. Используем все-таки TStringGrid.
2. Складываем данные в БД (можно просто в памяти, ищи компонент TMemTable или используй TClientDataSet, в нем можно, вроде, все оставить в памяти, не выгружать на диск) и пользуемся TDBGrid.

Ну и еще вариант, что ты сам не пониаешь, чего хочешь.
Можешь описать задачу нормальным языком, без своих вариантов, только задачу и то, что должно получиться.

[Страдалецъ]

Все несколько проще. Не надо ничего тут лишнего изобретать, все просто как топор.
1. Исходный файл не надо грузить в мемо - это лишнее.
2. На форму добавляете AdoQuery.
2.1. В ConnectionString пишете:

Код:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\;Extended Properties="Text;HDR=No";Persist Security Info=False

Только вместо J:\ указываем путь к вашему файлу.
2.1. В SQL пишете запрос:

Код:

select  F1,F2,F3,F4,Sum(F5) as F5, Sum(F6) as F6 from Test1#txt
group by F1,F2,F3,F4

На форму добавляете DBGrid,DataSource. Связываете все это хозяйство как обычно.
3.Запускаем и хрюкаем от счастья.

[Alegun]

Здесь всё прикольнее, чем может показаться, ТСу просто нужно из мемо распарсить строки в таблицу, в соседней теме он это довольно подробно объяснил. Предложенный код меня не вдохновил, поэтому, всё равно, всё по своему сделал, не смог от такого удержаться:

На форме должны быть кнопка, мемо и стрингрид (вкладка палитры компонентов Additional -> StringGrid)

Код:

procedure TForm1.Button1Click(Sender: TObject);
 function nu(ds: string): string;
  begin
   Result:= Copy(ds, 1, pos(',', ds)-1);
  end;
var
 i, b, b5, b6: integer;
 sl, sv, su: TStrings;
 flg: boolean;
begin
 su:= TStringList.Create;
 sv:= TStringList.Create;
 sl:= TStringList.Create;

 for i := 0 to Memo1.Lines.Count-1 do
  begin
   flg:=true;

   for b := 0 to su.Count-1 do
    if nu(Memo1.Lines.Strings[i]) = su.Strings[b] then flg:= false;

   if flg then su.Add(nu(Memo1.Lines.Strings[i]));
 end;

   StringGrid1.RowCount:=su.Count+1;

   for b := 0 to su.Count-1 do
    begin
     sv.Clear;
     for i := 0 to Memo1.Lines.Count-1 do
      if nu(Memo1.Lines.Strings[i]) = su.Strings[b] then
         sv.Add(Memo1.Lines.Strings[i]);

      b5:= 0;
      b6:= 0;

      for i := 0 to sv.Count-1 do
       begin
        sl.Text:= StringReplace(sv.Strings[i],',',#10,[rfReplaceAll]);
        inc(b5, StrToInt(sl.Strings[4]));
        inc(b6, StrToInt(sl.Strings[5]));
       end;

     StringGrid1.Cells[1, b+1]:= su.Strings[b];
     StringGrid1.Cells[2, b+1]:= IntToStr(b5);
     StringGrid1.Cells[3, b+1]:= IntToStr(b6);
    end;

 sl.Free;
 sv.Free;
 su.Free;
end;

Оно работает, проверено электроникой

[cezer]

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

...

Alegun как всегда в теме и Ведь все работает) Всем спасибо в частности Alegun!!!!!

[Страдалецъ]

Работает, я тоже читал оба ваших поста и как я писал еще чуть ранее - это неверное изначально решение. Вы сначала создаете трудности, а потом их преодолеваете. Вот зачем загонять текст в Мемо, если можно сразу к нему обращаться как таблице и делать нужный вам запрос? Как это сделать я объяснил, (весь код 2 строчки) но видимо вы читаете только последние сообщения. Печально.

[cezer]

Сообщение от Страдалецъ

...

Страдалец к тебе встречный вопрос. У меня файл от куда я беру данные находится в сети в расшаренной папке. когда задаю путь

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.2\Log\log.txt;Extended Properties="Text;HDR=No";Persist Security Info=False

Он ругается что файл не доступен... Как с этим быть?

[Страдалецъ]

Правильно ругается. Задается не файл, а путь к нему. Имя файла в запросе используется. Смотрите внимательнее мой пример.

[cezer]

Сообщение от Страдалецъ

Правильно ругается. Задается не файл, а путь к нему. Имя файла в запросе используется. Смотрите внимательнее мой пример.

Если имя содержет тире он не принимает этот фалй(((( а у меня файл с именем в котором есть тире

[cezer]

Сообщение от Страдалецъ

...

select F1,F2,F3,F4,Sum(F5) as F5, Sum(F6) as F6 from 06-02-13-#lgs
group by F1,F2,F3,F4

[cezer]

Сообщение от Страдалецъ

...

Твой пример самый классный прости что сомневался в твоём примере! сейчас проверил с txt файлом он его читает и подключается все работает на ура... Но с другими файлами не получается в частности *.lgs

[Страдалецъ]

Попробуй взять имя файла в квадратные скобки:

Код:

select F1,F2,F3,F4,Sum(F5) as F5, Sum(F6) as F6 from [06-02-13-#lgs]
group by F1,F2,F3,F4

[cezer]

Сообщение от Страдалецъ

...

Обновление не возможно База Даных или обйект доступны только для чтения! (((

[cezer]

Сообщение от Страдалецъ

...

Пробовал из сети копировать на диск C:\ прописывал пути к файлу и название файла все равно пишет что: Обновление не возможно база данных или объект доступны только для чтения.

[cezer]

Сообщение от Страдалецъ

...

из за того что в имени тире - он не может нормально прочитать путь файл... Квадратные скобки ничего не дали(( меня имя на 123.txt выводит данные( а тем именем работать не хочет(((