[crindlok]

Попробую писать это все в эксель, если есть какие-нибудь напутствия прошу ответить

[lxa85]

Исходники в студию.
Вообще, скорей всего придется перейти на некоторый форматированный ввод/вывод.
Например csv.
Да, так наверно будет проще всего.
Пример работы
Видео на YouTube

[crindlok]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  report, date, time, price : string;
  report_conf : textfile;
begin
   date := Edit1.Text;
   time := Edit2.Text;
   price := Edit3.Text;
report :=  time + ' ' + date + ' на сумму ' + price + ' отправлен';

if FileExists('report.txt') then
     begin
       AssignFile(report_conf,'report.txt');
       Append(report_conf);
       writeln(report_conf,report);
       Flush(report_conf);
       CloseFile(report_conf);
     end
  else
     begin
       AssignFile(report_conf,'report.txt');
       Rewrite(report_conf);
       writeln(report_conf,report);
       CloseFile(report_conf);
     end

end;

В итоге мне нужно получать что-то вроде файла 06.02.13.txt с содержанием вида:

06.02.13 12:30 на сумму 1000.00 отправлен
06.02.13 12:35 на сумму 500.00 отправлен
06.02.13 13:30 на сумму 400.00 отправлен

Итого 06.02.13 отправлено на сумму 1900.00

Ну итак для каждого числа...

Вот я что на счет этого думаю, берем название файла из переменной date, далее если файл не существует - создаем, пишем строку time + ' ' + date + ' на сумму ' + price + ' отправлен'; и на следующей строке пишем итого Итого отправлено на сумму price. Если существует, то считываем сумму из последней строки (где итого) прибавляем к ней текущую price, а перед этой строки записываем time + ' ' + date + ' на сумму ' + price + ' отправлен'.

Вот что пока придумалось. Не знаю как реализовать присвоение имя файла из переменной, и как считывать итого и перед ним новую строку писать.



ИЛИ же как-то все это в эксель отправлять, что даже было бы удобней, почитал сейцчас работу с эксель на делфи, не совсем все понятно и не придумал пока как оформить шаблон экселевский куда все писаться будет, саму структуру.
Эксель круто, лучше бы в него, но первый вариант тоже подойдет

[crindlok]

UPD

Сам себе отвечаю, буду пробовать отправлять в эксель, план работы придумал))

[novashdima]

Как-то надо было создать программу для обработки TSV.
Ну я создал таблицу, все данные хранил в базе данных используя движок BDE.
Так как я не знал, какого содержания будут данные (их много и они не однотипные и там вперемешку данные разных типов), то я загружал файл в файловый поток, оттуда их загружал в стринглист, заменив tab, которым отделены данные на пробел и потом из стринглиста подгружал это все в базу данных и выводил на таблице на форме.
У тебя же задача намного легче, ты знаешь входные данные, поэтому тебе надо только создать таблицу с тремя полями, в первое вставляешь TDateTimePicker для даты, во второе TTimePicker для даты, а третье стандартная строка. (а можешь и не вставлять компоненты, а так и оставить стандартные поля, только тогда тебе надо будет анализировать правильность ввода данных пользователем). Сгенерировать конечную строку уже можно будет без проблем.

Для упрощения:
На форму кидаешь DbGrid, в него будут вносится данные. DbGrid-у в качестве входных данных прописываешь DataSource, а DataSource в качестве DataSet-а прописываешь ClientDataSet, а потом пишешь что-то вроде:

Код:

ClientDataSet.Edit;
DbGrid.DataSource.DataSet.Post;
if not SaveDialog.Execute then exit;
AssignFile(UnitFile, SaveDialog.FileName+'.tsv');
{I-}
Rewrite(UnitFile);
try
   ClientDataSet.Edit;
   Data2:=TStringList.Create;
   Data2.IndexOf(temp); //temp = твои данные одной строкой, можно вытащить как угодно, хотя бы DbGrid.ToString, DBGrid.DataSource.ToString, DBGrid.DataSource.DataSet.ToString...
   dbGrid.DataSource.DataSet.Edit;
   for I := 0 to Data.Count - 1 do
   ClientDataSet.Fields[i].Value:=dbGrid.Fields[i].Value;
   ClientDataSet.First;
   for I := 0 to DbGrid.DataSource.DataSet.RecordCount - 1 do
    begin
    s:='';
    for ii := 0 to Data.Count - 1 do
    try
    NullStrictConvert:=true;
    if ClientDataSet.Fields[ii].Value=NULL then break;
    if s<>'' then S:=S+#9+ClientDataSet.Fields[ii].Value
             else S:=ClientDataSet.Fields[ii].Value;
    except
    NullStrictConvert:=false;
    if s<>'' then S:=S+#9+ClientDataSet.Fields[ii].Value
             else S:=ClientDataSet.Fields[ii].Value;
    end;
    Data2.Text:=s;
    Data2.Text:=StringReplace(Data2.Text,#13,'',[rfReplaceAll]);
    if i<>DbGrid.DataSource.DataSet.RecordCount-1 then Write(UnitFile, Data2.Text);
    ClientDataSet.Next;
    end;
    CloseFile(UnitFile);
    finally
    SaveDialog.Free;
    end;
 {I+}