VPF::[Delphi]Сохранение,Загруска,поиск файла

MrDmitry

Дата 4.6.2007, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет

Проблема в следующем
Есть StringGrid нужно В одной форме осуществить сохранение данных в файл ( при чем каждый новый щелчек по кнопке создает новый файл) в другой Нужно прочитать все имеющиеся данные из всех соданных файлов и вывести их в StringGrid!
Вот что есть:

Код


//Сохранение
var
i:integer;
begin
AssignFile(fb,'otchet\nakladnayaN'+edit3.text+'.dat');
rewrite(fb);
b.nak:=edit3.text;
b.Data:=DateTimePicker1.Date;
b.post:=DBLookupComboBox1.text;
for i:=1 to StringGrid1.RowCount-1 do
        begin
          with StringGrid1 do
            begin
b.art:=StringGrid1.cells[1,l];
b.naim:=StringGrid1.cells[2,l];
b.Kol:=StringGrid1.cells[3,l];
b.cena:=StringGrid1.cells[4,l];
b.Summa:=StringGrid1.cells[5,l];
  end;

          write(fb,b);
        end;
            CloseFile(fb);

Данные таблицы почемуто не сохроняються ((

Код


//Поиск и загруска
var
  s: string;
  i: integer;
fs:TSearchRec;
begin
If  FindFirst('otchet\*.dat',faAnyFile,fs)=0 then
 begin
    repeat
     AssignFile(fb,'otchet\'+fs.name);
reset(fb);
i:=0;
while not(EOF(fb)) do
        begin
        inc(i);
        read(fb,b);
        StringGrid1.RowCount:=i+1;
        with StringGrid1 do
            begin
{cells[0,i]:=IntToStr(i);}
cells[1,i]:=b.nak;
cells[2,i]:=DateToStr(b.Data);
cells[3,i]:=b.post;
{b.art:=StringGrid1.cells[1,l];
b.naim:=StringGrid1.cells[2,l];
b.Kol:=StringGrid1.cells[3,l];
b.cena:=StringGrid1.cells[4,l];
b.Summa:=StringGrid1.cells[5,l];}
  end;
        end;
   until FindNext(fs)<>0;
  FindClose(fs); CloseFile(fb);end

;

Почемуто считываються только данные последно расположеного файла в папке otchet и с него выводиться 699 записей в таблицу ((

Надеюсь ктонибуть чтонибуть посоветует заранее спасибо )

Alexeis

Дата 4.6.2007, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

MrDmitry

Дата 4.6.2007, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет

Не кто не знает как это сделать?

comtat

Дата 9.6.2007, 21:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71

Цитата(MrDmitry @ 4.6.2007, 21:25

)

Не кто не знает как это сделать?

Приатач проект, ато из того что выложенно мало чего понятно
как выложешь помогу

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »