Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi]Сохранение,Загруска,поиск файла

Автор: MrDmitry 4.6.2007, 15:00

Проблема в следующем
Есть 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

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

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

Автор: MrDmitry 4.6.2007, 21:25

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

Автор: comtat 9.6.2007, 21:04

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

)

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

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